作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/10 11:52:11
急求vb代码 单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数
单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数,如果这两个数之和为100,则停止产生新的数,显示结果.随机数的界面如图所示.
急求vb代码 单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数
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
上面那个文本框是做什么不知道,看不清