懂vb的速进啊

来源：百度知道 编辑：UC知道 时间：2024/06/27 17:56:59
做个简单2随即位加法出题器，要求一个标签，label1，一个文本框，输入答案用，两个按钮一个用于出题，一个用于确认，对了，显示对，错了显示你答错了。
高手注意了啊，不是做三个文本框的加法，只要一个标签，一个文本框，两个按钮。啊，谢了啊
不会的不要装成自己不想做，你们这些人一点技术含量都没。我做好了。只不过想看看哪个代码优化到最低

先建立两个命令按钮，一个标签，一个文本框即可。
Dim a, b, c As Integer
Private Sub Command1_Click()
Text1.Text = ""
Text1.SetFocus
Randomize
a = Round(Rnd(1) * 100)
b = Round(Rnd(2) * 50)
Label1.Caption = Format(a) + "+" + Format(b) + "="
End Sub

Private Sub Command2_Click()
c = Text1.Text
If Val(c) = a + b Then
MsgBox ("你算对了！")
Else
MsgBox ("你算错了！")
End If
End Sub

没意思

不想动脑

这难吗?

你怎就这么懒呢

这也不练习

你能学会吗