怎么用vb制作扑克牌

发布网友发布时间：2022-11-27 07:12

共1个回答

热心网友时间：2023-10-15 00:59

　　Dim XipaiCishu As Integer

　　Private Type Pai
　　huase As String
　　shuzi As String
　　End Type

　　Dim Puke(53) As Pai

　　Private Sub Command1_Click()
　　Dim TempA(25) As Pai
　　Dim TempB(25) As Pai
　　Dim i As Integer

　　If XipaiCishu = 0 Then
　　Form1.Print "扑克原状为："
　　For i = 0 To 53
　　Form1.Print Tab((i Mod 13) * 10); Puke(i).huase & Puke(i).shuzi;
　　If i Mod 13 = 12 Then Form1.Print
　　Next i
　　Form1.Print
　　Else
　　For i = 0 To 25
　　TempA(i) = Puke(i)
　　TempB(i) = Puke(i + 26)
　　Next i
　　For i = 0 To 25
　　Puke(i * 2) = TempA(i)
　　Puke(i * 2 + 1) = TempB(i)
　　Next i

　　Form1.Cls
　　Form1.Print "第" & XipaiCishu & "次洗牌："

　　' 洗牌前
　　Form1.Print "左手："
　　For i = 0 To 25
　　Form1.Print Tab((i Mod 13) * 10); TempA(i).huase; TempA(i).shuzi;
　　If i Mod 13 = 12 Then Form1.Print
　　Next i
　　Form1.Print "右手："
　　For i = 0 To 25
　　Form1.Print Tab((i Mod 13) * 10); TempB(i).huase; TempB(i).shuzi;
　　If i Mod 13 = 12 Then Form1.Print
　　Next i
　　Form1.Print

　　For i = 0 To 53
　　Form1.Print Tab((i Mod 13) * 10); Puke(i).huase & Puke(i).shuzi;
　　If i Mod 13 = 12 Then Form1.Print
　　Next i
　　Form1.Print
　　End If

　　XipaiCishu = XipaiCishu + 1
　　End Sub

　　Private Sub Form_Initialize()
　　Dim i As Integer
　　Dim j As Integer
　　' Dim Shuzi0 As String

　　For i = 0 To 3
　　For j = 0 To 12
　　Select Case i
　　Case 0
　　Puke(i * 13 + j).huase = "黑桃"
　　Case 1
　　Puke(i * 13 + j).huase = "红桃"
　　Case 2
　　Puke(i * 13 + j).huase = "梅花"
　　Case 3
　　Puke(i * 13 + j).huase = "方块"
　　End Select
　　If j = 0 Then
　　Puke(i * 13 + j).shuzi = "A"
　　ElseIf j < 10 Then
　　Puke(i * 13 + j).shuzi = CStr(j + 1)
　　ElseIf j = 10 Then
　　Puke(i * 13 + j).shuzi = "J"
　　ElseIf j = 11 Then
　　Puke(i * 13 + j).shuzi = "Q"
　　ElseIf j = 12 Then
　　Puke(i * 13 + j).shuzi = "K"
　　End If
　　Next j
　　Next i
　　Puke(52).huase = "彩色"
　　Puke(52).shuzi = "王"
　　Puke(53).huase = "黑白"
　　Puke(53).shuzi = "王"

　　XipaiCishu = 0
　　End Sub

　　只在窗体上加一个按钮就行了，还有要吧窗体啦的足够大。。。

参考资料：qq群里找的