VB6抽牌问题 本帖最后由 man1991 于 2011-12-02 15:04:55 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 randomizen=Int(Rnd() * 5) Private Sub Image1_Click(Index As Integer)Select Case IndexCase 4 MsgBox "恭喜抽中"Case Else MsgBox "没抽中"End SelectEnd Subimage的位置用随机数去排列。 用1个button1_clickdim i as integerrandomizei=int(Rnd()*4)if i<3msgbox""elsemsgbox""end if 如何用MSChart对MSHFlexGrid中的数据进行二维图形绘制 求助:richtextbox控件编写保存文件时回自动多出一些文字,如何解决 如何用VB编写一个注册控件OCX的代码 求优化界面用控件……分不多,谢 50分征求关于WEBBROWSER的解决答案 关于下载的问题 为什么我的.dll不能注册成功? 谁给解释一下多线程是怎么回事,以及怎么实现? 披星戴月好辛苦,普天同庆来祝福 看一个引用 如何获取一个读卡器设备所用的串口号 关于VB锁定游戏的某值
n=Int(Rnd() * 5)
Private Sub Image1_Click(Index As Integer)
Select Case Index
Case 4
MsgBox "恭喜抽中"
Case Else
MsgBox "没抽中"
End SelectEnd Sub
image的位置用随机数去排列。
dim i as integer
randomize
i=int(Rnd()*4)
if i<3
msgbox""
else
msgbox""
end if