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