帮忙！！求VB代码

来源：百度知道 编辑：UC知道 时间：2024/05/24 02:01:57
1-37个数字随机显示，没时间了，帮我做个行么……………………谢谢！

假设你用Label1来显示这个数：
Private Sub Form_Load()
Randomize
End Sub
Private Sub Command1_Click（）
Label1.Caption=CStr(Int(Rnd * 37) + 1)
End Sub
这样你每点一次按钮就会变换显示。如果你是想做成类似天抽奖的样子，可以加个Timer，在Form_Load里加上Timer.Enable=False,在Command1_Click里加上Timer.Enable=True。你可以设置Timer的Interval属性来改变变换速度。

Private Sub Command1_Click（）
Randomize
n = Int(Rnd * 37 + 1)
End Sub

Private Sub Command1_Click()
Randomize
Text1 = Fix(Rnd * 37) + 1
End Sub

Dim dat(37) As Integer

Private Sub Command1_Click()
Randomize
Dim i As Integer
i = Int((37 - 1 + 1) * Rnd + 1)
Command1.Caption = dat(i)
End Sub

Private Sub Form_Load()
'初始化数组
Randomize
For i = 1 To 37
dat(i) = Int((100 - 10 + 1) * Rnd + 10)
Next
End Sub