急求vb代码 单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数,如果这两个数之和为100,则停止产生新的数,显示结果.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/01 02:18:45
![急求vb代码 单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数,如果这两个数之和为100,则停止产生新的数,显示结果.](/uploads/image/z/2756127-39-7.jpg?t=%E6%80%A5%E6%B1%82vb%E4%BB%A3%E7%A0%81+%E5%8D%95%E5%87%BB%E2%80%9C%E5%BC%80%E5%A7%8B%E2%80%9D%E6%8C%89%E9%92%AE%E5%90%8E%E6%AF%8F%E9%9A%940.01%E7%A7%92%E4%BA%A7%E7%94%9F2%E4%B8%AA%E9%9A%8F%E6%9C%BA%E6%95%B010-99%E4%B9%8B%E9%97%B4%E7%9A%84%E9%9A%8F%E6%9C%BA%E6%95%B0%E5%8D%95%E5%87%BB%E2%80%9C%E5%BC%80%E5%A7%8B%E2%80%9D%E6%8C%89%E9%92%AE%E5%90%8E%E6%AF%8F%E9%9A%940.01%E7%A7%92%E4%BA%A7%E7%94%9F2%E4%B8%AA%E9%9A%8F%E6%9C%BA%E6%95%B010-99%E4%B9%8B%E9%97%B4%E7%9A%84%E9%9A%8F%E6%9C%BA%E6%95%B0%2C%E5%A6%82%E6%9E%9C%E8%BF%99%E4%B8%A4%E4%B8%AA%E6%95%B0%E4%B9%8B%E5%92%8C%E4%B8%BA100%2C%E5%88%99%E5%81%9C%E6%AD%A2%E4%BA%A7%E7%94%9F%E6%96%B0%E7%9A%84%E6%95%B0%2C%E6%98%BE%E7%A4%BA%E7%BB%93%E6%9E%9C.)
急求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
上面那个文本框是做什么不知道,看不清