分享:100以内的整数除法出题+评分+标准答案

fjmxwrs

刚才看到同学的一个这样的题,也写了一个,与同学们一起学习,请老师们指正.

1. Sub 出题()
   
2.     Dim i, arr, x&, r&
   
3.     i = InputBox("请输入一个正整数", "请输入题目数量", 10)
   
4.     If Val(i) < 1 Then MsgBox "没有选择题目数量!": Exit Sub
   
5.     ReDim arr(1 To i, 1 To 2)
   
6.     For x = 1 To i
   
7.         arr(x, 1) = "第" & x & "题"
   
8.         arr(x, 2) = Int(Rnd() * 100 + 1) & "÷" & Int(Rnd() * 100 + 1) & "="
   
9.     Next x
   
10.     With Sheets("100以内除法运算")
    
11.         r = .Range("A65536").End(xlUp).Row - 3
    
12.         .Cells(4, 1).Resize(r, 5).ClearContents
    
13.         .Cells(4, 1).Resize(UBound(arr), UBound(arr, 2)) = arr
    
14.         .Range("F2") = ""
    
15.         .Range("F3") = "每题" & Round(100 / i, 1) & "分"
    
16.     End With
    
17. End Sub

复制代码

1. Sub 评分()
   
2.     Dim r&, i, x&, arr, j&, j1&
   
3.     j = 0: j1 = 0
   
4.     With Sheets("100以内除法运算")
   
5.         r = .Range("A65536").End(xlUp).Row
   
6.         arr = .Range("A4:E" & r)
   
7.         For x = 1 To UBound(arr)
   
8.             i = Round(Evaluate("=" & Replace(Left(arr(x, 2), Len(arr(x, 2)) - 1), "÷", "/")), 2)
   
9.             arr(x, 5) = i
   
10.             If Round(arr(x, 3), 2) = i Then
    
11.                 arr(x, 4) = "√"
    
12.                 j = j + 1
    
13.             Else
    
14.                 arr(x, 4) = "×"
    
15.                 j1 = j1 + 1
    
16.             End If
    
17.         Next x
    
18.         .Range("F2") = Round(100 / UBound(arr) * j, 1) & "分"
    
19.         .Range("A4").Resize(UBound(arr), UBound(arr, 2)) = arr
    
20.         MsgBox "正确:" & j & "题,错误:" & j1 & "题,本次测试正确率:" & Round(j / UBound(arr) * 100, 1) & "%"
    
21.     End With
    
22. End Sub

复制代码

心无间丶

谢谢分享