交通工具死亡率:100以内加法用随即函数原代码

这个是一个已经完成的测验题目，出5到两位数的加法题，提交后计算得分，每题20分，你参考一下：

1、创建窗体，其中添加1个标签和一个文本框，默认名称是Label1和Text1，选择这两项，复制，粘贴创建控件数组，共计5组。

2、放置三个命令按钮，显示内容分别设置为“出题”、“提交”、“清空”。

3、粘贴下面的代码，运行即可。

4、其中，进行了一些设置：设置随机种子，避免每次运行出题相同；对随机数调整，使其保证是两位数。

Option Explicit
Dim I As Integer, Num1 As Integer, Num2 As Integer, N As Integer
Dim Anser(0 To 4) As Integer, Score As Integer

Private Sub Command1_Click()
Randomize
'使用随机种子，避免每次数值相同
For I = 0 To 4
Num1 = Rnd(1) * 89 + 10
Num2 = Rnd(1) * 89 + 10
'89和10的选择目的，是保证随机数的范围是10～99
Label1(I) = Num1 & "+" & Num2 & "="
Anser(I) = Num1 + Num2
Next
End Sub

Private Sub Command2_Click()
Score = 0
For I = 0 To 4
If Val(Text1(I)) = Anser(I) Then Score = Score + 20
Next
MsgBox "你的测验得分是:" & Score & "分", , "测验结果"
End Sub

Private Sub Command3_Click()
For I = 0 To 4
Text1(I) = ""
Label1(I) = ""
Next
End Sub