Question

急求vb代码 单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数

单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数，如果这两个数之和为100，则停止产生新的数，显示结果。随机数的界面如图所示。

Answer 1

Private Sub Command1_Click()
Me.Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Me.Label1.Caption = "第一个数："
Me.Label2.Caption = "第二个数："
Me.Label3.Caption = "和："
Me.Timer1.Interval = 100
Me.Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim a, b As Integer

Randomize
a = Int(Rnd() * 89 + 10)
Me.Label1.Caption = "第一个数：" & a
Randomize
b = Int(Rnd() * 89 + 10)
Me.Label2.Caption = "第二个数：" & b
Me.Label3.Caption = "和：" & a + b

If a + b = 100 Then Me.Timer1.Enabled = False

End Sub
上面那个文本框是做什么不知道,看不清

Answer 2

添加一个按钮控件和timer控件，把timer控件的interval属性设置为10（1000表示1秒），enable属性设置为false。并添加三个文本框，前两个用来接收随机数。
图片不是很清楚，其他的比如统计次数和输出随机数之和应该很简单，如果需要就在timer事件里面加上。
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim a, b As Integer
a = Int(90 * Rnd) + 10
b = Int(90 * Rnd) + 10
If a + b = 100 Then
Timer1.Enabled = False
End If
Text1.Text = a
Text2.Text = b
Text3.Text = a + b
End Sub

追问

还有一个计数，就是timer跳一次 就记一次 计数是 text1这是 我现在的代码
Private Sub Command1_Click()
Timer1.Interval = 100
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
x = Int(90 * Rnd + 10)
y = Int(90 * Rnd + 10)
z = x + y
Label1.Caption = x
Label2.Caption = y
Label3.Caption = z
If z = 100 Then Timer1.Enabled = False

End Sub