vb 在label中随机产生10以内的加减乘除怎么做

Question

如题所述

Answer 1

在窗体上加1个标签label1，一个按钮Command1，参考代码如下：
Private Sub Command1_Click()
Dim a(1 To 2) As Integer
Dim x As Integer
Dim n As Integer
Dim i As Integer
Dim TF As Boolean
Dim MyOP As String

'产生2个不相等的数，用于运算
Randomize
n = 0
Do While n < 2
x = Int((10 * Rnd) + 1) ' 生成 1 到 10 之间的随机数值。
TF = False
For i = 1 To n
If x = a(i) Then
TF = True
Exit For
End If
Next i
If Not TF Then
n = n + 1
a(n) = x
End If
Loop

'产生1个1--4中的任意一个数，表示运算符号
'1----表示加法
'2----表示减法
'3----表示乘法
'4----表示除法

Randomize
x = Int((4 * Rnd) + 1) '生成 1 到 4 之间的随机数值。
Select Case x
Case 1
MyOP = "＋"
Case 2
MyOP = "－"
Case 3
MyOP = "×"
Case 4
MyOP = "÷"
End Select

'将算式显示在标签Label1里
Label1.Caption = a(1) & MyOP & a(2) & "= ？"

End Sub