vb.net编写24点计算源代码

最新推荐文章于 2021-07-29 05:17:46 发布
最新推荐文章于 2021-07-29 05:17:46 发布
阅读量212 收藏
点赞数
原文链接：http://www.cnblogs.com/lizhonggis/archive/2007/10/23/934153.html
版权
24点代码如下   
  Public Sub king(ByVal i As Integer)
     Select Case i

 Case 1
                 A = numberA
                 B = numberB
                 C = numberC
                 D = numberD
                 data(A, B, C, D)

             Case 2
                 A = numberA
                 B = numberB
                 C = numberD
                 D = numberC
                 data(A, B, C, D)

             Case 3
                 A = numberA
                 B = numberC
                 C = numberB
                 D = numberD
                 data(A, B, C, D)

             Case 4
                 A = numberA
                 B = numberD
                 C = numberB
                 D = numberC
                 data(A, B, C, D)

             Case 5
                 A = numberA
                 B = numberC
                 C = numberD
                 D = numberB
                 data(A, B, C, D)

             Case 6
                 A = numberA
                 B = numberD
                 C = numberC
                 D = numberB
                 data(A, B, C, D)

             Case 7
                 A = numberB
                 B = numberA
                 C = numberC
                 D = numberD
                 data(A, B, C, D)

             Case 8
                 A = numberC
                 B = numberA
                 C = numberD
                 D = numberC
                 data(A, B, C, D)

             Case 9
                 A = numberC
                 B = numberA
                 C = numberB
                 D = numberC
                 data(A, B, C, D)

             Case 10
                 A = numberC
                 B = numberA
                 C = numberD
                 D = numberB
                 data(A, B, C, D)

             Case 11
                 A = numberC
                 B = numberA
                 C = numberD
                 D = numberB
                 data(A, B, C, D)


                     Jieguo = a + b + c - d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString(a & "+" & b & "+" & c & "-" & d & "=24")

                     End If

                 Case 3
                     Jieguo = a + b + c * d
                     If (Jieguo = 24) Then
                         lblshow.Text = System.Convert.ToString(a & "+" & b & "+" & c & "*" & d & "=24")

                     End If

                 Case 4
                     Jieguo = a + b + c / d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString(a & "+" & b & "+" & c & "/" & d & "=24")

                     End If

                 Case 5
                     Jieguo = a * b + c + d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString(a & "*" & b & "+" & c & "+" & d & "=24")

                     End If

                 Case 6
                     Jieguo = a * b + c - d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString(a & "*" & b & "+" & c & "-" & d & "=24")

                     End If

                 Case 7
                     Jieguo = a * b * c + d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString(a & "*" & b & "*" & c & "+" & d & "=24")

                     End If

                 Case 8
                     Jieguo = a * b * c - d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString(a & "*" & b & "*" & c & "-" & d & "=24")

                     End If

                 Case 9
                     Jieguo = a * b * c * d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString(a & "*" & b & "*" & c & "*" & d & "=24")

                     End If

                 Case 10
                     Jieguo = a * b - c * d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString(a & "*" & b & "-" & c & "*" & d & "=24")

                     End If

                 Case 11
                     Jieguo = a / b + c + d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString(a & "/" & b & "+" & c & "+" & d & "=24")

                     End If

                 Case 12
                     Jieguo = a * b / c + d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString(a & "*" & b & "/" & c & "+" & d & "=24")

                     End If

                 Case 13
                     Jieguo = a * b * c / d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString(a & "*" & b & "*" & c & "/" & d & "=24")

                     End If

                 Case 14
                     Jieguo = a * b / c - d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString(a & "*" & b & "/" & c & "-" & d & "=24")

                     End If

                 Case 15
                     Jieguo = a * b / c / d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString(a & "*" & b & "/" & c & "/" & d & "=24")

                     End If

                 Case 16
                     Jieguo = (a + b) * c / d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString("(" & a & "+" & b & ")" & "*" & c & "/" & d & "=24")

                     End If

                 Case 17
                     Jieguo = (a + b) * (c + d)
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString("(" & a & "+" & b & ")" & "*" & "(" & c & "+" & d & ")" & "=24")

                     End If

                 Case 18
                     Jieguo = (a + b) * (c - d)
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString("(" & a & "+" & b & ")" & "*" & "(" & c & "-" & d & ")" & "=24")

                     End If

                 Case 19
                     Jieguo = (a - b) * (c - d)
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString("(" & a & "-" & b & ")" & "*" & "(" & c & "-" & d & ")" & "=24")

                     End If

                 Case 20
                     Jieguo = (a - b) * c / d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString("(" & a & "-" & b & ")" & "*" & c & "/" & d & "=24")

                     End If

                 Case 21
                     Jieguo = (a - b) * c * d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString("(" & a & "-" & b & ")" & "*" & c & "*" & d & "=24")

                     End If

                 Case 22
                     Jieguo = (a + b + c) * d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString("(" & a & "+" & b & "+" & c & ")" & "*" & d & "=24")

                     End If

                 Case 23
                     Jieguo = (a + b + c) / d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString("(" & a & "+" & b & "+" & c & ")" & "/" & d & "=24")

                     End If

                 Case 24
                     Jieguo = (a + b - c) * d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString("(" & a & "+" & b & "-" & c & ")" & "*" & d & "=24")

                     End If

                 Case 25
                     Jieguo = a * (b + c) + d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString(a & "*" & "(" & b & "+" & c & ")" & "+" & d & "=24")

                     End If

                 Case 26
                     Jieguo = a * (b - c) + d
                     If (Jieguo = 24) Then

                         Me.lblshow.Text = System.Convert.ToString(a & "*" & "(" & b & "-" & c & ")" & "+" & d & "=24")

                     End If

                 Case 27
                     Jieguo = a * (b + c) - d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString(a & "*" & "(" & b & "+" & c & ")" & "-" & d & "=24")

                     End If

                 Case 28
                     Jieguo = a * (b - c) - d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString(a & "*" & "(" & b & "-" & c & ")" & "-" & d & "=24")

                     End If

                 Case 29
                     Jieguo = a + (b + c) / d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString(a & "+" & "(" & b & "+" & c & ")" & "/" & d & "=24")

                     End If

                 Case 30
                     Jieguo = (a - b / c) * d
                     If (Jieguo = 24) Then

                         lblshow.Text = System.Convert.ToString("(" & a & "-" & b & "/" & c & ")" & "*" & d & "=24")

                     End If
             End Select
         Next j
     End Sub
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
         numberA = Convert.ToSingle(txt1.Text)
         numberB = Convert.ToSingle(txt2.Text)
         numberC = Convert.ToSingle(txt3.Text)
         numberD = Convert.ToSingle(txt4.Text)
         For i = 1 To 13

             king(i)
         Next i

         If (lblshow.Text = "请稍后……") Then
             lblshow.Text = "无解！！！"
         End If

     End Sub

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

         Randomize()
         txt1.Text = (Int(Rnd() * 13) + 1).ToString()
         txt2.Text = (Int(Rnd() * 13) + 1).ToString()
         txt3.Text = (Int(Rnd() * 13) + 1).ToString()
         txt4.Text = (Int(Rnd() * 13) + 1).ToString()


     End Sub

     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

     End Sub

     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
         Close()
     End Sub

     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
         Me.txt1.Text = ""
         txt2.Text = ""
         txt3.Text = ""
         txt4.Text = ""
     End Sub
End Class

转载于:https://www.cnblogs.com/lizhonggis/archive/2007/10/23/934153.html

weixin_30252709
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
一个求24点所有可能解的VB源代码及程序实现
zhouyun646356977的博客
10-10 1866
求24点的VB的不多。网上求一种解的代码多，但是求所有解的代码和程序更不多。最近花了2天做了一个求24点所有解的VB小程序。
24点游戏（随机产生四个不同的1到13的随机数据外加加减乘除构成表达式，输出结果等于24的表达式）
qq_41185647的博客
04-13 6253
一、题目内容 24点游戏是经典的纸牌益智游戏。 常见游戏规则： 从扑克中每次取出4张牌。使用加减乘除，第一个能得出24者为赢。（其中，J代表11，Q代表12，K代表13，A代表1），按照要求编程解决24点游戏。 基本要求： 随机生成4个代表扑克牌牌面的数字字母，程序自动列出所有可能算出24的表达式。 二、算法设计思路 利用产生随机数的函数rand（）产生四个范围为1到13的随机数字存放到数组car...
自己编写的求24点所有解的VB源代码及程序
10-10
输入4个数，自动计算出24点的所有的可能解。网络上求一个解的代码多，求所有可能解的代码少，VB的就更少了。24点无非下列几种种解法： 1.（a符号b）符号（c符号d）形式 例如：（9-5）*（10-6） 2.（（a符号b）符号c）符号d 形式 或者 d符号（（a符号b）符号c）例如：（（10-2）/2）*6 或者6*（（10-2）/2） 3.（a符号（b符号c））符号d 形式 或者 d符号（a符号（b符号c））例如：（8/(4/2)）*6或者8/(3-(8/3)) 4. 无括号的情况包括在有括号情况里面, 例如4+2*5+10可以解成（4+10）+（2*5） 5. 交换a,b,c,d位置求解即可。 详细可见： http://blog.csdn.net/zhouyun646356977/article/details/4902346
24点计算机的vb代码,VB算24点
weixin_29693211的博客
07-29 235
该楼层疑似违规已被系统折叠隐藏此楼查看此楼EndSelectEndSubPrivateSubcmdDo_Click()Forj=1To30SelectCasejCase1Fori=1To1CallKind(i)Jieguo=A+B+C+DIfJieguo=24ThenResultExpression=A&"+"&amp...
vb.net编写的看图软件源代码
08-05
1、看图软件的常见功能，如放大、缩小、自动浏览、下一张、上一张等功能都有； 2、有看图模式功能：按图片缩放画框、按画框缩放图片、按窗体缩放等； 3、支持图片拖放到图片框、文件或目录拖放到列表框；...
OPCUA客户端vb.net编写
08-05
提供的压缩包文件“FMZJ - OPCUA”可能包含一个示例项目或源代码，展示如何在VS2012中实现上述步骤。解压并打开这个项目，你可以看到VB.NET代码的具体实现，包括变量声明、方法调用和异常处理等。通过研究这个例子，...
VB.NET实现行列计算的演示
05-11
实现行列计算的演示源码，以前发过VB6.0的行列计算器源码，本源码是环境。计算时请注意，行列式维数不同无法计算，维数太多也无法计算！有兴趣的可看下VB6.0版的行列计算器源码，请点击以下链接： 　VB行列式计算器...
VB.NET编写的甘特图表测试源代码.rar
07-09
在给定的“VB.NET编写的甘特图表测试源代码.rar”压缩包中，包含了一个使用VB.NET实现的甘特图示例。甘特图是一种项目管理工具，用于可视化任务的进度和时间安排，它通过条形图来显示各个任务的开始和结束日期。 ...
三点建面&点到面距离计算源代码vb.net
08-08
在VB.NET编程环境中，开发了用于计算“三点建面”和“点到面距离”的程序，这在光学测量产品中，尤其是评估平面度时非常有用。以下是对这些概念的详细解释以及如何在VB.NET中实现它们。 首先，我们来理解“三点建面...
VB 算24点（含源码）
06-06
VB 算24点（含源码） 有多种算法 好！！
简单24点计算器（VB作品）
07-14
一个简单的24点计算器。 本人的VB原创作品。
vb24点计算
09-06
vb用来算24的程序，可以查询24的算法，看看有没有解法，并给出答案
简易24点计算器（VB带源码）
09-13
简易24点计算器： 利用几个整数数字通过加减乘除运算，结果为24，称为24点问题。本程序实现给定的3~5个数字进行计算，列出所有可能的计算式。本程序对重复的结果进行了一定的简化（不彻底）。程序用VB6编写，资源带有源码。
VB 24点游戏 源码
11-12
VB 24点 源码
VB算24点
bruceYing的专栏
08-22 1062
VERSION 5.00Begin VB.Form frmMain    BorderStyle     =   1  Fixed Single   Caption         =   "  24点"   ClientHeight    =   4020   ClientLeft      =   45   ClientTop       =   330   ClientWidth    
vb.net keyboard test 程式源代码
最新发布
01-02
这个程序使用VB.Net编写，并包含一个窗体（Form1）。在窗体加载时，使用`Me.KeyPreview = True`确保窗体可以接收键盘消息。在`Form1_KeyDown`事件中，当用户按下任意按键时，会触发该事件，并弹出一个消息框显示用户...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值