算24点_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
&&超多算法!哈哈
阅读已结束，下载文档到电脑
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，方便使用
还剩10页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
1,5,5,5,怎么算24点
下载积分：1000
内容提示：1,5,5,5,怎么算24点
文档格式：DOC|
浏览次数：92|
上传日期： 11:01:19|
文档星级：
全文阅读已结束，如果下载本文需要使用
 1000 积分
下载此文档
该用户还上传了这些文档
1,5,5,5,怎么算24点
关注微信公众号去掉重复的，一共六种，如下：
5*(3+3)-6
5*6-3-3
6*(3*3-5)
6*(5-3/3)
3*5+3+6
(6+5-3)*3
我认为 ((6-3)+5)*3 和 ((5-3)+6)*3 是一种情况，即(5+6-3)*3
可以在相关信息中做宏，把重复的去掉（考虑到某种情况，会有答案是-24的结果），得出六种情况：
Sub compute()
Dim m(4) As String
Dim j1, j2, j3, j4 As Integer
m(1) = "3"
m(2) = "3"
m(3) = "5"
m(4) = "6"
Worksheets("Sheet1").Cells(3, 1).Value = 0
For j1 = 1 To 4
For j2 = 1 To 4
For j3 = 1 To 4
For j4 = 1 To 4
If j1
j3 An......
去掉重复的，一共六种，如下：
5*(3+3)-6
5*6-3-3
6*(3*3-5)
6*(5-3/3)
3*5+3+6
(6+5-3)*3
我认为 ((6-3)+5)*3 和 ((5-3)+6)*3 是一种情况，即(5+6-3)*3
可以在相关信息中做宏，把重复的去掉（考虑到某种情况，会有答案是-24的结果），得出六种情况：
Sub compute()
Dim m(4) As String
Dim j1, j2, j3, j4 As Integer
m(1) = "3"
m(2) = "3"
m(3) = "5"
m(4) = "6"
Worksheets("Sheet1").Cells(3, 1).Value = 0
For j1 = 1 To 4
For j2 = 1 To 4
For j3 = 1 To 4
For j4 = 1 To 4
If j1
j4 Then
Call point24(m(j1), m(j2), m(j3), m(j4))
End If
Next
Next
Next
Next
Function point24(a As String, b As String, c As String, d As String)
Dim i1, i2, i3 As Integer
Dim s(4, 4, 4) As String
Dim fuhao As String
For i1 = 1 To 4
For i2 = 1 To 4
For i3 = 1 To 4
s(i1, i2, i3) = a
Select Case i1
Case 1
fuhao = "+"
Case 2
fuhao = "-"
Case 3
fuhao = "*"
Case 4
fuhao = "/"
End Select
s(i1, i2, i3) = s(i1, i2, i3) & fuhao & b
Select Case i2
Case 1
fuhao = "+"
Case 2
fuhao = "-"
Case 3
fuhao = "*"
Case 4
fuhao = "/"
End Select
s(i1, i2, i3) = "(" & s(i1, i2, i3) & ")" & fuhao & c
Select Case i3
Case 1
fuhao = "+"
Case 2
fuhao = "-"
Case 3
fuhao = "*"
Case 4
fuhao = "/"
End Select
s(i1, i2, i3) = "(" & s(i1, i2, i3) & ")" & fuhao & d
Worksheets("Sheet1").Cells(1, 1).Value = "=" & s(i1, i2, i3)
Worksheets("Sheet1").Cells(2, 1).Value = s(i1, i2, i3)
Worksheets("Sheet1").Cells(3, 1).Value = Worksheets("Sheet1").Cells(3, 1).Value + 1
If CLng(Worksheets("Sheet1").Cells(1, 1).Value) = 24 Or CLng(Worksheets("Sheet1").Cells(1, 1).Value) = -24 Then
Worksheets("Sheet1").Cells(2, 1).Copy
MsgBox ("I got it!")
End If
Next
Next
Next
End Function
看数列的 第一，三，五项 3/1，5/3，7/5
数列的二，四，六项应为
4/2，3/2，2/2
你好 简便的方法5*5，6*3就已经算很简便了。
就是将四个数字进行加减乘除四则混合运算（允许使用括号）求得二十四。
3×(10-6+4)=24
4-(-6÷3×10)=24
4-10×(-6)÷3=24
在游戏中，未成年人在线游戏时间3小时内的为“健康”游戏时间，所有游戏收益正常。未成年人在线游戏3小时之后，再持续下去的2小时为“疲劳”游戏时间，其间其游戏收益为...
答: 叶黄素不能在体内合成吗，在哪里摄取好呢？
答: 朋友相处要严以律己，宽以待人。
朋友出去玩，AA制最好。如果不是，自己要抢先付钱，不要斤斤计较。你就是不坐船也要抢先付钱才对。
意欲取之，必先予之。其实朋友只是...
答: 我跟你一样啊!!进不去高手解决下
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区}