Dim strr As String Dim ok As Integer Private Sub Form_Load() Randomize Timer Me.Hide Open App.Path & "\out4.txt" For Output As #1 strr = "黑桃A 黑桃2 黑桃3 黑桃4 黑桃5 黑桃6 黑桃7 黑桃8 黑桃9 黑桃10 黑桃J 黑桃Q 黑桃K 紅心A 紅心2 紅心3 紅心4 紅心5 紅心6 紅心7 紅心8 紅心9 紅心10 紅心J 紅心Q 紅心K 紅鑽A 紅鑽2 紅鑽3 紅鑽4 紅鑽5 紅鑽6 紅鑽7 紅鑽8 紅鑽9 紅鑽10 紅鑽J 紅鑽Q 紅鑽K 黑花A 黑花2 黑花3 黑花4 黑花5 黑花6 黑花7 黑花8 黑花9 黑花10 黑花J 黑花Q 黑花K" strrr = Split(strr, " ") For i = 1 To 4 ok = 0 Do k = Int(Rnd() * 52) If strrr(k) <> "" Then Print #1, strrr(k) & " ";: strrr(k) = "": ok = ok + 1 Loop Until ok = 13 Print #1, Next Close #1 End End Sub
Dim strr As String
回覆刪除Dim ok As Integer
Private Sub Form_Load()
Randomize Timer
Me.Hide
Open App.Path & "\out4.txt" For Output As #1
strr = "黑桃A 黑桃2 黑桃3 黑桃4 黑桃5 黑桃6 黑桃7 黑桃8 黑桃9 黑桃10 黑桃J 黑桃Q 黑桃K 紅心A 紅心2 紅心3 紅心4 紅心5 紅心6 紅心7 紅心8 紅心9 紅心10 紅心J 紅心Q 紅心K 紅鑽A 紅鑽2 紅鑽3 紅鑽4 紅鑽5 紅鑽6 紅鑽7 紅鑽8 紅鑽9 紅鑽10 紅鑽J 紅鑽Q 紅鑽K 黑花A 黑花2 黑花3 黑花4 黑花5 黑花6 黑花7 黑花8 黑花9 黑花10 黑花J 黑花Q 黑花K"
strrr = Split(strr, " ")
For i = 1 To 4
ok = 0
Do
k = Int(Rnd() * 52)
If strrr(k) <> "" Then Print #1, strrr(k) & " ";: strrr(k) = "": ok = ok + 1
Loop Until ok = 13
Print #1,
Next
Close #1
End
End Sub