求助：自动算数出题评分

02761752696

求助：                                                
1、点击自动评分能在指定单元格显示得分情况，如 R1      
2、在判断列显示结果和答案的对比，并作出判断显示对错     
3、答案列根据题目自动生成答案                          
4、在题目列能自动随机生成加减乘除算术题，用按钮刷新题目  
5、做完一题换题时不会刷新题目，不停变化不能练习了      
6、做个题目类型选择按钮，可自动调节的   （加法、减法、乘法、除法、加减混合、乘除混合、四则混合）               
7、在指定区域生成对应的竖式题目   
8、加个数值设定如50以内 加减法、100以内等等                                                                     
注：小孩子上小学了，老师要求出题练习，就想到这个，不知能不能实现这些功能，呵呵，问题有点多，请各位老师帮帮忙，谢谢大家了。

02761752696

请老师们帮忙看看啊 ，为了孩子，谢谢大家了，急等啊 。{:soso_e118:}

andynanhai

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 0 And Target.Column = 1 Then
   path_str = InputBox("请输入图片服务器路径：" & Chr(13) & Chr(10) & "例如：\\192.168.0.9\image\", "picture_path")
   Me.Shapes.AddPicture Path + ActiveCell.Offset(-1, 0).Value + ".jpg", True, True, ActiveCell.Offset(-1, 1).MergeArea.Left + 2, ActiveCell.Offset(-1, 1).MergeArea.Top + 2, ActiveCell.Offset(-1, 1).MergeArea.Width - 4, ActiveCell.Offset(-1, 1).MergeArea.Height - 4

End If
End Sub

请问老师：路径代码改成path_str = InputBox("请输入图片服务器路径：" & Chr(13) & Chr(10) & "例如：\\192.168.0.9\image\", "picture_path")为什么就找到图片了，应该怎么改！

719404338

老乡，看你是027的，给你写了个评分的。为了不要让孩子在电脑上做，买本作业书，几块钱的事。

1. Sub t()
   
2. Dim i%, j%, x%, y%
   
3. For i = 2 To 26
   
4. For j = 2 To 14 Step 4
   
5.     If Cells(i, j) = Cells(i, j + 2) Then
   
6.      Cells(i, j + 1) = "√": x = x + 1
   
7.      Else
   
8.      Cells(i, j + 1) = "╳": y = y + 1
   
9.      End If
   
10.      Next j, i
    
11.      [q3] = "对" & x & "题"
    
12.      [r2] = x & "分"
    
13.      [r3] = "错" & y & "题"
    
14. End Sub

复制代码