实验四vb循环控制语句.docVIP

实 验 报 告 学院： 专业： 年级： 2006 姓名： 学号： 实验室号：_____ 计算机号： 实验日期： 年 月 日 指导教师签字： 成绩： 报告退发 (订正 、 重做) 实验四 循环结构程序设计（设计性） 一、实验目的 1、实验目的 掌握：For语句的使用 掌握：Do语句的各种形式的使用 掌握：如何控制循环条件，防止死循环或不循环 二、实验内容 利用VB创建一个标准exe程序,程序用牛顿迭代法求方程2x3-4x2+3x-6=0的准确解x，程序界面包括两个文本框，两个按扭，两个标签控件．在第文本框text1内输入方程的初始点，在文本框text2内输出解．用户界面如图所示，并以4-1.frm和4-1.vbp为名分别将窗体文件和工程文件保存在d:\vb\4的目录下（本题要求采用循环语句来完成）． 图4-1 （２）利用ＶＢ创建一个标准exe程序，生成10个范围是1-10随机整数，并求解它们的最大值，最小值和平均值．程序界而如图所示，有四个label控件，３个文本框控件和２个按钮控件．要求程序运行时,点击”确定”按钮,就在label1控件上显示出10个随机生成的整数,并对这10个整数求最大值,最小值和平均值,分别显示在text1,text2和text3这三个框中.按退出按钮退出程序. 并以4-2.frm和4-2.vbp为名分别将窗体文件和工程文件保存在d:\vb\4的目录下（本题要求采用循环语句来完成）． 图4-2 (3) 利用ＶＢ创建一个标准exe程序,在窗体上打印出九九乘法口诀表.如下示: 要求点击一下程序的窗体,窗体上就能够打印出九九乘法表. 并以4-3.frm和4-3.vbp为名分别将窗体文件和工程文件保存在d:\vb\4的目录下（本题要求采用循环语句来完成）． 图4-3 (4) 利用ＶＢ创建一个标准exe程序，求解如下问题： １＋１/2+1/4+……+1/50的值． 要求将结果打印在程序的窗体上．并以4-4.frm和4-4.vbp为名分别将窗体文件和工程文件保存在d:\vb\4的目录下（本题要求采用循环语句来完成）． 图4-4 （５）利用ＶＢ创建一个标准exe程序，计算1+2+3….+100的值． 要求用do while-loop，for，do—loop while ,do---until loop,do…loop until, While----wend各实现一次．将结果显示在form窗体上．并以4-5-1.frm和4-5-1.vbp…..4-5-6.frm及4-5-6.vbp为名分别将窗体文件和工程文件保存在d:\vb\4的目录下（本题要求采用循环语句来完成）． 图4-5 三、实验环境 （1）硬件：PC机 （2）软件：Windows 操作系统、Visual Basic 6.0 四、实验步骤 1. 利用VB创建一个标准exe程序,程序用牛顿迭代法求方程2x3-4x2+3x-6=0的准确解x，程序界面包括两个文本框，两个按扭，两个标签控件．在第文本框text1内输入方程的初始点，在文本框text2内输出解．用户界面如图4-1所示，并以4-1.frm和4-1.vbp为名分别将窗体文件和工程文件保存在d:\vb\4的目录下（本题要求采用循环语句来完成）． 操作步骤如下： 启动Visual Basic 窗体属性设置如下： 控件名称 属性 Form1 Caption=“牛顿迭代法求根” Lbael1 Caption=“X0=” Label2 Caption=“X” Text1 Text=” ” Text2 Text=” “ Command1 Caption=”计算” Command2 Caption=“退出” （3）窗体控件布局如下图所示 （4）双击窗体，打开代码窗口，在Command1_Click()事件中输入如下代码： Dim x, x0, f, f1 As Single x0 = Val(Text1.Text) Do x0 = x f = ((2 * x0 - 4) * x0 + 3) * x0 - 6 f1 = (6 * x0 - 8) * x0 + 3 x = x0 - f / f1 Loop Until Abs(x - x0) = 0.00001 Text2.Text = x 在command2_click()事件中输入 End （5）单击“文件”/“保存工