Question

利用时钟控件自动产生10到90之间的随机整数，点击“开始”按钮运行，点击“停止”按钮在指定的位置显示结

利用时钟控件自动产生10到90之间的随机整数，点击“开始”按钮运行，点击“停止”按钮在指定的位置显示结果。

速度!
急需!
在线等!
代码速度!
Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()

End Sub

Private Sub Timer1_Timer()

End Sub
填入就行
急需啊!
谢谢了!

Answer 1

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
a=str(int(rnd*81+10))
指定的位置=a '在指定的位置显示结果?不明白你的指定位置在什么地方
End Sub

Answer 2

Dim i As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Me.Caption = i
End Sub

Private Sub Timer1_Timer()
If i >= 90 Then
i = 10
Else
i = i + 1
End If
End Sub
什么要用时间控件？费解。

Answer 3

Option Explicit

Private Sub Command1_Click()
Timer1.Interval = 50
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Randomize
Text1 = CStr(Int((99 * Rnd) + 10))
DoEvents
End Sub

Answer 4

Private Sub Command1_click()
Dim i
timer1.Enabed=true
i=Rnd(0,100)*100
End Sub

Private Sub Command2_click()
timer1.Enabled=Flase
Print i
End Sub
Private Sub Timer1_Timer()
If i >= 90 or i<=10 Then
i = 10
End If
End Sub