VB实验4 循环结构

实验内容：

1. 累加

设s=1+2+3+....+n，编程计算s的值，n的值程序运行时输入，要求用For ... Next实现。窗体文件命名为ex18.frm，项目文件命名为 ex18.vbp，将ex18.frm及ex18.vbp上传至该个人网络存储空间。

2. 阶乘

编程用Do„Loop循环计算除乘 n!,n的值程序运行时输入，参考界面如下：

窗体文件命名为ex19.frm，项目文件命名为 ex19.vbp，将ex19.frm及ex19.vbp上传至该个人网络存储空间。

3.质数判断

输入一个自然数，判定其是否是质数，参考界面如下：

窗体文件命名为ex20.frm，项目文件命名为 ex20.vbp，将ex20.frm及ex20.vbp上传至该个人网络存储空间。 4.百鸡问题

我国古代“算经”里提出“百钱买百鸡”问题：鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一，百钱买百鸡，问鸡翁、母、雏各几何？要求在窗体上建立两个名称分别为Command1和Command2，标题分别为\"计算\"和\"退出\"的命令按钮。程序运行后，单击\"计算\"按钮，实现上述功能, 将结果同时输出到窗体，单击\"退出\"按钮，结束程序。

窗体文件命名为ex21.frm，项目文件命名为 ex21.vbp，将ex21.frm及ex21.vbp上传至该个人网络存储空间。 5.用级数计算π的近似值

教材第99页例5.7,用级数计算π的近似值，当最后一项的绝对值小于0.00001时，停止计算。要求在窗体上建立两个名称分别为Command1和Command2，标题分别为\"计算\"和\"退出\"的命令按钮。程序运行后，单击\"计算\"按钮，实现上述功能, 将结果同时输出到窗体，单击\"退出\"按钮，结束程序。

窗体文件命名为ex22.frm，项目文件命名为 ex22.vbp，将ex22.frm及ex22.vbp上传至该个人网络存储空间。

x

6.用级数计算e的近似值

xx2x3xne1......1!2!3!n!x

x

用级数计算e的近似值，当最后一项的绝对值小于0.00001时，停止计算。要求在窗体上建立两个名称分别为Command1和Command2，标题分别为\"计算\"和\"退出\"的命令按钮。程序运行后，单击\"计算\"按钮，实现上述功能, 将结果同时输出到窗体，单击\"退出\"按钮，结束程序。

窗体文件命名为ex22.frm，项目文件命名为 ex22.vbp，将ex22.frm及ex22.vbp上传至该个人网络存储空间。 思考题：(课外时间完成) 1. 求最大值

对x=1,2,...,10，求函数f(x)=x-10*cos(x)-5*sin(x)的最大值。

要求在窗体上建立两个名称分别为Command1和Command2，标题分别为\"计算\"和\"退出\"的命令按钮。程序运行后，单击\"计算\"按钮，实现上述功能, 将结果输出到窗体，单击\"退出\"按钮，结束程序。

窗体文件命名为sk01.frm，项目文件命名为 sk01.vbp，将sk01.frm及sk01.vbp上传至该个人网络存储空间。

2．打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等

333

于该数本身。例如：153是一个“水仙花数”，因为153=1＋5＋3。要求在窗体上建立两个名称分别为Command1和Command2，标题分别为\"计算\"和\"退出\"的命令按钮。程序运行后，单击\"计算\"按钮，实现上述功能, 将结果输出到窗体，单击\"退出\"按钮，结束程序。 窗体文件命名为sk02.frm，项目文件命名为 sk02.vbp，将sk02.frm及sk02.vbp上传至该个人网络存储空间。