Question

vb编写windows纸牌游戏

请问如果图片不用52张如何处理？vb中如何运用数组对纸牌进行编号，以及如何对数组进行随即发牌？讲一下思想，谢谢
问题有点多，呵呵！
按照你们说的是不是要每张牌都创建一个框体？

Answer 1

你可以对52张图片进行编号1——52
黑桃A 1，红桃A 2。。。。
编号n整除4 为牌号（A-k）
n mod 4为花色
然后loadpicture。。。就可以了

再创建一个boolean数组b（52），和a个数一样
for i=1 to 52
b(i)=false
next
在使用a（j）时，先判断b（j）有没有使用（为true则被使用了），使用了则再取，再判断，直到未使用为止，使用之后置相应的b（*）为true

Answer 2

DIM P(52) as string '编号，其中1-52代表牌的属性

dim a(13) as string '只是假设，A方拥有13张
dim b(13) as string '同上，B方

A，B随机抽取P数组中的数据，抽取后P数组后面做标记，如 P(13)="A,T"

关键地方在牌的规则与智能AI编写，你要考虑是这些问题

Answer 3

第一个问题说的我不理解。你可以生成一个结构变量。内容为一个图片框，一个牌的号，一个牌的花。在初始化的时候 将牌的图显示在结构变量中的图片框中，将牌号写在结构变量的序号中，把牌的花写在结构变量的花号中。然后再声明一个该结构变量的数组。然后再用写一个生成随机数列的函数。生成一个随机数列。假设建了一个card类型的结构变量，cards（随机数列函数返回的数组（i）)这样来发牌。至于图片那就cards（随机数列函数返回的数组（i）).picturebox.pictue=loadpicture("路径")。同时将cards（随机数列函数返回的数组（i）).cardno进行赋值。然后cards（随机数列函数返回的数组（i）).cardflw进行赋值。这样判断牌的号和花就很简单了。

Answer 4