6个奇数的和等于98,积等于4267305,求这6个数,用EXCEL怎么做
答案:4 悬赏:10 手机版
解决时间 2021-06-01 11:07
- 提问者网友:杀生予夺
- 2021-06-01 07:03
6个奇数的和等于98,积等于4267305,求这6个数,用EXCEL怎么做?公式怎么写?请详细解答。
最佳答案
- 五星知识达人网友:痴妹与他
- 2021-06-01 08:06
这个用函数或公式恐怕很难解决,但用宏很快就可以求出来。
在Excel中,同时按Alt和F11,进入VBA界面,右键点左上窗口的Thisworkbook,插入,模块,在右边出来的窗口中粘贴如下代码:
Sub test()
Dim a, b, c, d, e, f As Byte
For a = 1 To 93 Step 2
For b = 1 To a Step 2
For c = 1 To b Step 2
For d = 1 To c Step 2
For e = 1 To d Step 2
For f = 1 To e Step 2
If a + b + c + d + e + f = 98 And a * b * c * d * e * f = 4267305 Then
MsgBox a & Chr(10) & b & Chr(10) & c & Chr(10) & d & Chr(10) & e & Chr(10) & f
Exit Sub
End If
Next
Next
Next
Next
Next
Next
End Sub
然后按F5,运行此宏,得解。
在Excel中,同时按Alt和F11,进入VBA界面,右键点左上窗口的Thisworkbook,插入,模块,在右边出来的窗口中粘贴如下代码:
Sub test()
Dim a, b, c, d, e, f As Byte
For a = 1 To 93 Step 2
For b = 1 To a Step 2
For c = 1 To b Step 2
For d = 1 To c Step 2
For e = 1 To d Step 2
For f = 1 To e Step 2
If a + b + c + d + e + f = 98 And a * b * c * d * e * f = 4267305 Then
MsgBox a & Chr(10) & b & Chr(10) & c & Chr(10) & d & Chr(10) & e & Chr(10) & f
Exit Sub
End If
Next
Next
Next
Next
Next
Next
End Sub
然后按F5,运行此宏,得解。
全部回答
- 1楼网友:罪歌
- 2021-06-01 10:55
4367305=3×3×5×7×19×23×31
=3×15×7×19×23×31
3+15+7+19+23+31=98
这6个数:3,7,15,19,23,31
- 2楼网友:蕴藏春秋
- 2021-06-01 09:23
它们都是正整数吗,还有什么条件吗
- 3楼网友:一把行者刀
- 2021-06-01 08:40
是连续六个奇数吗?
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯