急 VB随机抽取数字代码。回答好的一定加分!!!
PrivateSubCommand1_Click()
Text1.Text=Str(Int(42*Rnd)+1)'随机抽取1----42,把42改成几,就随机抽取1到几
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
EndSub
PrivateSubForm_Load()
Text1.Text=""
Command1.Caption="选号"
Command2.Caption="清零"
EndSub
上一篇:java怎么实现随机抽取上传信息
下一篇:随机抽取整条数据
多重随机标签