vb练习一百内加减法程序，不是计算器

vb练习一百内加减法程序，不是计算器~

界面按下图设计：

在运行前把 Text1 和 Text2 的 Locked 属性调为 True。

以下为代码：
Private Sub Command1_Click() '答题正误判断 If Label1.Caption = "+" Then If Val(Text3.Text) Val(Text1.Text) + Val(Text2.Text) Then Label3.Caption = "你答错了!! 请重试. " Else Label3.Caption = "恭喜你答对了! " ChangeProblem End If Else If Val(Text3.Text) Val(Text1.Text) - Val(Text2.Text) Then Label3.Caption = "你答错了!! 请重试. " Else Label3.Caption = "恭喜你答对了! " ChangeProblem End If End IfEnd SubPrivate Sub Form_Load() Text1.Text = "" Text2.Text = "" Label1.Caption = "" '初始化 Label2.Caption = "=" Command1.Caption = "答题" Call ChangeProblemEnd SubPrivate Sub ChangeProblem()Dim i As Byte Randomize '随机生成题目 Text1.Text = Trim$(Str$(Int(Rnd * 100 + 1))) Text2.Text = Trim$(Str$(Int(Rnd * 100 + 1))) i = Int(Rnd * 2) If i = 0 Then Label1.Caption = "+" Else Label1.Caption = "-" End If If Val(Text1.Text) < Val(Text2.Text) Then Dim Temp As String Temp = Text1.Text Text1.Text = Text2.Text Text2.Text = Temp End IfEnd Sub

作业题，坚决不给完整答案！

建立text1 text2 text3 command1 command2控件
代码：
Dim a As Long
Dim b As Long
Dim c As Long

Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a + b = c Then
MsgBox "恭喜您！回答正确", , "提示"
Else
MsgBox "回答错误，请重新做题!", , "提示"
End If

End Sub

Private Sub Command2_Click()
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a - b = c Then
MsgBox "恭喜您！回答正确", , "提示"
Else
MsgBox "回答错误，请重新做题!", , "提示"
End If

End Sub

Private Sub Form_Load()
Command1.Caption = "+"
Command2.Caption = "-"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

End Sub

我是hahaboqi，因为百度不让我修改回答所以我用我弟的帐号来纠正一下。

上面回答的第一句：要3个text分别命名为textsj1，textsj2和text1
这里的三个名称的首字母改正一下，都改为大写T应该就行了，我本人测试没问题。如果还不行就在声明那里加上dim a,b as integer这句然后
把你所说的加法按钮（command1）的Textsj1.text=sj1和下面一句Textsj2.text=sj2改成a=sj1和b=sj2并在他的代码里加上
Textsj1.text=a
Textsj2.text=b
如果是减法按钮的（command2）就把他的代码删掉，重新写上
Private Sub Command2_Click()
Label1.Caption = "-"
Randomize
sj1 = Int(Rnd * 100) + 1
sj2 = Int(Rnd * 100)
a=sj1'这里我也改了
b=sj2
If sj1 > sj2 Then
Textsj1.Text = a'这里和else下面我都做了改变
Textsj2.Text = b
Else
Textsj1.Text = b
Textsj2.Text = a
End If
End Sub

还有一个问题，你用的是vb6还是vb2005还是vb.net
我觉得它们的代码好像都不一样

就这样了，如果你要评我为最佳答案请把分加在hahaboqi上！

你出错时他弹的提示框里写的是什么？？？

你加我的百度号，我把源文件发给你！

---

vb练习一百内加减法程序，不是计算器视频