求一个VB程序代码是关于抽奖的随机跳出1--48号的数字

发布网友发布时间：2023-02-03 12:39

共3个回答

热心网友时间：2024-12-05 01:56

告诉你最简单的，下面的直接复制就行了
Private Sub Form_click()
Randomize
Dim x As Integer
x = Int(Rnd * 48 + 1)
Print x
End Sub
速度给分追问怎么让LABEL背景是透明的？

追答把label的backstyle的值设置成0

热心网友时间：2024-12-05 01:57

规格：800 * 600格式为BMP，JPG。 3。请大家好好看看华丽的电脑抽奖软件界面如上所述，经历了数千次，“江蓝电脑产生的随机彩票软件”，它是一个

热心网友时间：2024-12-05 01:57

Randomize '没有这个你每次重新运行程序出来的数都是一样的。

MsgBox Int(48 * Rnd + 1)

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

求一个VB程序 代码 是关于抽奖的 随机跳出1--48号的数字