作业帮 > 综合 > 作业

vb随机数之和代码单击开始按钮以后每隔0.01秒产生2个10~99之间的随机数,如果这两个数之和为100,则停止产生新的

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/14 19:57:56
vb随机数之和代码
单击开始按钮以后每隔0.01秒产生2个10~99之间的随机数,如果这两个数之和为100,则停止产生新的数,显示结果.
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
a = Int(Rnd * 90 + 10)
b = Int(Rnd * 90 + 10)
If a + b = 100 Then Timer1.Enabled = False: Print a, b
End Su