1、.實 驗 報 告學院： 專業(yè)： 年級： 2006 姓名： 學號： 實驗室號：_ 計算機號： 實驗日期： 年 月 日 指導教師簽字： 成績： 報告退發(fā) (訂正 、 重做) 實驗四 循環(huán)結(jié)構(gòu)程序設(shè)計（設(shè)計性）一、實驗目的1、實驗目的（1） 掌握：For語句的使用（2） 掌握：Do語句的各種形式的使用（3） 掌握：如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)二、實驗內(nèi)容（1） 利用VB創(chuàng)建一個標準exe程序,程序用牛頓迭代法求方程2x3-4x2+3x-6=0的準確解x，程序界面包括兩個文本框，兩個按扭，兩個標簽控件在第文本框text1內(nèi)輸入方程的初始點，在文本框text2內(nèi)輸出解用戶界面如圖所示，并以4-1

2、.frm和4-1.vbp為名分別將窗體文件和工程文件保存在d:vb4的目錄下（本題要求采用循環(huán)語句來完成）圖4-1 （）利用創(chuàng)建一個標準exe程序，生成10個范圍是1-10隨機整數(shù)，并求解它們的最大值，最小值和平均值程序界而如圖所示，有四個label控件，個文本框控件和個按鈕控件要求程序運行時,點擊”確定”按鈕,就在label1控件上顯示出10個隨機生成的整數(shù),并對這10個整數(shù)求最大值,最小值和平均值,分別顯示在text1,text2和text3這三個框中.按退出按鈕退出程序. 并以4-2.frm和4-2.vbp為名分別將窗體文件和工程文件保存在d:vb4的目錄下（本題要求采用循環(huán)語句來完成）

3、圖4-2(3) 利用創(chuàng)建一個標準exe程序,在窗體上打印出九九乘法口訣表.如下示:要求點擊一下程序的窗體,窗體上就能夠打印出九九乘法表. 并以4-3.frm和4-3.vbp為名分別將窗體文件和工程文件保存在d:vb4的目錄下（本題要求采用循環(huán)語句來完成）圖4-3(4) 利用創(chuàng)建一個標準exe程序，求解如下問題：/2+1/4+1/50的值要求將結(jié)果打印在程序的窗體上并以4-4.frm和4-4.vbp為名分別將窗體文件和工程文件保存在d:vb4的目錄下（本題要求采用循環(huán)語句來完成）圖4-4（）利用創(chuàng)建一個標準exe程序，計算1+2+3.+100的值要求用do while-loop，for，dolo

4、op while ,do-until loop,doloop until,While-wend各實現(xiàn)一次將結(jié)果顯示在form窗體上并以4-5-1.frm和4-5-1.vbp.4-5-6.frm及4-5-6.vbp為名分別將窗體文件和工程文件保存在d:vb4的目錄下（本題要求采用循環(huán)語句來完成）圖4-5三、實驗環(huán)境（1）硬件：PC機（2）軟件：Windows 操作系統(tǒng)、Visual Basic 6.0四、實驗步驟1. 利用VB創(chuàng)建一個標準exe程序,程序用牛頓迭代法求方程2x3-4x2+3x-6=0的準確解x，程序界面包括兩個文本框，兩個按扭，兩個標簽控件在第文本框text1內(nèi)輸入方程的初始點，

5、在文本框text2內(nèi)輸出解用戶界面如圖4-1所示，并以4-1.frm和4-1.vbp為名分別將窗體文件和工程文件保存在d:vb4的目錄下（本題要求采用循環(huán)語句來完成）操作步驟如下：（1） 啟動Visual Basic（2） 窗體屬性設(shè)置如下：控件名稱屬性Form1Caption=“牛頓迭代法求根”Lbael1Caption=“X0=”Label2Caption=“X”Text1Text=” ”Text2Text=” “Command1Caption=”計算”Command2Caption=“退出”（3）窗體控件布局如下圖所示（4）雙擊窗體，打開代碼窗口，在Command1_Click()事件中

6、輸入如下代碼：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程序內(nèi)。（6）說明：牛頓迭代法的計算步驟是：（I）牛頓迭

7、代公式是：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 |<=，本題的=0.00052. 利用創(chuàng)建一個標準exe程序，生成10個范圍是1-10隨機整數(shù)，并求解它們的最大值，最小值和平均值程序界而如圖所示，有四個label控件，個文本框控件和個按鈕控件要求程序運行時,點擊”確定”按鈕,就在label1控件上顯示出10個隨機生成的整數(shù),并對這10個整數(shù)求最大值,最小值和平均值,分別顯示在text1,text2和text3這三個框中.按退出按鈕退出程序. 并

8、以4-2.frm和4-2.vbp為名分別將窗體文件和工程文件保存在d:vb4的目錄下（本題要求采用循環(huán)語句來完成）操作步驟如下：(1)啟動Visual Basic(2)窗體屬性設(shè)置如下：控件名稱屬性Form1Caption=“隨機數(shù)”Lbael1Caption=“”Label2Caption=“最大值”Label3Caption=“最小值”Label4Caption=“平均值”Text1Text=” ”Text2Text=” “Text3Text=” “Command1Caption=”求解”Command2Caption=“退出”（3）窗體控件布局如下圖所示（4）雙擊窗體，打開代碼窗口，在C

9、ommand1_Click()事件中輸入如下代碼：Dim x, x0, f, f1 As SingleDim i As IntegerDim number As IntegerDim sum As IntegerDim max As IntegerDim average As SingleDim min As Integersum = 0max = 0min = 10For i = 1 To 10 number = Int(10 * Rnd) + 1 Label1.Caption = Label1.Caption + CStr(number) & " " sum =

10、 sum + number If (number > 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程序內(nèi)。3. 利用創(chuàng)建一個標準exe程序,在窗體上打印出九九乘法口訣表.如

11、下示:要求點擊一下程序的窗體,窗體上就能夠打印出九九乘法表. 并以4-3.frm和4-3.vbp為名分別將窗體文件和工程文件保存在d:vb4的目錄下（本題要求采用循環(huán)語句來完成）操作步驟如下：（1） 啟動Visual Basic（2） 窗體屬性設(shè)置如下：控件名稱屬性Form1Caption=“打印九九乘法表”（3）雙擊窗體，打開代碼窗口，在Form_click()事件中輸入如下代碼：Private Sub Form_click()FontSize = 10Print Tab(20); "九九乘法表"Print: PrintPrint "# "For i

12、= 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程序內(nèi)。4. 利用創(chuàng)建一個標準exe程序，求解如下問題：/2+1/4+1/50的值要求將結(jié)果打印在程序的窗體上并以4-4.frm和4-4.vbp為名

13、分別將窗體文件和工程文件保存在d:vb4的目錄下（本題要求采用循環(huán)語句來完成）操作步驟如下：(1)啟動Visual Basic(2)窗體屬性設(shè)置如下：控件名稱屬性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.fr

14、m和4-4.vbp文件名將窗體和工程文件保存在D:VB程序內(nèi)。5. 利用創(chuàng)建一個標準exe程序，計算1+2+3.+100的值要求用do while-loop，for，doloop while ,do-until loop,doloop until,While-wend各實現(xiàn)一次將結(jié)果顯示在form窗體上并以4-5-1.frm和4-5-1.vbp.4-5-6.frm及4-5-6.vbp為名分別將窗體文件和工程文件保存在d:vb4的目錄下（本題要求采用循環(huán)語句來完成）操作步驟如下：(1)啟動Visual Basic(2)窗體屬性設(shè)置如下：控件名稱屬性Form1Caption=“高斯求和”（3）雙擊

15、窗體，打開代碼窗口，在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 "循環(huán)變量的值為:" iEnd Sub(II) while-wend形式(以4-5-2.frm和4-5-2.vbp存盤)Private Sub Form_Click()Dim i As

16、IntegerDim sum As Integersum = 0i = 1While i <= 100 sum = sum + i i = i + 1 Wend Print "和為" sumPrint "循環(huán)變量的值為:" 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 + iL

17、oopPrint "和為" sumPrint "循環(huán)變量的值為:" 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)Print "和為" sumPrint "循環(huán)變量的值為:" iEnd Sub(v) do until.loop形式(以4-5-5.frm和4-5-5.vbp存盤)Private Sub Form_Click()Dim i As IntegerDim sum As Integeri = 0sum = 0Do Until i >= 100 i = i + 1 sum = sum + i Loop Print "和為" sumPrint "循環(huán)變量的值為:" iEnd Sub(VI) do. loop until形式 (以4-5-6.frm和4-5.6.vb