Do
Randomize
kinds=Int(4*Rnd+1)
Select Case kinds
	Case 1 kind="クラブ"
	Case 2 kind="スペード"
	Case 3 kind="ダイア"
	Case 4 kind="ハート"
End Select
nums=Int(13*Rnd+1)
Select Case nums
	Case 1 num="Ａ"
	Case 11 num="Ｊ"
	Case 12 num="Ｑ"
	Case 13 num="Ｋ"
	Case Else num=nums
End Select
res=MsgBox ( "あなたのカードは、" & kind & "の" & num & "です。" ,vbOKCancel)
Loop While res=vbOK