vb练习一百内加减法程序,不是计算器
输入加数/被减数和另一加数//减数,然后自己输入结果。正确给出正确,错误可重做,并给出错误请重做...
输入加数/被减数和另一加数//减数,然后自己输入结果。正确给出正确,错误可重做,并给出错误请重做
展开
2个回答
展开全部
界面按下图设计:
在运行前把 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 If
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Label1.Caption = "" '初始化
Label2.Caption = "="
Command1.Caption = "答题"
Call ChangeProblem
End Sub
Private 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 If
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询