[求助]用VB编一个随机抽奖的程序

时间：2014.06.21 发布人：lukygood9213
[求助]用VB编一个随机抽奖的程序

已解决问题

谷歌lukygood9213用户在2014.06.21提交了关于“我的战争[求助]用VB编一个随机抽奖的程序”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2025-02-23T20:26:12。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，没有什么华丽的语言,但是我对你的感谢不会减少 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：tt66662696  

在vb长里新建一个工程
添加一个Command和Label控件在Command1的属性窗里把Caption设置成开始

代码：
''''''''''''''''''燃孝'''御镇'''''''专她棉财''''''''皮拆不我刘亲材失依的节白精稿
PrivateSubCommand1_Click()
DimRAsInteger
IfCom破器回气督妒冷林mand1.Capt市克纸班缩出束死妈初ion="开始"T木五象给倍hen
Command气除逐医刻聚左笑胞1.Caption="花例笑位语当停止"
Else
Command1.Caption="开始"
EndIf

WhileCommand1.Caption="停止"
R=Int((36*Rnd)+1)
Label1.Caption=R
DoEvents
Wend

IfR=24ThenM概卷无物sgBox"恭喜24号中奖"

EndSub
''''''''''''''''''''''市剂早编夫重既极''''''''''''''''''''''