vb编程加法

来源：百度知道 编辑：UC知道 时间：2024/05/14 14:29:39
1，请编制程序，标签框上显示加法题，是使用随机函数生成0到100以内的整数加法题，文本框中等待用户输入结果，按下按钮1（标题为“检测”）检测用户输入数据是否是加法题的正确结果，如果正确给用户正确提示，如果不正确提示用户答案错误。

2，请编制程序，标签框上显示加法题，是使用随机函数生成0到100以内的整数加法题，文本框中等待用户输入结果，按下按钮1（标题为“下一题”）

，程序判断用户输入的结果是否正确，并且再出一道题；将用户作对的题数和总题数记录到变量中，当用户按下按钮2（标题为“完成”），使用消息框通知作对的题数和总题数及分数（对的/总数*100）。

第一道题跟第二道重复了
我写了完整代码，你可以看一下

Dim a, b, c, i As Integer
Dim j%
Private Sub Command1_Click()
c = Val(Text1.Text)
If c = a + b Then
i = i + 1
MsgBox ("正确")
a = Int(Rnd * 100)
b = Int(Rnd * 100)
Label1.Caption = a & "+" & b
Text1.Text = ""
Text1.SetFocus
Else
j = j + 1
MsgBox ("错误")
a = Int(Rnd * 100)
b = Int(Rnd * 100)
Label1.Caption = a & "+" & b
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click()
MsgBox ("您一共做了" & i + j & "道题，做对了" & i & "道，得分" & i * 100 / (i + j))
End Sub
Private Sub Form_Load()
Command1.Caption = "检测"
Command2.Caption = "完成"
a = Int(Rnd * 100)
b = Int(Rnd * 100)
Label1.Caption = a & "+" & b
j = 0
i = 0
Text1.Text = ""
Text1.TabIndex =