我想用VB制作一个小程序,200以内的数字随机生成。求程序,求制作方法。。。

2024-12-04 08:43:22
推荐回答(3个)
回答1:


回答2:

Private Sub Command1_Click()

    Randomize

    Text1.Text = Int(Rnd * 201)

End Sub

你需要text1,command1各一个,然后复制代码就可以了。

回答3:

Option Explicit

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

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

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Randomize
Label1.Caption = Int((200 - 1 + 1) * Rnd + 1)
End Sub