Question

请问一下~在vb中，一道数学题要随机生成两个数学运算符号（加减乘除）进行混合运算怎样做？？谢谢~~

Answer 1

Option Explicit

Private Sub Command1_Click()
Dim A
Dim B
Dim C
Dim D
Dim E

Dim Fu1
Dim F1
Dim Fu2
Dim F2

A = Int(Rnd(1) * 100) + 1
B = Int(Rnd(1) * 100) + 1
C = Int(Rnd(1) * 100) + 1
Fu1 = Int(Rnd(1) * 4) + 1

Select Case Fu1
Case 1
D = A + B
F1 = "+"
Case 2
D = A - B
F1 = "-"
Case 3
D = A * B
F1 = "*"
Case 4
D = A / B
F1 = "/"
End Select

Select Case Fu1
Case 1
E = D + C
F2 = "+"
Case 2
E = D - C
F2 = "-"
Case 3
E = D * C
F2 = "*"
Case 4
E = D / C
F2 = "/"
End Select

Print A; F1; B; F2; C; "="; E

End Sub

Private Sub Form_Load()
Me.AutoRedraw = True
Randomize Timer
End Sub

你自己看吧

随即生成 3个数，2个符号，然后自己算，打印结果。

那分来， 10分太少了！！！