誰會這題VB??我想用Rnd函數作出一個撲克牌的1~13數字可是也要兼顧花色(方塊 紅心 梅花 黑桃)盡可能用if then else或 select case 作謝謝!!
2006-03-08 16:19:04 · 2 個解答 · 發問者 Anonymous in 電腦與網際網路 ➔ 程式設計
恩
是隨機
不過一次跑一個而已
2006-03-09 10:35:44 · update #1
Private Sub Command1_Click()Dim N As Integer, S As StringRandomizeN = Int(Rnd * 52)Select Case N \ 13 Case 0: S = "黑桃" Case 1: S = "紅心" Case 2: S = "梅花" Case 3: S = "方塊"End SelectN = N Mod 13 + 1Print S; NEnd Sub
2006-03-08 19:03:20 · answer #1 · answered by W.J.S. 7 · 0⤊ 0⤋
請問你意思是說讓他隨機發牌嗎??
>> 紅心6.黑桃2.梅花11.紅心1
然後跑52個字串出來這樣子??
2006-03-08 20:14:32 · answer #2 · answered by Shinwill 4 · 0⤊ 0⤋