VB编程问题 高手请进

来源：百度知道 编辑：UC知道 时间：2024/05/28 10:48:41
用顺序结构程序设计：设计小学生四则运算器应用程序

请给出代码 谢谢

3个 text 和 4个按钮把[其实你要怎么设计都行 代码基本一样 只改点]
按钮1的（+）
text3=val(text1)+val(text2)
........其他的运算相同
除的要 判断 text2不为0 [if text2 =0 then exit sub:msgbox "这个要不要随便你"]

Private Sub Command1_Click()
text3=val(text1)+val(text2)
End Sub

Private Sub Command2_Click()
text3=val(text1)-val(text2)
End Sub

Private Sub Command3_Click()
text3=val(text1)*val(text2)
End Sub

Private Sub Command4_Click()
if text2 =0 then exit sub:msgbox "除数不为0"
text3=val(text1)/val(text2)
End Sub

题目不是太全,我编写的是随机出10以内的4则运算..

Private Sub Command1_Click()
Dim a%, b%, c%, d%
Randomize
c = Int(Rnd * 4 + 1) '随机运算符号
a = Int(Rnd * 9 + 1) '随机2个10以内的数,a和b
b = Int(Rnd * 9 + 1)

If c = 2 Then '减法时,大数放前面,不出现负数
d = IIf(a >= b, a, b)
b = IIf(a >= b, b, a)
a = d
End If

If c = 4 Then a = b * Int(Rnd * 9 + 1)