猴子吃桃问题的vb程序

《猴子吃桃问题的vb程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、猴子吃桃问题的VB程序：有一群猴子摘了一堆桃子，第一天，吃了一半，觉得不过瘾，又吃了一只；以后每天也是如此，到第十天一看，只剩下一只桃子。问原来共有多少只桃子？程序流程图为：VB程序为：Rem设第十天的桃子数X=1，然后计算第九天的X:x九=2*(x十+1)x=1Print"第10天的桃子数是：";xFork=9To1Step-1x=2*(x+1)Print"第";k;"天的桃子数是：";xNextPrivateSubForm_click()DimnAsIntegerDimnumAsIntegernum=1Forn=

2、1To9num=(num+1)*2NextMsgBox"桃子总共"&num&"个"EndSubDimx%,i%Clsx=1Print"第7天有了1个"Fori=6To1Step-1x=(x+1)*2Print"第";i;"天有";x;"个"Nexti水仙花数问题：第一种方法：单循环分离数PrivateSubForm_Load()1，装载窗体时不能运行Print应改为form_clickDima,b,c,iAsIntegerFori=100To1000a=i/100'百位上的数2，你把整除符号记错了，此处应将"/"改为

3、""b=(i/10)Mod10'十位上的数3,此处应改为b=(i-a*100)10c=iMod10'个位上的数If100*a+10*b+c=a*a*a+b*b*b+c*c*cThenPrinti'因100*a+10*b+c=i，可以简化程序改为iEndIfNextiEndSub第二种方法：三重循环结构合成PrivateSubForm_click()Dima%,b%,c%Fora=1To9Forb=0To9Forc=0To9Ifa^3+b^3+c^3=a*100+b*10+cThenPrinta*100+b*10+

4、cEndIfNextcNextbNextaEndSubVB多重循环结构的解读.2010-03-2222:20Def_Ud

5、分类：VB

6、浏览907次Fori=1to3forj=1toifork=jto3a=a+1nextknextjnexti求详细解答.我有更好的答案提问者采纳2010-03-2309:47给你你最直接的吧i=1j=1k=1a=1k=2a=2k=3a=3i=2j=1k=1a=4k=2a=5k=3a=6j=2k=2a=7k=3a=8i=3j=1k=1a=9k=2a=10k=3a=11j=2k=2a=12k

7、=3a=13j=3k=3a=14最后结果应该是a=14楼上的是语句解释有1根长度为321米的钢材料，要将他截取成两种规格a.b.a.b的长度分别为17米和27米的短料，每种至少1段。问分割成a.b各多少段后，剩余的材料r最少。程序运行后，单击命令按钮，就能输出结果第一种方法：PrivateSubForm_click()DimAnum%,Bnum%,R%,tmp%,a%,b%'定义一些变量tmp=321'初始化中间数据ForAnum=1ToInt(321/17)'开始循环，从A=1开始比较Bnum=Int((321-A

8、num*17)/27)'求B的个数R=(321-Anum*17)Mod27'求剩下材料的长度IfR