【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“猴子吃桃问题的VB程序 - 编程语言”一文，供大家参考学习

猴子吃桃问题的 VB 程序：有一群猴子摘了一堆桃子，第一天，吃了一半，觉得不过瘾，又吃了一只；以后每天也是如此，到第十天一看，只剩下一只桃子。

    问原来共有多少只桃子？ 程序流程图为： VB 程序为： Rem 设第十天的桃子数 X1，然后计算第九天的 X: x 九2x 十1 x 1 Print 第 10 天的桃子数是： x For k 9 To 1 Step -1 x 2 x 1 Print 第 k 天的桃子数是： x NextPrivate Sub Form_clickDim n As IntegerDim num As Integernum 1For n 1 To 9 num num 1 2NextMsgBox 桃子总共 num 个End SubDim x i Cls x1 Print 第 7 天有了 1 个 For i 6 To 1 Step -1 x x 1 2Print 第 i 天有 x 个Next i水仙花数问题：第一种方法：单循环 分离数Private Sub Form_Load 1，装载窗体时不能运行 Print 应改为 form_clickDim a b c i As IntegerFor i 100 To 1000a i / 100 百位上的数 2，你把整除符号记错了，此处应将/改为b i / 10 Mod 10 十位上的数 3此处应改为 bi-a10010c i Mod 10 个位上的数If 100 a 10 b c a a a b b b c c c ThenPrint i 因 100 a 10 b c i，可以简化程序改为 iEnd IfNext iEnd Sub第二种方法：三重循环结构 合成Private Sub Form_clickDim a b cFor 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 bNext aEnd SubVB 多重循环结构的解读.2010-03-22 22:20 Def_Ud 分类：VB 浏览 907 次For i 1 to 3 for j 1to i for k j to 3 aa1 next k next jnext i求详细解答.我有更好的答案提问者采纳2010-03-23 09:47给你你最直接的吧i1 j1 k1 a1 k2 a2 k3 a3i2 j1 k1 a4 k2 a5 k3 a6 j2 k2 a7 k3 a8i3 j1 k1 a9 k2 a10 k3 a11 j2 k2 a12 k3 a13 j3 k3 a14最后结果应该是 a14楼上的是语句解释有 1 根长度为 321 米的钢材料，要将他截取成两种规格 a.b.a.b 的长度分别为 17 米和 27 米的短料，每种至少 1 段。

    问分割成 a.b 各多少段后，剩余的材料 r 最少。

    程序运行后，单击命令按钮，就能输出结果第一种方法：Private Sub Form_clickDim Anum Bnum R tmp a b 定义一些变量tmp 321 初始化中间数据For Anum 1 To Int321 / 17 开始循环，从 A1 开始比较Bnum Int321 - Anum 17 / 27 求 B 的个数R 321 - Anum 17 Mod 27 求剩下材料的长度If R tmp Thentmp Ra Anumb BnumEnd IfNext AnumMsgBox a 分割 a 段，b 分割 b 段，剩余材料 r 最少，为 tmp 米End Sub第二种方法：Private Sub Form_Click i0 Print i j óàá Do ii1 j Int321 - 17 i / 27 Print i j 321 - 17 i - 27 j Loop Until j 2End Sub