Question

求一个用vb做的比扑克牌大小的程序，只需比两张，哪位好心人帮帮吧，很急啊...

Answer 1

'简单大小比较
'窗体中添加2个picturebox，2个label
'picturebox用于显示扑克图片
Private Type PK
Pic As StdPicture
Num As Integer
End Type
Dim PK() As PK
Private Sub Form_Load()
Show
Label1.Caption = ""
Label2.Caption = ""
ReDim PK(2 To 14)
'Set PK(2).Pic = LoadPicture("路径+文件名")'扑克2的图片
PK(2).Num = 2
'Set PK(3).Pic = LoadPicture("路径+文件名")'扑克3的图片
PK(3).Num = 3
'Set PK(4).Pic = LoadPicture("路径+文件名")'扑克4的图片
PK(4).Num = 4
'Set PK(5).Pic = LoadPicture("路径+文件名")'扑克5的图片
PK(5).Num = 5
'Set PK(6).Pic = LoadPicture("路径+文件名")'扑克6的图片
PK(6).Num = 6
'Set PK(7).Pic = LoadPicture("路径+文件名")'扑克7的图片
PK(7).Num = 7
'Set PK(8).Pic = LoadPicture("路径+文件名")'扑克8的图片
PK(8).Num = 8
'Set PK(9).Pic = LoadPicture("路径+文件名")'扑克9的图片
PK(9).Num = 9
'Set PK(10).Pic = LoadPicture("路径+文件名")'扑克10的图片
PK(10).Num = 10
'Set PK(11).Pic = LoadPicture("路径+文件名")'扑克J的图片
PK(11).Num = 11 'J
'Set PK(12).Pic = LoadPicture("路径+文件名")'扑克Q的图片
PK(12).Num = 12 'Q
'Set PK(13).Pic = LoadPicture("路径+文件名")'扑克K的图片
PK(13).Num = 13 'K
'Set PK(14).Pic = LoadPicture("路径+文件名")'扑克A的图片
PK(14).Num = 14 'A
MsgBox "鼠标点击选择你认为大的"
End Sub
Private Sub Picture1_Click()
Dim i As Integer
Dim j As Integer
RndPic i, j
If i > j Then
MsgBox "正确"
Else
MsgBox "错误"
End If
End Sub

Private Sub Picture2_Click()
Dim i As Integer
Dim j As Integer
RndPic i, j
If j > i Then
MsgBox "正确"
Else
MsgBox "错误"
End If
End Sub
Private Sub RndPic(i As Integer, j As Integer)
Randomize
A:
i = Int((14 - 2 + 1) * Rnd + 2)
j = Int((14 - 2 + 1) * Rnd + 2)
If i = j Then GoTo A
Select Case i
Case 11
Label1.Caption = "J"
Case 12
Label1.Caption = "Q"
Case 13
Label1.Caption = "K"
Case 14
Label1.Caption = "A"
Case Else
Label1.Caption = i
End Select
Select Case j
Case 11
Label2.Caption = "J"
Case 12
Label2.Caption = "Q"
Case 13
Label2.Caption = "K"
Case 14
Label2.Caption = "A"
Case Else
Label2.Caption = j
End Select
Set Picture1.Picture = PK(i).Pic
Set Picture2.Picture = PK(j).Pic
End Sub

追问

谢了，扑克需要如何加进去啊

追答

Set PK(2).Pic = LoadPicture("路径+文件名")'扑克2的图片

路径+文件名替换为你自己的图片路径和文件名

Answer 2

寻求帮助时请麻烦写清楚你想要的到底是什么。作为广大热心人的一个我很难准确理解你想要的是什么。
1、你说的比较扑克牌大小，应该是指牌面大小吧，那么程序是通过哪种途径知道两张牌的途径的。是扫描牌面图像然后分析牌面内容？是直接使用参数？

2、或许你的意思是你想让程序觉得A>K>Q>J>10>9>8>7>6>5>4>3>2,同时黑红梅方大小有序，那显然你可以用一个二维数组记录一副牌，通过比较下标值判断大小。

3、如果你的程序已经做了一个开头，把它拿出来给我们看看，这会很有利于解决你的问题。

4、再次声明，百度知道是一个大家互相学习的平台，不是你直接索取的地方，就算你要索取也麻烦告诉清楚你到底要什么

追问

是的，我知道了，我们老师给做了头，一会我给你发过去，程序的意思就是从A2345一共20张牌中两个人每人选出两张，然后两张加起来比大小，谁大谁就赢，而且要用vb做，如果你会的话能帮帮我吗？我实在是没招了，看书也没看懂

追答

等你发程序吧

追问

这是程序和对应的图片