有奖题：带三个MM开车去兜风-循环法练习

sallin

看看答案

yanruyu

看看，很有意思

yanruyu

看看，很有意思

aiyeanye

<p>'运行前请将工作表清空<br/>Sub 求解()<br/>Dim n As Long<br/>n = InputBox("请输入三个MM的年龄乘积")<br/>Dim i, j, k, m, u, row As Long<br/>row = 1<br/>m = 0<br/>'先将乘积数值因式分解（这一步并不是必要的）<br/>Dim xarry(10000) As Long<br/>For u = 1 To n / 2<br/>&nbsp;&nbsp;&nbsp; If n Mod u = 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; m = m + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xarry(m) = u<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next u<br/>&nbsp;&nbsp;&nbsp; <br/>'通过循环找到满足条件的解，并假设老教授年龄不超过一百岁<br/>For i = 1 To m<br/>&nbsp;&nbsp;&nbsp; For j = i To m<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For k = j To m<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If xarry(i) * xarry(j) * xarry(k) = n And 2 * (xarry(i) + xarry(j) + xarry(k)) &lt;= 100 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(row, 1).Value = xarry(i)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(row, 2).Value = xarry(j)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(row, 3).Value = xarry(k)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; row = row + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next k<br/>&nbsp;&nbsp;&nbsp; Next j<br/>Next i<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; If Cells(1, 1).Value = "" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim err As String<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; err = MsgBox("题设条件下无解")<br/>&nbsp;&nbsp;&nbsp; End If</p><p>End Sub<br/></p>

jlcz015

辛苦了

jlcz015

<p>纯学习一下，msgbox应放在最后，不然窗口要显示30次，这个问题楼主应该考虑到的</p><p>如下：Sub 年龄()<br/>Dim m1 As Integer<br/>Dim m2 As Integer<br/>Dim m3 As Integer<br/>Dim x As Integer<br/>For m1 = 1 To 30<br/>For m2 = m1 To 30<br/>For m3 = m2 To 30<br/>For x = (m1 + m2 + m3) * 2 To 120<br/>If m1 * m2 * m3 = 2450 And (m1 + m2 + m3) * 2 = x &lt; 120 Then<br/>End If<br/>Next<br/>Next<br/>Next<br/>Next<br/>MsgBox "年龄=：小雪=" &amp; m1 &amp; ",小月=" &amp; m2 &amp; ",小丽=" &amp; m3 &amp; ",老教授=" &amp; (m1 + m2 + m3) * 2 &amp; ""</p><p>End Sub</p><p>这样就OK了<br/></p>

k19841217m

学习

canlly

<p>只有学习!</p>

hhzjxss

<p>得看教授最大有多少，所以方案是有几个的！</p><p>

游客，如果您要查看本帖隐藏内容请回复

</p>

mxg825

<p>雨版，我带三个是女孩哦，有可能是60岁的女孩吗？</p>[em01][em01][em01]