VB随机出现一位数、二位数、三位数并计算

来源：百度知道 编辑：UC知道 时间：2024/06/16 18:57:21
先在菜单选择位数：一位数、二位数、三位数；然后在第二个菜单选择运算法，如：加、减、乘；接着选择命题，在一个TEXT文本框中显示题目； 比如选择二位数，加法 然后在TEXT文本中显示随机数：29+16= 让你做 请问这道题该怎么做？

'选择1位
Private Sub BiteOne_Click()
MakeNumber (9)
End Sub
'选择2位
Private Sub BiteTwo_Click()
MakeNumber (99)
End Sub
'选择3位
Private Sub BiteThree_Click()
MakeNumber (999)
End Sub

'选择加法
Private Sub Jia_Click()
Me.Text2 = "+"
End Sub
'选择减法
Private Sub Jian_Click()
Me.Text2 = "-"
End Sub
'选择乘法
Private Sub Cheng_Click()
Me.Text2 = "x"
End Sub
'选择除法
Private Sub Chu_Click()
'第二个数不能为0
If Me.Text3 <> "0" Then
Me.Text2 = "/"
Else
MsgBox "number 0 is wrong!"
End If
End Sub
'生成随机数
Public Sub MakeNumber(bitenum As Integer)
Dim a As Integer
Dim b As Integer
Me.Text1 = ""
Me.Text3 = ""
'保证位数
a = Rnd