vb实验4循环结构.docx

实验4循环结构 实验内容: 累加 设s=1+2+3+....+n ，编程计算s的值，n的值程序运行时输入，要求用 For ... Next实现。 窗体文件命名为 ex18.frm，项目文件命名为 ex18.vbp，将ex18.frm 及ex18.vbp上传至该 个人网络存储空间。 阶乘 编程用Do Loop循环计算除乘n!,n的值程序运行时输入，参考界面如下: 窗体文件命名为 ex19.frm，项目文件命名为 ex19.vbp，将ex19.frm 及ex19.vbp上传至该 个人网络存储空间。 质数判断 输入一个自然数，判定其是否是质数，参考界面如下： 窗体文件命名为 ex20.frm，项目文件命名为 ex20.vbp，将ex20.frm 及ex20.vbp上传至该 个人网络存储空间。 百鸡问题 我国古代“算经”里提出“百钱买百鸡”问题：鸡翁一，值钱五，鸡母一，值钱三，鸡雏三， 值钱一，百钱买百鸡，问鸡翁、母、雏各几何？要求在窗体上建立两个名称分别为 Command1 和Command2，标题分别为”计算”和退出”的命令按钮。程序运行后，单击 ”计算”按钮，实 现上述功能，将结果同时输出到窗体，单击 ”退出”按钮，结束程序。 Private Sub Conmandl Cl i ck(D For ic = 0 To 100 \ 5~ For jr = 0 To 100 - x z = IOC - x - y If5*x + 3 + y+ i / 3 = 100 Then Print x; y; z Nest Next End Sul 窗体文件命名为 ex21.frm，项目文件命名为 ex21.vbp，将ex21.frm 及ex21.vbp上传至该 个人网络存储空间。 用级数计算n的近似值 TOC \o 1-5 \h \z 怎 1 1 1 \o Current Document 二］■= —■ -1- i— ■=■ ■ 4 3 5 7 教材第99页例5.7,用级数计算n的近似值，当最后一项的绝对值小于 0.00001时，停止计 算。要求在窗体上建立两个名称分别为 Comma nd和Comma nd2 ,标题分别为计算和退出 的命令按钮。程序运行后，单击 ”计算按钮，实现上述功能，将结果同时输出到窗体，单 击”退出按钮，结束程序。 窗体文件命名为ex22.frm 窗体文件命名为ex22.frm，项目文件命名为 个人网络存储空间。 用级数计算ex的近似值 ex22.vbp，将 ex22.frm 及 ex22.vbp 上传至该 nx+——+ n x +——+n! X _ X X x e =1 ■ 1! 2! 3! 用级数计算ex的近似值，当最后一项的绝对值小于 0.00001时，停止计算。要求在窗体上 建立两个名称分别为 Comma nd和Comma nd2，标题分别为”计算”和退出”的命令按钮。程 序运行后，单击计算按钮，实现上述功能，将结果同时输出到窗体， 单击退出”按钮，结 束程序。 窗体文件命名为 ex22.frm，项目文件命名为 ex22.vbp，将ex22.frm 及ex22.vbp上传至该 个人网络存储空间。 思考题：(课外时间完成) 1.求最大值 对 x=1,2,...,10 ，求函数 f(x)=x-10*cos(x)-5*sin(x) 的最大值。 要求在窗体上建立两个名称分别为 Comma nd和Comma nd2，标题分别为”计算”和退出”的 命令按钮。程序运行后，单击”计算按钮，实现上述功能，将结果输出到窗体，单击”退出 按钮，结束程序。 窗体文件命名为 sk01.frm，项目文件命名为 sk01.vbp，将sk01.frm 及sk01.vbp上传至该 个人网络存储空间。 2 ?打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等 于该数本身。例如：153是一个“水仙花数”，因为 153=13+ 53+ 33。要求在窗体上建立两 个名称分别为 Comma nd和 Comma nd2,标题分别为”计算”和退出”的命令按钮。程序运行 后，单击”计算”按钮，实现上述功能，将结果输出到窗体，单击”退出按钮，结束程序。 窗体文件命名为 sk02.frm，项目文件命名为 sk02.vbp，将sk02.frm 及sk02.vbp上传至该 个人网络存储空间。