[工学]实验四vb循环控制语句

《[工学]实验四vb循环控制语句》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、实验报告学院：专业：年级：2006姓名：学号：实验室号：_____计算机号：实验日期：年月日指导教师签字：成绩：报告退发(订正、重做)实验四循环结构程序设计（设计性）一、实验目的1、实验目的（1）掌握：For语句的使用（2）掌握：Do语句的各种形式的使用（3）掌握：如何控制循环条件，防止死循环或不循环二、实验内容（1）利用VB创建一个标准exe程序,程序用牛顿迭代法求方程2x3-4x2+3x-6=0的准确解x，程序界面包括两个文本框，两个按扭，两个标签控件．在第文本框text1内输入方程的初始点，在文本框text2内输出解．用户界面如图所示，

2、并以4-1.frm和4-1.vbp为名分别将窗体文件和工程文件保存在d:vb4的目录下（本题要求采用循环语句来完成）．图4-1（２）利用ＶＢ创建一个标准exe程序，生成10个范围是1-10随机整数，并求解它们的最大值，最小值和平均值．程序界而如图所示，有四个label控件，３个文本框控件和２个按钮控件．要求程序运行时,点击”确定”按钮,就在label1控件上显示出10个随机生成的整数,并对这10个整数求最大值,最小值和平均值,分别显示在text1,text2和text3这三个框中.按退出按钮退出程序.并以4-2.frm和4-2.vbp为名

3、分别将窗体文件和工程文件保存在d:vb4的目录下（本题要求采用循环语句来完成）．图4-2(3)利用ＶＢ创建一个标准exe程序,在窗体上打印出九九乘法口诀表.如下示:要求点击一下程序的窗体,窗体上就能够打印出九九乘法表.并以4-3.frm和4-3.vbp为名分别将窗体文件和工程文件保存在d:vb4的目录下（本题要求采用循环语句来完成）．图4-3(4)利用ＶＢ创建一个标准exe程序，求解如下问题：１＋１/2+1/4+……+1/50的值．要求将结果打印在程序的窗体上．并以4-4.frm和4-4.vbp为名分别将窗体文件和工程文件保存在d:

4、vb4的目录下（本题要求采用循环语句来完成）．图4-4（５）利用ＶＢ创建一个标准exe程序，计算1+2+3….+100的值．要求用dowhile-loop，for，do—loopwhile,do---untilloop,do…loopuntil,While----wend各实现一次．将结果显示在form窗体上．并以4-5-1.frm和4-5-1.vbp…..4-5-6.frm及4-5-6.vbp为名分别将窗体文件和工程文件保存在d:vb4的目录下（本题要求采用循环语句来完成）．图4-5三、实验环境（1）硬件：PC机（2）软件：Windo

5、ws操作系统、VisualBasic6.0四、实验步骤1.利用VB创建一个标准exe程序,程序用牛顿迭代法求方程2x3-4x2+3x-6=0的准确解x，程序界面包括两个文本框，两个按扭，两个标签控件．在第文本框text1内输入方程的初始点，在文本框text2内输出解．用户界面如图4-1所示，并以4-1.frm和4-1.vbp为名分别将窗体文件和工程文件保存在d:vb4的目录下（本题要求采用循环语句来完成）．操作步骤如下：（1）启动VisualBasic（2）窗体属性设置如下：控件名称属性Form1Caption=“牛顿迭代法求根”Lbae

6、l1Caption=“X0=”Label2Caption=“X”Text1Text=””Text2Text=”“Command1Caption=”计算”Command2Caption=“退出”（3）窗体控件布局如下图所示（4）双击窗体，打开代码窗口，在Command1_Click()事件中输入如下代码：Dimx,x0,f,f1AsSinglex0=Val(Text1.Text)Dox0=xf=((2*x0-4)*x0+3)*x0-6f1=(6*x0-8)*x0+3x=x0-f/f1LoopUntilAbs(x-x0)<=0.00001Text

7、2.Text=x在command2_click()事件中输入End（5）单击“文件”/“保存工程”菜单项，以4-1.frm和4-1.vbp文件名将窗体和工程文件保存在D:VB程序内。（6）说明：牛顿迭代法的计算步骤是：（I）牛顿迭代公式是：xn+1=xn-f(xn)/f’(xn)n=0,1,2,3…..(II)先计算f(x0)=2x3-4x2+3x-6=0和f’(x0)=6x2-8x+3(III)当

8、xn+1-xn

9、<=ε，本题的ε=0.00052.利用ＶＢ创建一个标准exe程序，生成10个范围是1-10随机整数，并求解它们的最大值，最小值

10、和平均值．程序界而如图所示，有四个label控件，３个文本框控件和２个按钮控件．要求程序运行时,点击”确定”按钮,就在label1控件上显示出10个随机生成的整数,