猴子吃桃问题的VB程序.docVIP

猴子吃桃问题的VB程序：有一群猴子摘了一堆桃子，第一天，吃了一半，觉得不过瘾，又吃了一只；以后每天也是如此，到第十天一看，只剩下一只桃子。问原来共有多少只桃子？ 程序流程图为： VB程序为： Rem 设第十天的桃子数X 1，然后计算第九天的X: x九 2* x十+1 x 1 Print 第10 天的桃子数是：; x For k 9 To 1 Step -1 x 2 * x + 1 Print 第; k; 天的桃子数是：; x Next Private Sub Form_click Dim n As IntegerDim num As Integernum 1For n 1 To 9 num num + 1 * 2NextMsgBox 桃子总共 num 个End Sub Dim x%, i% Cls x 1 Print 第7天有了1个 For i 6 To 1 Step -1 x x + 1 * 2 Print 第; i; 天有; x; 个 Next i 水仙花数问题： 第一种方法：单循环 分离数 Private Sub Form_Load 1，装载窗体时不能运行Print应改为form_click Dim a, b, c, i As Integer For i 100 To 1000 a i / 100 百位上的数 2，你把整除符号记错了，此处应将/改为\ b i / 10 Mod 10 十位上的数 3,此处应改为b i-a*100 \10 c i Mod 10 个位上的数 If 100 * a + 10 * b + c a * a * a + b * b * b + c * c * c Then Print i 因100 * a + 10 * b + c i，可以简化程序改为i End If Next i End Sub Private Sub Form_click Dim a%, b%, c% For a 1 To 9 For b 0 To 9 For c 0 To 9 If a ^ 3 + b ^ 3 + c ^ 3 a * 100 + b * 10 + c Then Print a * 100 + b * 10 + c End If Next c Next b Next a End Sub VB多重循环结构的解读. 2010-03-22 22:20 Def_Ud | 分类：VB | 浏览907次 For i 1 to 3 for j 1to i for k j to 3 a a+1 next k next jnext i求详细解答. 我有更好的答案 提问者采纳 2010-03-23 09:47 给你你最直接的吧i 1 j 1 k 1 a 1 k 2 a 2 k 3 a 3i 2 j 1 k 1 a 4 k 2 a 5 k 3 a 6 j 2 k 2 a 7 k 3 a 8i 3 j 1 k 1 a 9 k 2 a 10 k 3 a 11 j 2 k 2 a 12 k 3 a 13 j 3 k 3 a 14 最后结果应该是 a 14楼上的是语句解释 有1根长度为321米的钢材料，要将他截取成两种规格a.b.a.b的长度分别为17米和27米的短料，每种至少1段。问分割成a.b各多少段后，剩余的材料r最少。 程序运行后，单击命令按钮，就能输出结果 Private Sub Form_click Dim Anum%, Bnum%, R%, tmp%, a%, b% 定义一些变量 tmp 321 初始化中间数据 For Anum 1 To Int 321 / 17 开始循环，从A 1开始比较 Bnum Int 321 - Anum * 17 / 27 求B的个数 R 321 - Anum * 17 Mod 27 求剩下材料的长度 If R tmp Then tmp R a Anum b Bnum End If Next Anum MsgBox a分割 a 段，b分割 b 段，剩余材料r最少，为 tmp 米 End Sub 第二种方法： Private Sub Form_Click i 0 Print i, j, óàá? Do i i + 1 j Int 321 - 17 * i / 27 Print i, j, 321 - 17 * i - 27 * j