191问答库 > 一个VB获取随机数据的小程序，点击一下获取一个数字，怎么样编可以点击一下让他自己循环获取下去？

一个VB获取随机数据的小程序，点击一下获取一个数字，怎么样编可以点击一下让他自己循环获取下去？

2025-03-03 04:34:17

推荐回答（1个）

回答1：

'点击一下显示，再点击停止
Private Sub Command1_Click()
If Timer1.Interval = 1000 Then Timer1.Interval = 0 Else Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Dim myArray(1 To 1) As String
myArraystring = ""
For i = 1 To 1 Step 1
myArray(i) = Int(100 * Rnd + 1)
myArraystring = myArraystring & " " & myArray(i)
Next i
Print "传感器显示温度为："
Print myArraystring
End Sub