实验五 循环结构的程序设计

《实验五 循环结构的程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验五循环结构的程序设计（二）一、实验目的1、掌握For…Next与Do…Loop循环语句及其构成的双重循环；2、进一步掌握VB常用控件的属性、常用事件和重要方法；3、熟练掌握在窗体上创建控件的操作方法；4、掌握事件过程的代码编写。二、实验内容1、验证实验一；2、程序设计一。三、实验指导1、验证实验一。输出九九表（左上角、右下角两种形式）。题目分析：本题的关键是找出规律，外循环都是9次；左上角型内循环从1到“10-行号”；右下角型内循环从“10-行号”到9。参考代码：PrivateSubCommand1_Click()Cls：FontSize=12Pri

2、ntTab(25);"九九表"：Print：Print"*";Fori=1To9PrintTab(i*6);i;NextPrint：PrintForj=1To9Printj;Fork=1To10-jm=j*kPrintTab(k*6);m;NextkPrintNextjEndSubPrivateSubCommand2_Click()Cls：FontSize=12PrintTab(25);"九九表"：Print：Print"*";Fori=1To9PrintTab(i*6);i;NextPrint：PrintForj=1To9Printj;Fork=10-

3、jTo9m=j*kPrintTab(k*6);m;NextkPrintNextjEndSub运行界面如图5.1、图5.2所示。图5.1左上角型九九表运行界面图5.2右下角型九九表运行界面2、程序设计一。输出九九表（右上角形式）。代码：/*-------------------------------------------------------------PrivateSubCommand1_Click()Cls:FontSize=12PrintTab(25);"九九表":Print:Print"*";Fori=1To9PrintTab(i*6);i;

4、NextPrint:PrintForj=1To9Printj;Fork=jTo10m=j*kPrintTab(k*6);m;NextkPrintNextjEndSub---------------------------------------------*/作业：1.猴子吃桃问题。有一群猴子吃桃，第一天吃了总数的一半又多吃了一颗，第二天吃了剩下的一半又多吃了一颗，第三天如此，……直到第九天，第十天还未吃却只有一个桃子，求原来有多少桃子？2.编程实现单击相应的命令按钮输出对应的图案如图所示。图5.3打印图案界面3.分别按以下要求计算ex=1+x/1!+x

5、2/2!+x3/3!+……+xn/n!+……的值（X的值由文本框输入）。（1）直到第21项。（2）直到最后一项小于等于10-6。PrivateSubCommand1_Click()Fori=1To5Fork=1ToiPrint"";NextkForj=1To5Print"*";NextjPrintNextiEndSubPrivateSubCommand2_Click()Fori=1To5Fork=5ToiStep-1Print"";NextkForj=1To2*i-1Print"*";NextjPrintNextiEndSubPrivateSubComm

6、and3_Click()Fori=5To1Step-1Fork=5ToiStep-1Print"";NextkForj=1To2*i-1Print"*";NextjPrintNextiEndSub