求高手赐我VB代码

来源：百度知道编辑：UC知道时间：2024/06/03 23:04:27

要一个抽奖软件。抽奖号码从1～300号。麻烦大家了

Private Sub Command1_Click()
num = Int(Rnd * (300) + 1)
MsgBox num
End Sub
注意：这是楼上写的
补充:抽取随机数字的方法是:
int( ( 随机数字上限 - 随机数字下线 + 1 ) * rnd + 随机数字下线 )

Private Sub Command1_Click()
num = Int(Rnd * (300) + 1)
MsgBox num
End Sub

随机数：Int(Rnd *(最大值 - 最小值 + 1) + 最小值)
我就无语了， “牛气十足”你直接复制我的答案者算什么？

Private Sub From_load()
num = Int(Rnd * (300) + 1)
print num
End Sub