VB6抽牌问题
本帖最后由 man1991 于 2011-12-02 15:04:55 编辑 用随机函数吧.randomize因為我是新手....所以不會宣告....
n=Int(Rnd() * 5)
Private Sub Image1_Click(Index As Integer)
Select Case Index
Case 4
MsgBox "恭喜抽中"
Case Else
MsgBox "没抽中"
End Select
End Sub
image的位置用随机数去排列。
用1个button1_click
dim i as integer
randomize
i=int(Rnd()*4)
if i<3
msgbox""
else
msgbox""
end if
补充：VB , 基础类
