VB编写一个350选一的程序

来源：百度知道编辑：UC知道时间：2024/05/18 01:31:06

我对VB只是了解一点点，想做一个程序，大体意思是：设置开始和停止，点击开始时，350开始跳动，点击暂停随机选出一个0-350之间的数字（包括350在内），哪位高手帮帮我这个菜鸟啊？

你看看吧添加一个text 两个command

Dim ys As Single, zt As Boolean

Private Sub Form_Load()

Command1.Caption = "开始"

Command2.Caption = "暂停"

Text1.Text = "0"

End Sub

Private Sub Command1_Click()

ys = 0.01

zt = False

Call zcx

End Sub

Private Sub Command2_Click()

zt = True

End Sub

Private Sub zcx()

Dim t As Single, i As Integer

Do While ys < 0.4

Text1.Text = CStr(i)

i = IIf(i > 350, 0, i + 1)

If zt = True Then ys = ys + 0.02

t = Timer

Do While Timer - t <= ys