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

发布时间：2021-02-25 11:52:26

急求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 = 第一个数：
& aRandomize
b = Int(Rnd() * 89 + 10)
Me.Label2.Caption = 第二个数：
& bMe.Label3.Caption = 和：
& a + bIf a + b = 100 Then Me.Timer1.Enabled = False
End Sub
上面那个文本框是做什么不知道,看不清
以上问题属网友观点，不代表本站立场，仅供参考！