1、猴子吃桃问题的 VB 程序：有一群猴子摘了一堆桃子，第一天，吃了一半，觉得不过瘾，又吃了一只；以后每天也是如此，到第十天一看，只剩下一只桃子。问原来共有多少只桃子？程序流程图为：VB 程序为：Rem 设第十天的桃子数 X=1，然后计算第九天的 X: x 九=2*(x 十+1)x = 1Print “第 10 天的桃子数是：“; xFor k = 9 To 1 Step -1x = 2 * (x + 1)Print “第“; k; “天的桃子数是：“; xNextPrivate Sub Form_click()Dim n As IntegerDim num As Integernum = 1Fo
2、r n = 1 To 9num = (num + 1) * 2NextMsgBox “桃子总共 “ 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 个
3、位上的数 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 9For b = 0 To 9For c = 0 To 9If a 3 + b 3 + c 3 = a * 100 + b * 10 + c ThenPrint a * 100 + b * 10
4、+ cEnd IfNext cNext bNext aEnd SubVB 多重循环结构的解读. 2010-03-22 22:20 Def_Ud | 分类：VB | 浏览 907 次 For i= 1 to 3for j= 1to ifor k= j to 3a=a+1next knext jnext i求详细解答.我有更好的答案提问者采纳2010-03-23 09:47给你你最直接的吧i=1j=1k=1 a=1k=2 a=2k=3 a=3i=2j=1k=1 a=4k=2 a=5k=3 a=6j=2k=2 a=7k=3 a=8i=3j=1k=1 a=9k=2 a=10k=3 a=11j=2k=2
5、 a=12k=3 a=13j=3k=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 = In
6、t(321 - 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()i = 0Print “i“, “j“, “?“Doi = i + 1j = Int(321 - 17 * i) / 27)Print i, j, 321 - 17 * i - 27 * jLoop Until j 2End Sub
