《猴子吃桃问题的VB程序》由会员分享，可在线阅读，更多相关《猴子吃桃问题的VB程序（4页珍藏版）》请在金锄头文库上搜索。
1、猴子吃桃问题的VB程序：有一群猴子摘了一堆桃子，第一天，吃了一半，觉得不过瘾，又吃了一只；以后每天也是如此，到第十天一看，只剩下一只桃子。问原来共有多少只桃子？程序流程图为：VB程序为：Rem 设第十天的桃子数X=1，然后计算第九天的X: x九=2*(x十+1)x = 1Print 第10 天的桃子数是：; xFor k = 9 To 1 Step -1 x = 2 * (x + 1) Print 第; k; 天的桃子数是：; xNextPrivate Sub Form_click()Dim n As IntegerDim num As Integernum = 1For n = 1 To 9
2、 num = (num + 1) * 2NextMsgBox 桃子总共 & num & 个End SubDim 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，你把整除符号记
3、错了，此处应将/改为 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 T
4、o 9 If a 3 + b 3 + c 3 = a * 100 + b * 10 + c Then Print a * 100 + b * 10 + c End IfNext 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 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
5、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
6、%, 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 Thentmp = Ra = Anumb = BnumEnd IfNext AnumMsgBox 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 Loop Until j 2End Sub
