24h購物| | PChome| 登入
2005-04-12 10:00:33| 人氣53| 回應0 | 上一篇 | 下一篇

xx

推薦 0 收藏 0 轉貼0 訂閱站台

Private Sub Form_Activate()
For i = 0 To 4
Randomize
x = Int(Rnd * 12) + 1
Print x;
p(i).Picture = LoadPicture("d:cardd" + Trim(Str(x)) + ".gif")



Next


End Sub

台長: 酷仔♫° 瘋 
人氣(53) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 數位資訊(科技、網路、通訊、家電)

是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼:
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文