青岛科技大学vb答案实验四

PAGEPAGE4实验四循环结构程序设计〔4个学时〕一、实验目的掌握For循环语句的使用。掌握单Do循环语句的使用。掌握如何控制循环条件，防止死循环或不循环。二、实验内容1.设计一个程序：用For循环语句计算1~n(正整数)的所有的偶数之和。要求:程序运行后，单击窗体弹出一个输入框由用户输入n的值，然后在窗体上显示计算的结果。1〕代码设计如下PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsIntegera=InputBox("请输入n值",n,"")Forb=2ToaIfbMod2=0Thenc=c+bEndIfNextbPrintcEndSub2〕将输入100时的运行结果的界面截下来粘贴在下面：3〕调试过程记录〔错误情况及改正方法〕2．设计程序：求100以内所有19的倍数的数。并求这些数的和。要求：点击“显示〞按钮时，将结果显示在窗体上。点击“求和〞按钮时，将结果显示在一个文本框中。1〕代码设计如下DimbAsInteger,cAsIntegerPrivateSubCommand1_Click()Forb=1To100IfbMod19=0ThenPrintbEndIfNextbEndSubPrivateSubCommand2_Click()Forb=1To100IfbMod19=0Thenc=c+bEndIfNextbText1.Text=cEndSub2〕将运行结果的界面截下来粘贴在下面3〕调试过程记录〔错误情况及改正方法〕3.设计一个程序：我国今年的国民生产总值为45600亿元，假设今后每年以9%的增长率增长，计算多少年后能实现国民生产总值翻一番？要求：单击“计算〞按钮时，将计算的结果显示在窗体上。1〕代码设计PrivateSubCommand1_Click()DimaAsLong,bAsLong,cAsIntegera=45600:b=2*a:c=0DoWhilea<ba=1.09*ac=c+1LoopPrintcEndSub2〕将运行结果的界面截下来粘贴在下面3〕调试过程记录〔错误情况及改正方法〕4.编写一个程序，点击窗体时在窗体上输出所有水仙花数〔水仙花数是指一个三位十进制正整数，该数的各位数字的立方和等于该数本身，例如153是个水仙花数，因为1^3+5^3+3^3=153〕。1〕代码设计PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsIntegerFora=1To9Forb=0To9Forc=0To9If(100*a+10*b+c)=(a^3+b^3+c^3)ThenPrinta&b&cEndIfNextcNextbNextaEndSub2〕将程序运行的结果图截下粘贴在下面。3〕调试过程记录〔错误情况及改正方法〕5.编写一个程序解百马百瓦古题：大、小马和马驹共100匹，共驮100片瓦，大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合？要求：单击窗体将结果显示在窗体上。1〕代码设计PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsInteger,dAsIntegerd=0Fora=1To100Forb=1To(100-a)c=100-a-bIf(3*a+2*b+c/2)=100Thend=d+1Printd;Tab;"大马"&a&"匹";Tab;"小马"&b&"匹";Tab;"马驹"&c&"匹"Print"************************************"EndIfNextbNextaPrint"共有"&d&"种方法"EndSub2〕将程序运行的结果图截下粘贴在下面。3〕调试过程记录〔错误情况及改正方法〕错误Fora=0To100Forb=0To(100-a)Forc=0To(100-a-b)If(3*a+2*b+c/2)=100Thend=d+1Printd;Tab;"大马"&a&"匹";Tab;"小马"&b&"匹";Tab;"马驹"&c&"匹"Print"**********