算24点(算24点的技巧)

24点算式（表达式）计算程式

运行界面

关于

扑克图库文件

'''''' 免费贡献全部代码

'''''' 24点算式（表达式）计算程式 由 赵春

'''' 岩 用VB6 编写 15065

'''' 不能写联系方式，716328

'''''' 这种规定，纯属大脑有病。

'''''' 2020年10月16日

'''''' 我是贡献代码，全部的。留个联系方式都不行？岂有此理！

''''''

''''''

Option Explicit

Private Declare Sub Sleep Lib "kernel32.DLL" (ByVal dwMilliseconds As Long)

Dim xAi As Long, xBi As Long, xCi As Long

Dim XTTi(4), yS_Number

Dim BDS_24(10), jGi As Long

Dim Ki As Long, aI As Long

Dim xBCOLOR As Variant

Dim CCCCC As New ScriptControl

Dim kStr, sStr

Dim StEnd As Integer, sTi As Integer

Dim A, B, C, D

Dim YSF

Dim Ji As Long

Dim ei As Long

Dim pK_ID As Long

Dim xRow As Integer, xCol As Integer, LXPK, PKNAME

Dim bMNum As Long, DCFX As Long

Dim DUI As Long, CUO As Long

Private Sub Check1_Click()

Call Command2_Click

End Sub

'''' 本程序 需要 引用 “Micosoft Script Control 1.0”

'''' 添加部件，“PictureClip Control 6.0”

'''' 保证扑克图片在程序的目录下，不能丢失、删除！

Private Sub Command1_Click(Index As Integer)

On Error GoTo JS_ERROR

'' 输入表达式

If Index <= 9 Then

RichTextBox1.SelText = RichTextBox1.SelText & Command1(Index).Caption

RichTextBox1.SetFocus

If Index <= 3 Then Command1(Index).Enabled = False

End If

'' 清除错误

If Index = 10 Then

RichTextBox1.Text = ""

RichTextBox1.SetFocus

For aI = 0 To 3

Command1(aI).Enabled = True

Next aI

'' DUI = 0

'' CUO = 0

End If

'' 计算表达式

If Index = 11 Then

CCCCC.Language = "VBScript"

kStr = RichTextBox1.Text

sStr = CCCCC.Eval(kStr)

RichTextBox1.Text = RichTextBox1.Text & " = " & sStr '输出最终结果

DCFX = Val(DCFX) + 1

Text3.Text = Text3.Text & DCFX & "、"

If sStr = 24 Then

Text3.Text = Text3.Text & RichTextBox1.Text & " …… √" & vbCrLf

DUI = Val(DUI) + 1

Command4.Enabled = False

Command5.Enabled = False

Else

Text3.Text = Text3.Text & RichTextBox1.Text & " …… ×" & vbCrLf

CUO = Val(CUO) + 1

Command4.Enabled = True

Command5.Enabled = True

RichTextBox1.SetFocus

End If

End If

'转移一下文本焦点，保持text3文本焦点在文本的最后。

Text3.SelStart = Len(Text3.Text)

''光标立即转移到RichTextBox1

RichTextBox1.SetFocus

Label4.Caption = "正确：" & DUI & " ； 错误：" & CUO

JS_ERROR:

If Err Then

MsgBox Err.Description & vbCrLf & " 表达式书写错误！表达式请使用英文字符书写。", vbCritical, "提示"

End If

End Sub

Private Sub Command2_Click()

On Error GoTo StartErr:

' 重新开始

' 背面 5 张

Randomize

bMNum = Int(Rnd * 9) ' 随机数读取一种背面图案。

' 延时显示预读取的背面图案。

For aI = 3 To 0 Step -1

DoEvents

Sleep 200

Image2(aI).Picture = PictureClip1.GraphicCell(bMNum + 52)

Next aI

'' 开始发牌

RichTextBox1.Text = ""

Randomize '初始化随机数生成器。

For aI = 0 To 3

Ki = Int(Rnd * 52)

DoEvents

Sleep 300 '延时显示扑克牌

Text1(aI).Text = Ki

Image2(aI).Picture = PictureClip1.GraphicCell(Ki)

pK_ID = Ki

xRow = (pK_ID \ 13) ' 整除13，得到扑克牌在第几行上。

xCol = 1 + (pK_ID Mod 13) ' 求余数，得到扑克牌在第几列上。

Label1(aI).Caption = pK_ID & " , " & LXPK(xRow) & " " & PKNAME(xCol - 1) & " , " & xCol

Text1(aI).BackColor = "&H" & xBCOLOR(xRow)

If Check1.Value = 1 Then

If xCol > 10 Then xCol = 10

End If

Command1(aI).Caption = xCol

Next aI

For aI = 0 To 3

Command1(aI).Enabled = True

Next aI

StEnd = 0

List1.Clear

List1.AddItem " 分析结果 …… "

Label3.Caption = ""

RichTextBox1.SetFocus

StartErr:

If Err Then

MsgBox Err.Description & Err.Number, vbCritical, "提示"

End If

End Sub

Private Sub Command3_Click()

Call 列出四位数的表达式

End Sub

' 指定光标在 RichTextBox1 中向前移动

Private Sub Command4_Click()

Dim GB_COL As Integer

GB_COL = RichTextBox1.SelStart

If GB_COL <> 0 Then GB_COL = Val(GB_COL) - 1

RichTextBox1.SelStart = GB_COL

RichTextBox1.SetFocus

End Sub

' 指定光标在 RichTextBox1 中向后移动

Private Sub Command5_Click()

Dim GB_COL As Integer

GB_COL = RichTextBox1.SelStart

If GB_COL <> Len(RichTextBox1.Text) Then GB_COL = Val(GB_COL) + 1

RichTextBox1.SelStart = GB_COL

RichTextBox1.SetFocus

End Sub

Private Sub Form_Load()

''''' 扑克牌图片加载

PictureClip1.Picture = LoadPicture(App.Path & "\扑克牌全图.jpg")

PictureClip1.Cols = 13

PictureClip1.Rows = 5

For aI = 0 To 3

Image2(aI).Picture = PictureClip1.GraphicCell(62)

Next aI

LXPK = Array("黑桃", "红桃", "梅花", "方块", "背面")

PKNAME = Array("A", "2", "3", "4", "5", "6", "7", "8", "9", "10", "J", "Q", "K")

xBCOLOR = Array("0080FFFF", "008080FF", "0080FF80", "00FF8080", "00FF80FF")

' 请不要随意更改运算符号的排列顺序！

'''''''''''|'''''''1''''''|''''''2'''''''|''''''3'''''''|''''''4'''''''|''''''5'''''''|'''''''6''''''|''''''7'''''''|''''''8'''''''|''''''9'''''''|''''''10''''''|''''''11'''''| ; 40*3=120（ 0 to 119 ）

YSF = Array("+", "+", "+", "+", "+", "-", "+", "+", "*", "+", "+", "/", "+", "-", "-", "+", "-", "*", "+", "-", "/", "+", "*", "-", "+", "*", "*", "+", "*", "/", _

"+", "/", "-", "+", "/", "*", "-", "+", "-", "-", "+", "*", "-", "+", "/", "-", "-", "-", "-", "-", "*", "-", "-", "/", "-", "*", "-", "-", "*", "*", _

"-", "*", "/", "-", "/", "*", "*", "/", "+", "*", "+", "+", "-", "+", "+", "*", "+", "-", "*", "+", "*", "*", "+", "/", "*", "-", "-", "*", "-", "*", _

"*", "-", "/", "*", "*", "-", "*", "*", "*", "*", "*", "/", "*", "/", "-", "*", "/", "*", "*", "-", "+", "+", "-", "+", "-", "*", "+", "+", "*", "+")

yS_Number = Array("0123", "0132", "0312", "0321", "0213", "0231", "1023", "1032", "1203", "1230", _

"1302", "1320", "2013", "2031", "2103", "2130", "2301", "2310", "3012", "3021", _

"3102", "3120", "3201", "3210")

StEnd = 0

DCFX = 0

Text3.Text = " 历史记录：" & vbCrLf

''''' Call Command2_Click

''''RichTextBox1.SelAlignment = rtfCenter '''' 设置文本居中

End Sub

Private Sub Image1_Click()

frmAbout.Show

End Sub

Private Sub Label3_Click()

Dim FileName As String, FXJGTEXT As String, FXi As Long

Label3.BackColor = &H8080FF

If MsgBox("保存分析结果吗？", vbInformation + vbYesNo, "提示") = vbYes Then

For FXi = 0 To List1.ListCount - 1

List1.ListIndex = FXi

FXJGTEXT = FXJGTEXT & List1.Text & vbCrLf

Next FXi

FileName = InputBox("输入文件名，也可以使用默认，以日期为文件名", "输入信息……", Format(Now, "yyyymmddhhmm" & "分析结果"))

Open App.Path & "\" & FileName & ".txt" For Output As #1

Print #1, FXJGTEXT

Close #1

Label3.BackColor = &H8000000F

MsgBox "保存完毕！", vbInformation, "提示"

Else

MsgBox "您没有选择保存。", vbInformation, "提示"

Label3.BackColor = &H8000000F

End If

End Sub

Private Sub Label4_Click()

Dim FileName As String

Label4.BackColor = &H8080FF

If MsgBox("保存历史记录吗？", vbInformation + vbYesNo, "提示") = vbYes Then

FileName = InputBox("输入文件名，也可以使用默认，以日期为文件名", "输入信息……", Format(Now, "yyyymmddhhmm" & "历史记录"))

Open App.Path & "\" & FileName & ".txt" For Output As #1

Print #1, Text3.Text

Close #1

Label4.BackColor = &H8000000F

MsgBox "保存完毕！", vbInformation, "提示"

Else

MsgBox "您没有选择保存。", vbInformation, "提示"

Label4.BackColor = &H8000000F

End If

End Sub

'' 调用隐藏的右键复制菜单

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

PopupMenu mnu_Edit

End If

End Sub

Private Sub mnu_Edit_Click()

Clipboard.Clear '清空剪贴板

Clipboard.SetText List1.Text '将剪贴板内容设置为List1.Text

End Sub

Private Sub RichTextBox1_GotFocus()

Command4.Enabled = True

Command5.Enabled = True

End Sub

Private Sub Text1_Change(Index As Integer)

Command1(Index).Caption = Text1(Index).Text

End Sub

''''

Private Sub Text1_GotFocus(Index As Integer)

Text1(Index).SelStart = 0

Text1(Index).SelLength = Len(Text1(Index).Text)

End Sub

Private Sub Timer1_Timer()

Label5.Caption = Format(Now, "mm-dd hh:mm:ss AAAA")

End Sub

Public Sub 列出四位数的表达式()

On Error Resume Next

Dim xWI

''' 24 种数值位置排列。4种运算符号；共写出 120 个运算符号，每 3 个运算符号为 1 组,共 40 组；120 / 3 = 40; 24 * 40 = 960 就会有 960 种计算方法。可列出 11 种不同的算式！

CCCCC.Language = "VBScript"

List1.Clear

List1.AddItem " 分析结果："

For xAi = 0 To 23

xWI = yS_Number(xAi)

For xBi = 1 To 4

XTTi(xBi) = Mid(xWI, xBi, 1)

Next xBi

DoEvents

A = Command1(XTTi(1)).Caption

B = Command1(XTTi(2)).Caption

C = Command1(XTTi(3)).Caption

D = Command1(XTTi(4)).Caption

For xCi = 0 To 119 Step 3

BDS_24(0) = A & YSF(xCi) & B & YSF(xCi + 1) & C & YSF(xCi + 2) & D ' A B C D

BDS_24(1) = A & YSF(xCi) & "(" & B & YSF(xCi + 1) & C & YSF(xCi + 2) & D & ")" '''' ( )

BDS_24(2) = "(" & A & YSF(xCi) & B & YSF(xCi + 1) & C & ")" & YSF(xCi + 2) & D ''''( )

BDS_24(3) = A & YSF(xCi) & "(" & B & YSF(xCi + 1) & C & ")" & YSF(xCi + 2) & D '''' ( )

BDS_24(4) = "(" & A & YSF(xCi) & B & ")" & YSF(xCi + 1) & C & YSF(xCi + 2) & D '( )

BDS_24(5) = A & YSF(xCi) & B & YSF(xCi + 1) & "(" & C & YSF(xCi + 2) & D & ")" ' ( )

BDS_24(6) = "(" & A & YSF(xCi) & "(" & B & YSF(xCi + 1) & C & "))" & YSF(xCi + 2) & D '( ( ))

BDS_24(7) = A & YSF(xCi) & "(" & B & YSF(xCi + 1) & "(" & C & YSF(xCi + 2) & D & "))" ' ( ( ))

BDS_24(8) = "((" & A & YSF(xCi) & B & ")" & YSF(xCi + 1) & C & ")" & YSF(xCi + 2) & D '(( ) )

BDS_24(9) = A & YSF(xCi) & "((" & B & YSF(xCi + 1) & C & ")" & YSF(xCi + 2) & D & ")" ' (( ) )

BDS_24(10) = "(" & A & YSF(xCi) & B & ")" & YSF(xCi + 1) & "(" & C & YSF(xCi + 2) & D & ")" '( ) ( )

For jGi = 0 To 10

If CCCCC.Eval(BDS_24(jGi)) = 24 Then List1.AddItem List1.ListCount & ": " & BDS_24(jGi) & " = " & CCCCC.Eval(BDS_24(jGi)) ''' 结果输出

Next jGi

Next xCi

Next xAi

List1.AddItem " ** ''''END'''' **"

Label3.Caption = "…… 共有 【 " & List1.ListCount - 2 & " 】 种算式！ "

End Sub

数学之美：探索24点游戏的奥秘与解谜之道

#挑战30天在头条写日记#

引言： 数学是一门充满智慧和趣味的学科，而“24点”游戏则是一个充满挑战和乐趣的数学谜题。通过巧妙地运用四则运算，将给定的数字组合成24，不仅考验着计算能力，还锻炼了逻辑思维。本文将带您深入探索“10,4,9,1算24点”的解谜之道，详细讲解具体步骤，让您能够领略到解题的魅力。

一、游戏规则与挑战：

“10,4,9,1算24点”游戏的规则非常简单：通过加、减、乘、除四种运算，将给定的四个数字组合成24。每个数字必须且只能使用一次，且运算过程中不能出现小数。游戏看似简单，却蕴含了无穷的数学乐趣和解谜挑战。

二、探索解题的方法：

分解与合并： 将四个数字分解成两组，分别进行运算，然后再将结果合并进行下一步运算。这种方法通常需要灵活运用加减乘除的顺序，以及括号的运用。代数思维： 将数字用代数式子表示，通过代数运算求解。这种方法需要一定的代数知识，但可以大大简化运算过程。逆向思维： 从目标数24出发，逆向推导出合适的运算式。这种方法需要反向思考，找到能够得到24的可能性。

三、具体步骤与实例分析：

分解与合并的方法：示例一：(10-1) * (9-4) = 24示例二：(10 + 9) - (4 - 1) = 24代数思维的方法：示例一：10 * (9 - 4) + 1 = 24示例二：(10 - 4) * (9 - 1) = 24逆向思维的方法：示例一：24 = 10 + 9 + 4 + 1示例二：24 = (10 - 4) * (9 - 1)

四、数学之美与挑战：

“10,4,9,1算24点”的解谜之旅不仅锻炼了我们的计算能力，还激发了我们的逻辑思维和创造力。通过灵活的运算组合和不同的解题方法，我们能够发现数学的美妙和多样性。

五、参考书籍与学习资料：

在解决“24点”游戏的过程中，参考书籍和学习资料将为您提供宝贵的指导和灵感。以下是一些推荐的书籍：

《数学游戏大全》 by 汪海《数学游戏与趣味问题解析》 by 唐树藩《乐趣数学》 by 郑涛

结语： “10,4,9,1算24点”游戏既是一项有趣的挑战，又是一次数学之旅。在解题的过程中，我们既能够感受到数学的美妙，又能够锻炼我们的思维能力和创造力。愿您在解谜的过程中，不断探索和尝试，用智慧和热情解开每一个数学谜题，领略数学的魅力！

亲子互动小游戏之巧算24点

⏰巧算24点规则

把一副扑克牌去除大王、小王，剩余52张牌，任意抽取4张牌，用加减乘除及括号运算，每个数字用一次，使计算的结果为24。

（备注：J=11，Q=12，K=13; 或者 J=1，Q=2，K=3 ）

探究课题

如何快速计算24点？

任意抽取4张牌进行24点计算，并把运算过程及计算时间耗费时间记录在表格内。

序号	抽取的四张牌	计算过程	时间（秒）
1	3、5、J、K	3×（5+3×1）=24
2	4、4、5、6	4×6（5-4）=24
3	6、7、8、Q	（7-6+Q）×8=24
4	1、3、4、9	3×9-4+1=24
5	2、9、10、K	（2×9-10）×K=24
6	5、7、8、J	(7-5+J)×8=24
7	2、8、Q、K	K×8+2-Q=24
8	A、2、3、10	2×10+A+3=24
9	2、4、9、Q	(Q-9)×4×2=24
10	1、9、9、Q	（Q-9）×（9-1）=24
11	4、5、J、K	4×5+J+K=24
12	6、7、10、J	（10-7+J）×6=24
13	4、10、J、J	（J+J）×10+4=24
14	2、10、J、K	2×10+J+K=24
15	3、4、5、5	5×5+3-4=24
16	4、5、7、J	4×7-5+J=24
17	5、5、7、K	（5+7）×（5-K）=24
18	2、7、K、K	（7-K）×2×K=24
19	4、5、5、J	4×5+5-J=24
20	3、4、6、K	6÷3×4×K=24

（备注：本次探究测试样本数量为20，即进行20次，重复的和不能计算出24点的组合不记录在本次实验样本内）

探究心得

通过巧算24点实验探究，我发现任意抽取的一组数，运用下面的思路，可以让我快速计算出24点，答题速度提升很多。以下是我总结的六条心得：

1） 优先考虑把4个数字用加减法计算出24；

2） 找出能凑出2×12、3×8、4×6等这样的组合；

3） 找出可以凑出2+22、3+21、4+20、6+18、8+16等这样的组合；

4） 找出可以凑出25-1、26-2、27-3、28-4、30-6等这样的组合；

5） 找出可以凑出2×24、3×24、4×24、5×24、6×24等这样的组合；

6） 找出可以凑出36÷3×2、48÷2×1、60÷5×2、72÷6×2等这样的组合。

探究总结

通过本次实验探究，我觉得巧算24点这个游戏可以锻炼学生以下两点：

1、训练学生的快速反应能力。由于在游戏中，牌的点数不同，所以运用的方法也不同，学生的思维也呈高速运转状态，而且在短时间内，用最快的速度得出24，才能赢，所以能够训练学生的快速反应能力。

2、训练学生的口算和心算能力。由于此游戏对学生的口算和心算能力是一种高要求，而且对各种的运算都有涉及，其实也就是四则混合计算，由于在运算时不能发出声音，且不准移动牌，对口算和心算是一种很高的要求，以及对乘法口诀也是一种训练，所以说可以训练学生的口算和心算的能力。

算24点——可以提升孩子数学成绩的亲子互动游戏

“算24点”——可以提升孩子数学成绩的亲子互动数学游戏。

2×(2+9)+2=24.

"算24点"是一种数学游戏。它以自己独具的数学魅力和丰富的内涵被人们所接受。这种游戏方式简单易学，能健脑益智。

一、【游戏目的】

通过四个数字的加减乘除，列出算式等于24的数字游戏。

1、能够帮助学生巩固所学知识，激发学生学习数学的兴趣。

2、可以引导学生从多个已知条件中选出可用的条件，满足题目要求，让学生学会举一反三。

3、可以非常好的锻炼逆向思维以及灵活计算的能力。

逆向思维的能力对于孩子今后解应用题以及到中学做几何证明题都非常重要。

6÷(1-6÷8)=24.

“算24点”，在小学数学中会经常遇到这种题目。初中一年级也有相关的题目。

对于成年人来说，“算24点”的题目是比较简单的，但是对于小学生来说，还是有一些难度的。

我们可以把“算24点”作为学生和家人互动的亲子数学游戏。经常跟孩子玩一玩“算24点”游戏，锻炼孩子的计算和思维，给孩子最后的数学启蒙。

很多人都说：这是最适合亲子互动的智力游戏。

二、【游戏方法与规则】

“算24点”的数字游戏方法与规则：

1、方法

①、一副扑克牌中抽去大小王剩下52张， J、Q、K 当成是11、12、13，或都当成1。

我们也可只用1—10这40张牌。

②、任意抽取4张牌（两个人玩时，每人任意抽取2张牌；四个人玩时，每人任意抽取1张牌.）。

③、用加、减、乘、除（可加括号）把牌面上的数算成24。

2、规则

①、每张牌必须用一次且只能用一次。

②、谁先算出来，四张牌就归谁，

③、如果无解就各自收回自己的牌，

④、哪一方把所有的牌都赢到手中，就获胜了。

三、【随机的题目】

“算24点”是将随机的四个数字（1—10或1—13）和四种运算符号及括号进行一定的组合、搭配，使计算结果为24。

组合、搭配的形式有很多，有些可以得出24，但有些则无解。

经计算机准确计算所得，随机的4个1至13的整数（数字可重复）中，能够算得24的概率约为74.835%。

四、【解题技巧】

"算24点"作为一种扑克牌智力游戏，有一些计算规律：利用3x8=24、4x6=24等求解，把牌面上的四个数想办法凑成3和8、4和6等，再相乘或除以倒数求解。

固定一个除数，把另外三个数凑成24的倍数；固定一个被除数 ...

1、加加减减

①例如：2，7，7，8.

2+7+7+8=24.

②例如：2，3，12，13.

(12+13)-(3-2)=24.

2、2×12=24.

①例如：1，1，2，10.

2×(1+1+10)=24.

②例如：4，5，7，8.

(7-5)×(4+8)=24.

3、3×8=24.

①例如：3，3，5，7.

3×(3×5-7)=24.

②例如：4，5，7，8.

(5+7)÷4×8=24.

4、4×6=24.

①例如：4，5，8，10.

4×(8-10÷5)=24.

②例如：3，3，5，6.

(3×3-5)×6=24.

5、固定一个被除数——乘倒数（除法）.

①例如：1，4，5，6.

6÷(5÷4-1)=24.

②例如：3，3，8，8.

8÷(3-8÷3)=24.

6、固定一个除数.

（1）固定一个数做除数。（2）把另外三个数凑成24的倍数。

（3）通过除法得出24。

①例如：4，4，10，10.

(10×10-4)÷4=24.

②例如：3，5，7，13.

(5×13+7)÷3=24.

7、分数

①例如：3，3，7，7.

(3+3/7)×7=24.

②例如：1，5，5，5.

(5-1/5)×5=24.

8、其它

... ...

9、无解（+，-，×，÷.）

例如：1，1，1，1.

【阶乘可解】：（中小学生不考虑此类情况）

（1+1+1+1）！

=4×3×2×1

=24.

五、【题目之一】

这是一道"算24点"的数学游戏题。

巧算24点：

1，3，4，6 四个数字算24点（仅限＋,-, x ,÷,可用括号）。

你有没有好的方法，评论区分享一下！

？

总之，“算24点”是比较有趣的数字游戏，思维拓展，老少皆宜。

我们都可以迷上数学。

被5551算24点难住了

大家应该都玩过用4个数字来算24点的游戏吧，规则很简单，只能用加减乘除和括号，数字可随意放置，求出结果是24即可！举例，比如用5678四个数字求24，6/（7-5）*8=24！

昨天我这个本科生就被这样一道题难住了20分钟，实在是太丢人了！题目是这样的，数字是5，5，5，1，求24！怎么列式！你能多久做出来呢？

这道题也就是相当于五年级学生就可以做出来的，太丢人了！若是一时间想不起来怎么算上面的，我们先来几道开胃菜找找感觉怎么样？比如3456，5678，6789，这些都是比较简单的，乘除3*8=24以及4*6=24，这种对于大多数人来说都能轻松解答！还有加法减法的例如4577，1345这种类型的！35-11=24，4+20=24这种估计难不倒大家！开胃菜尝过之后，这道5551的题大家想出来了吗？评论区等你哦？还有更多有趣24算法的请留言指教哦[呲牙][呲牙]