猴子吃桃问题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 HYPERLINK /p/Def_Ud?from=zhidao \t _blank Def_Ud | 分类： HYPERLINK /browse/867 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最少，为