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

实 验 报 告学院： 专业： 年级： 2006 姓名： 学号： 实验室号：_ 计算机号： 实验日期： 年 月 日 指导教师签字： 成绩： 报告退发 (订正 、 重做) 实验四 循环结构程序设计（设计性）一、实验目的1、实验目的（1） 掌握：For语句的使用（2） 掌握：Do语句的各种形式的使用（3） 掌握：如何控制循环条件，防止死循环或不循环二、实验内容（1） 利用VB创建一个标准exe程序,程序用牛顿迭代法求方程2x3-4x2+3x-6=0的准确解x，程序界面包括两个文本框，两个按扭，两个标签控件在第文本框text1内输入方程的初始点，在文本框text2内输出解用户界面如图所示，并以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为名分别将窗体文件和工程文件保存在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:vb4的目录下（本题要求采用循环语句来完成）图4-4（）利用创建一个标准exe程序，计算1+2+3.+100的值要求用do while-loop，for，doloop while ,do-until loop,doloop until,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）软件：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:vb4的目录下（本题要求采用循环语句来完成）操作步骤如下：（1） 启动Visual Basic（2） 窗体属性设置如下：控件名称属性Form1Caption=“牛顿迭代法求根”Lbael1Caption=“X0=”Label2Caption=“X”Text1Text=” ”Text2Text=” “Command1Caption=”计算”Command2Caption=“退出”（3）窗体控件布局如下图所示（4）双击窗体，打开代码窗口，在Command1_Click()事件中输入如下代码：Dim x, x0, f, f1 As Singlex0 = 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）单击“文件”/“保存工程”菜单项，以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)当| xn+1 - xn | max) Then max = number End If If (number min) Then min = number End If Next average = sum / 10 Text1.Text = max Text2.Text = min Text3.Text = average在command2_click()事件中输入End（5）单击“文件”/“保存工程”菜单项，以4-2.frm和4-2.vbp文件名将窗体和工程文件保存在D:VB程序内。3. 利用创建一个标准exe程序,在窗体上打印出九九乘法口诀表.如下示:要求点击一下程序的窗体,窗体上就能够打印出九九乘法表. 并以4-3.frm和4-3.vbp为名分别将窗体文件和工程文件保存在d:vb4的目录下（本题要求采用循环语句来完成）操作步骤如下：（1） 启动Visual Basic（2） 窗体属性设置如下：控件名称属性Form1Caption=“打印九九乘法表”（3）双击窗体，打开代码窗口，在Form_click()事件中输入如下代码：Private Sub Form_click()FontSize = 10Print Tab(20); 九九乘法表Print: PrintPrint # For i = 1 To 9 Print Tab(i * 6); i; Next i PrintFor j = 1 To 9 Print j; ; For k = 1 To j temp = j * k Print Tab(k * 6); temp; ; Next k Print Next jEnd Sub（4）单击“文件”/“保存工程”菜单项，以4-3.frm和4-3.vbp文件名将窗体和工程文件保存在D:VB程序内。4. 利用创建一个标准exe程序，求解如下问题：/2+1/4+1/50的值要求将结果打印在程序的窗体上并以4-4.frm和4-4.vbp为名分别将窗体文件和工程文件保存在d:vb4的目录下（本题要求采用循环语句来完成）操作步骤如下：(1)启动Visual Basic(2)窗体属性设置如下：控件名称属性Form1Caption=“求解运算”（3）双击窗体，打开代码窗口，在Form_Click()事件中输入如下代码：Private Sub Form_Click()Dim sum As SingleDim i As Integersum = 1#For i = 2 To 50 Step 2 sum = sum + 1 / CLng(i) Next i Print sumEnd Sub（4）单击“文件”/“保存工程”菜单项，以4-4.frm和4-4.vbp文件名将窗体和工程文件保存在D:VB程序内。5. 利用创建一个标准exe程序，计算1+2+3.+100的值要求用do while-loop，for，doloop while ,do-until loop,doloop until,While-wend各实现一次将结果显示在form窗体上并以4-5-1.frm和4-5-1.vbp.4-5-6.frm及4-5-6.vbp为名分别将窗体文件和工程文件保存在d:vb4的目录下（本题要求采用循环语句来完成）操作步骤如下：(1)启动Visual Basic(2)窗体属性设置如下：控件名称属性Form1Caption=“高斯求和”（3）双击窗体，打开代码窗口，在Form_click()事件中输入如下代码：(I)for语句方式(以4-5-1.frm和4-5-1.vbp存盘) Private Sub Form_Click()Dim i As IntegerDim sum As Integersum = 0For i = 1 To 100 sum = sum + iNextPrint 和为; sumPrint 循环变量的值为:; iEnd Sub(II) while-wend形式(以4-5-2.frm和4-5-2.vbp存盘)Private Sub Form_Click()Dim i As IntegerDim sum As Integersum = 0i = 1While i = 100 sum = sum + i i = i + 1 Wend Print 和为; sumPrint 循环变量的值为:; iEnd Sub（III）do while.loop形式 (以4-5-3.frm和4-5-3.vbp存盘)Private Sub Form_Click()Dim i As IntegerDim sum As Integersum = 0i = 0Do While i 100i = i + 1sum = sum + iLoopPrint 和为; sumPrint 循环变量的值为:; iEnd Sub(IV) do. loop while形式(以4-5-4.frm和4-5-4.vbp存盘)Private Sub Form_Click()Dim i As IntegerDim sum As Integeri = 0sum = 0Do i = i + 1 sum = sum + i Loop While (i = 100 i = i + 1 sum = sum + i Loop Print 和为; sumPrint 循环变量的值为:; iEnd Sub(VI) do. loop until形式 (以4-5-6.frm和4-5.6.vbp存盘)Private Sub Form_Click()Dim