给你十种答案吧
创新互联建站是一家专注于成都网站建设、网站制作与策划设计,蓬莱网站建设哪家好?创新互联建站做网站,专注于网站建设十载,网设计领域的专业建站公司;建站业务涵盖:蓬莱等地区。蓬莱做网站价格咨询:13518219792
1、1*2*3*4＝24
2、2*〔3+4+5〕＝24
3、6*〔5-4+3〕＝24
4、4*〔7-6+5〕＝24
5、8*〔7-1〕/2＝24
6、9+5+6+4＝24
7、6*〔7-1-2〕＝24
8、4*〔9-6+3〕＝24
9、4*7-8/2＝24
10、5*6-2*3＝24
只要在代码中使用随机函数即可实现随机抽取功能
一、vb随机数生成的方法
vb随机数生成函数是 Rnd[(number)]，number 参数为可选项。在调用 Rnd 生成随机数之前，先使用 Randomize 初始化随机数生成器来产生种子，该生成器是根据系统计时器来产生种子的。
1、生成100以内的随机数
Randomize
Int(Rnd() * 100)//生成 0 - 99 之间的随机数
Int(Rnd() * 101)//生成 0 - 100 之间的随机数
2、生成指定范围随机数
由于 vb 没有提供直接生成指定范围随机数的函数，所以要把 Rnd 变通一下，方法如下：
Int((上限 - 下限 + 1) * Rnd + 下限);
把它封装成可直接调用的函数如下：
Function GetRandom(under, over As Integer) As Integer
If under over Then
temp = under;
under = over;
over = temp;
End If
Randomize
GetRandom = Int((under - over + 1) * Rnd + over);
End Function
调用方法：
GetRandom(10, 100);//生成10到100的随机数
二、vb.net生成随机数的方法
1、方法：Random.Next(int minValue, int maxValue);
2、说明：
若 minValue 和 maxValue 都没有提供，则生成一个 0 - 2147483647 之间的随机数；
若 minValue 和 maxValue 只提供一个，则生成一个 0 - maxValue 之间的随机数；
若 minValue 和 maxValue 两个都提供，则生成一个 minValue - maxValue 之间的随机数；
3、举例
Dim ran = New System.Random()
ran.Next()//生成 0 - 2147483647 之间的随机数
ran.Next(100)//生成 0 - 100 之间的随机数
ran.Next(10, 100)//生成 10 - 100 之间的随机数
Dim ran = New Random(DateTime.Now.Millisecond)//通过日期的微秒生成随机数
请问是不是系统自动发牌？如果是的话你就可以从2345678910 jqka 大王小王种选随机抽选，然后定义j为11，q为12 k为13 a为14 小王为15，大王为16 然后在进行比较。第二题就是抽选两个数，然后加起来进行比较。你写的代码应该差不多哦，我电脑上没安装6.0，安装有net，无法给你试验
代码肯定会很长 我就说说我的思路吧
考虑用循环和数组和随机抽取函数和全局变量2个
先创建一个动态数组通过一个循环 步长放1到13，加一个随机抽函数1-13，在通过一个步长为4的循环，准备两个空数组分别记录循环来的牌，在遍历其中一个数组 根据其中的值去抽取对应的图片 并加载到动态控件图片属性中 并为每个控件增设一个属性值 随机的时候 当用户点击其中一张牌 这时全局变量1就会记录你点击的是那张牌 同时让机器那个数组也随机抽取一个数组 对应的值 并选择对应图片 跟你比大小 就是两个全局变量谁的大 大的一方 标签上加2 如果是机器智能选牌 直接可以在她的数组中找出比你大的那个即可 至于王两张 你可以在两个数组后完成分配 比较简单 52张牌 值1代表的图片3 依次类推就可以了；
