《基于VB可視化程序設(shè)計(jì)》《VB程序設(shè)計(jì)》實(shí)驗(yàn)指導(dǎo)書

1、基于VB可視化程序設(shè)計(jì)/VB程序設(shè)計(jì)實(shí)驗(yàn)指導(dǎo)書實(shí)驗(yàn)1 簡單Visual Basic程序設(shè)計(jì)一、實(shí)驗(yàn)?zāi)康恼莆帐褂肰isual Basic 6集成環(huán)境，熟悉設(shè)計(jì)VB應(yīng)用程序的步驟。二、實(shí)驗(yàn)要求按照實(shí)驗(yàn)題目的要求，編寫程序并上機(jī)調(diào)試三、實(shí)驗(yàn)設(shè)備計(jì)算機(jī)、Windows 98 、Visual Basic 6四、實(shí)驗(yàn)原理、方法上機(jī)操作使用Visual Basic 6輸入并調(diào)試程序五、實(shí)驗(yàn)內(nèi)容掌握面向?qū)ο蟮目梢暬幊毯褪录?qū)動(dòng)的編程機(jī)制；題1：在運(yùn)行中當(dāng)用鼠標(biāo)單擊窗體時(shí)，窗體上顯示出“歡迎您來到VB世界! ”題2：設(shè)計(jì)一個(gè)應(yīng)用程序，由用戶輸入正方形的邊長，計(jì)算并輸出正方形的面積 六、實(shí)驗(yàn)步驟設(shè)計(jì)VB應(yīng)用程序

2、的大致步驟如下： (1)建立用戶界面的對象； (2)設(shè)置對象的屬性值； (3)編寫程序代碼，建立事件過程； (4)保存和運(yùn)行應(yīng)用程序題1：在運(yùn)行中當(dāng)用鼠標(biāo)單擊窗體時(shí)，窗體上顯示出“歡迎您來到VB世界! ”設(shè)計(jì)步驟如下： 1. 創(chuàng)建窗體 在系統(tǒng)默認(rèn)提供的窗體上輸出若干文字，不必專門設(shè)計(jì)用戶界面。 2. 編寫程序代碼，建立事件過程 代碼窗口：進(jìn)入；選擇了對象和事件；編寫程序代碼 事件過程名，由兩部分組成：對象名和事件名3. 保存工程 保存窗體文件(.frm)和工程文件(.vbp)4. 運(yùn)行程序 執(zhí)行“啟動(dòng)”命令，即用解釋方式運(yùn)行程序 執(zhí)行“結(jié)束”命令，即可結(jié)束程序的運(yùn)行窗體顯示情況題2：設(shè)計(jì)一個(gè)應(yīng)

3、用程序，由用戶輸入正方形的邊長，計(jì)算并輸出正方形的面積 要?jiǎng)?chuàng)建的應(yīng)用程序用戶界面窗體上含有兩個(gè)標(biāo)簽、兩個(gè)文本框和兩個(gè)命令按鈕，兩個(gè)標(biāo)簽分別用于顯示文字“邊長”和“面積”，兩個(gè)文本框用于輸入數(shù)據(jù)和顯示計(jì)算結(jié)果 程序功能要求： 運(yùn)行時(shí)，用戶在“邊長”文本框中輸入某一個(gè)數(shù)，當(dāng)單擊“計(jì)算”按鈕時(shí)，則在“面積”文本框中顯示該數(shù)的平方數(shù)。單擊“結(jié)束”按鈕，則結(jié)束程序的運(yùn)行。1. 創(chuàng)建窗體 在默認(rèn)窗體Form1上添加控件，以構(gòu)建用戶界面2. 在窗體上添加界面的控件 設(shè)置控件的方法 在Form1窗體上添加以下控件： 標(biāo)簽Label1：用于顯示文字“邊長”； 標(biāo)簽Label2：用于顯示文字“面積”。 文本框Te

4、xt1：用于邊長數(shù)； 文本框Text2：用于顯示計(jì)算結(jié)果(平方數(shù))。 命令按鈕Command1：用于計(jì)算輸入數(shù)的平方，并把結(jié)果 顯示在文本框Text2中； 命令按鈕Command2：用于結(jié)束應(yīng)用程序的運(yùn)行。3. 設(shè)置對象屬性在“屬性窗口”中進(jìn)行 設(shè)置以下對象的屬性：(1)設(shè)置窗體Form1的Caption(標(biāo)題名)屬性為“計(jì)算正方形的面積 ”。(2)設(shè)置標(biāo)簽Label1的Caption屬性為“邊長”。(3)設(shè)置標(biāo)簽Label2的Caption屬性為“面積”。(4)設(shè)置文本框Text1的Text(文本內(nèi)容)屬性為空。(5)設(shè)置文本框Text2的Text屬性為空。(6)設(shè)置按鈕Command1 的

5、Caption屬性為“計(jì)算”。(7)設(shè)置按鈕Command2 的Caption屬性為“結(jié)束”。 其他屬性采用默認(rèn)值4. 編寫程序代碼，建立事件過程程序說明：Dim語句；數(shù)據(jù)類型Single(單精度)；Val函數(shù)；語句“Text2.Text=x*x”的作用5. 保存工程 保存窗體文件和工程文件 6. 運(yùn)行程序 單擊工具欄上的“啟動(dòng)”按鈕，即可采用解釋方式來運(yùn)行程序。 運(yùn)行后，在“邊長”文本框中輸入某一個(gè)數(shù)(如23),單擊“計(jì)算”按鈕時(shí)，系統(tǒng)會(huì)啟動(dòng)事件過程Command1_Click，則取數(shù)和運(yùn)算，最后把計(jì)算結(jié)果顯示在“面積”文本框(Text2)中。 單擊“結(jié)束”按鈕，可以啟動(dòng)事件過程Comman

6、d2_Click，則執(zhí)行End語句來結(jié)束程序的運(yùn)行。七、實(shí)驗(yàn)報(bào)告及記錄格式實(shí)驗(yàn)報(bào)告中必須有完整的程序清單，程序中必須有適當(dāng)?shù)淖⑨?，程序的運(yùn)行結(jié)果。按金陵科技學(xué)院實(shí)驗(yàn)報(bào)告（工科）格式填寫實(shí)驗(yàn)報(bào)告八、實(shí)驗(yàn)注意事項(xiàng)1. 輸入程序時(shí)應(yīng)嚴(yán)格注意大小寫。2. 注意記錄編譯調(diào)試過程中的出錯(cuò)信息和改正結(jié)果。3. 愛護(hù)機(jī)器，遵守規(guī)章制度。九、思考題1利用TIMER控件實(shí)現(xiàn)一個(gè)時(shí)鐘程序利用計(jì)時(shí)器控件Interval屬性為1000(1秒)，在定時(shí)器的定時(shí)事件過程中編寫程序。實(shí)驗(yàn)2 使用簡單控件一、實(shí)驗(yàn)?zāi)康?. 掌握使用Visual Basic 6集成環(huán)境中一些簡單的控件。二、實(shí)驗(yàn)要求按照實(shí)驗(yàn)題目的要求，編寫程序并上

7、機(jī)調(diào)試 三、實(shí)驗(yàn)設(shè)備計(jì)算機(jī)、Windows 98 、Visual Basic 6四、實(shí)驗(yàn)原理、方法上機(jī)操作使用Visual Basic 6輸入并調(diào)試程序五、實(shí)驗(yàn)內(nèi)容掌握一些常用的控件的屬性與事件；題1：用文本框輸入一個(gè)總秒數(shù)，化成小時(shí)、分鐘和秒數(shù)題2：從輸入框中輸入圓的半徑，計(jì)算圓的周長和面積，通過消息框輸出六、實(shí)驗(yàn)步驟題1：用文本框輸入一個(gè)總秒數(shù)，化成小時(shí)、分鐘和秒數(shù)(1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 (2)編寫程序代碼Private Sub Command1_Click() Dim h As Integer, m As Integer, s As Integer, t As Int

8、eger t = Val(Text1.Text) h = t 3600 t = t - h * 3600 m = t 60 s = t - m * 60 Text2.Text = h Text3.Text = m Text4.Text = s End SubPrivate Sub Command2_Click() EndEnd Sub題2：從輸入框中輸入圓的半徑，計(jì)算圓的周長和面積，通過消息框輸出(1) 創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性(2)編寫程序代碼Private Sub Command1_Click() Dim r As Single, k As Single, s As Singl

9、e r = Val(InputBox(請輸入圓的半徑, 計(jì)算圓的周長和面積) k = 2 * 3.14159 * r s = 3.14159 * r * r Text1.Text = k Text2.Text = s MsgBox 計(jì)算已完成, , 例3.10 End Sub Private Sub Command2_Click() End End Sub七、實(shí)驗(yàn)報(bào)告及記錄格式實(shí)驗(yàn)報(bào)告中必須有完整的程序清單，程序中必須有適當(dāng)?shù)淖⑨專绦虻倪\(yùn)行結(jié)果。按金陵科技學(xué)院實(shí)驗(yàn)報(bào)告（工科）格式填寫實(shí)驗(yàn)報(bào)告八、實(shí)驗(yàn)注意事項(xiàng)1. 輸入程序時(shí)應(yīng)嚴(yán)格注意大小寫。2. 注意記錄編譯調(diào)試過程中的出錯(cuò)信息和改正結(jié)果。3

10、. 愛護(hù)機(jī)器，遵守規(guī)章制度。九、思考題1. 編寫程序，實(shí)現(xiàn)兩個(gè)文本框內(nèi)容的交換 Dim s As StringS=Text1.TextText1.Text=Text2.TextText2.Text=S實(shí)驗(yàn)3 使用復(fù)雜控件一、實(shí)驗(yàn)?zāi)康?. 掌握使用Visual Basic 6集成環(huán)境中一些復(fù)雜的控件。二、實(shí)驗(yàn)要求按照實(shí)驗(yàn)題目的要求，編寫程序并上機(jī)調(diào)試三、實(shí)驗(yàn)設(shè)備計(jì)算機(jī)、Windows 98 、Visual Basic 6四、實(shí)驗(yàn)原理、方法上機(jī)操作使用Visual Basic 6輸入并調(diào)試程序五、實(shí)驗(yàn)內(nèi)容掌握一些復(fù)雜的控件的屬性與事件；題1：用單選按鈕組控制顯示不同的字體題2：用復(fù)選框來控制文字的

11、字體、字型、字號(hào)及顏色六、實(shí)驗(yàn)步驟題1：用單選按鈕組控制顯示不同的字體】 (1) 創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 單選按鈕組；初始狀態(tài)：設(shè)置Option1的Value屬性值設(shè)置為True，或通過代碼“Option1.Value=True” 來實(shí)現(xiàn) (2)編寫程序代碼 功能要求程序代碼如下： Private Sub Option1_Click() Text1.FontName = 宋體 End Sub Private Sub Option2_Click() Text1.FontName = 幼圓 End Sub Private Sub Option3_Click() Text1.FontN

12、ame = 楷體_GB2312 End Sub題2：用復(fù)選框來控制文字的字體、字型、字號(hào)及顏色(1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 多行文本框(帶垂直滾動(dòng)條)和四個(gè)復(fù)選框 (2)編寫程序代碼 功能要求：程序開始運(yùn)行后，用戶在文本框中輸入一段文字(如“復(fù)選框應(yīng)用示例”)，然后按需要單擊各復(fù)選框，則文字的字體、字型、字號(hào)及顏色隨之改變Private Sub Check1_Click() If Check1.Value = 1 Then 判復(fù)選框1是否選中 Text1.FontName = 楷體_GB2312 Else Text1.FontName = 宋體 End IfEnd SubPriv

13、ate Sub Check2_Click() If Check2.Value = 1 Then 判復(fù)選框2是否選中 Text1.FontItalic = -1 Else Text1.FontItalic = 0 End IfEnd SubPrivate Sub Check3_Click() If Check3.Value = 1 Then 判復(fù)選框3是否選中 Text1.FontSize = 25 Else Text1.FontSize = 9 End IfEnd SubPrivate Sub Check4_Click() If Check4.Value = 1 Then 判復(fù)選框4是否選中

14、Text1.ForeColor = RGB(255, 0, 0) Else Text1.ForeColor = RGB(0, 0, 0) End If End Sub七、實(shí)驗(yàn)報(bào)告及記錄格式實(shí)驗(yàn)報(bào)告中必須有完整的程序清單，程序中必須有適當(dāng)?shù)淖⑨專绦虻倪\(yùn)行結(jié)果。按金陵科技學(xué)院實(shí)驗(yàn)報(bào)告（工科）格式填寫實(shí)驗(yàn)報(bào)告八、實(shí)驗(yàn)注意事項(xiàng)1. 輸入程序時(shí)應(yīng)嚴(yán)格注意大小寫。2. 注意記錄編譯調(diào)試過程中的出錯(cuò)信息和改正結(jié)果。3. 愛護(hù)機(jī)器，遵守規(guī)章制度。九、思考題1單選與復(fù)選的區(qū)別？實(shí)驗(yàn)4 菜單的使用一、實(shí)驗(yàn)?zāi)康?. 掌握使用Visual Basic 6集成環(huán)境中下拉式菜單和彈出式菜單的實(shí)現(xiàn)方法。二、實(shí)驗(yàn)要求按照實(shí)

15、驗(yàn)題目的要求，編寫程序并上機(jī)調(diào)試三、實(shí)驗(yàn)設(shè)備計(jì)算機(jī)、Windows 98 、Visual Basic 6四、實(shí)驗(yàn)原理、方法上機(jī)操作使用Visual Basic 6輸入并調(diào)試程序五、實(shí)驗(yàn)內(nèi)容掌握下拉式菜單和彈出式菜單的屬性與事件；題1：編一程序，分別用兩種菜單進(jìn)行兩個(gè)操作數(shù)的算術(shù)運(yùn)算練習(xí)六、實(shí)驗(yàn)步驟題1：編一程序，分別用兩種菜單進(jìn)行兩個(gè)操作數(shù)的算術(shù)運(yùn)算練習(xí)(1) 創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 菜單欄向用戶提供功能選擇，包括運(yùn)算數(shù)的位數(shù)，運(yùn)算符類型和退出程序 各個(gè)菜單項(xiàng)名稱 菜單設(shè)計(jì)(2)編寫程序代碼 功能要求 Option Explicit 顯式聲明變量 Dim sel1 As Inte

16、ger, sel2 As String Dim r1 As Long Private Sub Form_Load() sel1 = 0 位數(shù)標(biāo)記 sel2 = 運(yùn)算標(biāo)記 Randomize End Sub Private Sub Mnu11_Click() sel1 = 1 設(shè)置位數(shù)標(biāo)記 End Sub Private Sub Mnu12_Click() sel1 = 10 End SubPrivate Sub Mnu13_Click() sel1 = 100End SubPrivate Sub Mnu21_Click() sel2 = + 設(shè)置運(yùn)算標(biāo)記End SubPrivate Sub M

17、nu22_Click() sel2 = -End SubPrivate Sub Mnu23_Click() sel2 = *End Sub Private Sub Command1_Click() 命題按鈕單擊事件 Dim a As Long, b As Long If sel1 = 0 Or sel2 = Then MsgBox 先選擇運(yùn)算數(shù)的位數(shù)和運(yùn)算類型 Exit Sub End If a = sel1 + Int(9 * sel1 * Rnd) 隨機(jī)生成指定位數(shù)的操作數(shù) b = sel1 + Int(9 * sel1 * Rnd) Label1.Caption = Str(a) + s

18、el2 + Str(b) + = 組成算式Select Case sel2 求運(yùn)算結(jié)果r1 Case + r1 = a + b Case - r1 = a - b Case * r1 = a * b End Select Text1.Text = Text1.SetFocusEnd SubPrivate Sub Command2_Click() 答題按鈕單擊事件 Dim r2 As Long If Text1.Text = Then MsgBox 請輸入答案 Exit Sub End If r2 = Val(Text1.Text) 讀取用戶的答案 If r1 = r2 Then 判斷答案 La

19、bel3.Caption = 正確 Else Label3.Caption = 錯(cuò)誤 End IfEnd SubPrivate Sub Mnu30_Click() “退出”菜單命令 EndEnd Sub七、實(shí)驗(yàn)報(bào)告及記錄格式實(shí)驗(yàn)報(bào)告中必須有完整的程序清單，程序中必須有適當(dāng)?shù)淖⑨?，程序的運(yùn)行結(jié)果。按金陵科技學(xué)院實(shí)驗(yàn)報(bào)告（工科）格式填寫實(shí)驗(yàn)報(bào)告八、實(shí)驗(yàn)注意事項(xiàng)1. 輸入程序時(shí)應(yīng)嚴(yán)格注意大小寫。2. 注意記錄編譯調(diào)試過程中的出錯(cuò)信息和改正結(jié)果。3. 愛護(hù)機(jī)器，遵守規(guī)章制度。九、思考題1下拉式菜單和彈出式菜單分別用在什么界面？實(shí)驗(yàn)5 程序設(shè)計(jì)基礎(chǔ)一、實(shí)驗(yàn)?zāi)康?. 掌握使用Visual Basic 6編

20、程語法。二、實(shí)驗(yàn)要求按照實(shí)驗(yàn)題目的要求，編寫程序并上機(jī)調(diào)試三、實(shí)驗(yàn)設(shè)備計(jì)算機(jī)、Windows 98 、Visual Basic 6四、實(shí)驗(yàn)原理、方法上機(jī)操作使用Visual Basic 6輸入并調(diào)試程序五、實(shí)驗(yàn)內(nèi)容掌握使用變量定義、選擇結(jié)構(gòu)。題1：求雞數(shù)和兔數(shù)題2：求一元二次方程ax2+bx+c0的解六、實(shí)驗(yàn)步驟題1：求雞數(shù)和兔數(shù)(1) 在窗體上設(shè)置一個(gè)命令按鈕Command1(2) 編寫程序代碼采用窗體的裝載事件Form_Load,使考題內(nèi)容直接顯示在窗體上。當(dāng)用戶單擊“答題”按鈕時(shí)，程序提供輸入對話框，由用戶輸入答案，再通過輸出框顯示評判意見。采用的程序代碼如下： Private Sub

21、Form_Load() Show Print FontSize = 18 Print Spc(9); 考一考你 FontSize = 13 Print Print Spc(5); 雞兔同籠，已知雞和兔總頭數(shù)為23， Print Spc(3); 總腳數(shù)為56，求雞兔各有多少？ End SubPrivate Sub Command1_Click() h = 23 : f = 56 總頭數(shù)及總腳數(shù) j1 = (4 * h - f) / 2 求出的雞數(shù) t1 = (f - 2 * h) / 2 求出的兔數(shù) j2 = Val(InputBox(雞的只數(shù)是多少？, 請回答) t2 = Val(InputB

22、ox(兔的只數(shù)是多少？, 請回答) Select Case True 選擇真值 Case j1 = j2 And t1 = t2 MsgBox (回答完全正確!) Case j1 = j2 MsgBox (雞數(shù)回答正確，但兔數(shù)不對!) Case t1 = t2 MsgBox (兔數(shù)回答正確，但雞數(shù)不對!) Case Else MsgBox (回答錯(cuò)誤!) End Select End Sub題2：求一元二次方程ax2+bx+c0的解(1)分析：方程的解有以下幾種可能： 若a=0，不是二次方程 若b2 - 4ac=0，有兩個(gè)相等實(shí)根 若b2 - 4ac0，有兩個(gè)不等實(shí)根 若b2 - 4ac0，有

23、兩個(gè)共軛復(fù)根(2)程序框圖程序框圖 程序框圖也稱程序流程圖，它能直觀地表示程序的處理步驟，是一種描述算法的常用方法。(2) 建立應(yīng)用程序的用戶界面和設(shè)置對象屬性 (4)編寫程序代碼Private Sub Command1_Click() Dim a As Single, b As Single, c As Single Dim D As Single, X1 As Single, X2 As Single Dim R As Single, P As Single a = Val(Text1.Text) 取數(shù)據(jù)a b = Val(Text2.Text) 取數(shù)據(jù)b c = Val(Text3.Te

24、xt) 取數(shù)據(jù)c If a = 0 Then 當(dāng)a=0 Text4.Text = 不是二次方程 Text5.Text = 不是二次方程 Else a0 D = b * b - 4 * a * c R = -b / (2 * a)If D = 0 ThenD=0 Text4.Text = R Text5.Text = R ElseIf D 0 ThenD0X1 = (-b + Sqr(D) / (2 * a) X2 = (-b - Sqr(D) / (2 * a) Text4.Text = X1 Text5.Text = X2 ElseD0P = Sqr(-D) / (2 * a) Text4.

25、Text = R & + & P & i Text5.Text = R & - & P & i End If End If End Sub七、實(shí)驗(yàn)報(bào)告及記錄格式實(shí)驗(yàn)報(bào)告中必須有完整的程序清單，程序中必須有適當(dāng)?shù)淖⑨?，程序的運(yùn)行結(jié)果。按金陵科技學(xué)院實(shí)驗(yàn)報(bào)告（工科）格式填寫實(shí)驗(yàn)報(bào)告八、實(shí)驗(yàn)注意事項(xiàng)1. 輸入程序時(shí)應(yīng)嚴(yán)格注意大小寫。2. 注意記錄編譯調(diào)試過程中的出錯(cuò)信息和改正結(jié)果。3. 愛護(hù)機(jī)器，遵守規(guī)章制度。九、思考題1輸入三個(gè)數(shù)a、b、c，求出其中最大數(shù)實(shí)驗(yàn)6 循環(huán)結(jié)構(gòu)一、實(shí)驗(yàn)?zāi)康?. 掌握使用Visual Basic 6循環(huán)結(jié)構(gòu)。二、實(shí)驗(yàn)要求按照實(shí)驗(yàn)題目的要求，編寫程序并上機(jī)調(diào)試三、實(shí)驗(yàn)設(shè)備計(jì)

26、算機(jī)、Windows 98 、Visual Basic 6四、實(shí)驗(yàn)原理、方法上機(jī)操作使用Visual Basic 6輸入并調(diào)試程序五、實(shí)驗(yàn)內(nèi)容掌握使用Visual Basic 6循環(huán)結(jié)構(gòu)。題1：用100 元買100 只雞，母雞3元1只，小雞1元3只，問各應(yīng)買多少只?題2：輸入兩個(gè)正整數(shù)，求它們的最大公約數(shù)題3：冒泡排序法六、實(shí)驗(yàn)步驟題1：用100 元買100 只雞，母雞3元1只，小雞1元3只，問各應(yīng)買多少只?采用“窮舉法”來解此題。其做法是：從所有可能解中，逐個(gè)進(jìn)行試驗(yàn)，若滿足條件，就得到一個(gè)解，否則不是。直到條件滿足或判別出無解為止。令母雞為x只，小雞為y只，根據(jù)題意可知 y = 100 x

27、開始先讓x初值為1，以后逐次加1，求x為何值時(shí)，條件3x+y/3=100成立。如果當(dāng)x達(dá)到30時(shí)還不能使條件成立，則可以斷定此題無解采用Print直接在窗體上輸出結(jié)果，程序代碼： Private Sub Form_Load() Dim x As Integer, y As Integer Show For x = 1 To 30 y = 100 - x If 3 * x + y / 3 = 100 Then Print 母雞只數(shù)為:; x, Print 小雞只數(shù)為:; y End If Next x End Sub 運(yùn)行結(jié)果：母雞只數(shù)為：25 小雞只數(shù)為：75題2：輸入兩個(gè)正整數(shù)，求它們的最大

28、公約數(shù)“輾轉(zhuǎn)相除法”算法：求出m/n余數(shù)p，若p0，n即為最大公約數(shù)；若p非0，則把原來的分母n作為新的分子m，把余數(shù)p作為新的分母n繼續(xù)求解 設(shè)計(jì)步驟如下： (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 (2)編寫程序代碼編寫的“計(jì)算”按鈕Click事件過程代碼如下： Private Sub Command1_Click() Dim m As Integer, n As Integer, p As Integer m = Val(Text1.Text) : n = Val(Text2.Text) If m = 0 Or n = 0 Then MsgBox (數(shù)據(jù)錯(cuò)誤!) End End If

29、Do p = m Mod n m = n n = p Loop While p 0 Text3.Text = m End Sub 若輸入的m和n的值為85和68，則運(yùn)行結(jié)果如上圖題3：冒泡排序法解題方法 “起泡法”排序就是每次將兩個(gè)相鄰的數(shù)進(jìn)行比較，然后將大數(shù)調(diào)換(或稱“下沉”)到下面。(1) 創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性(2)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 窗體上含有一個(gè)文本框控件數(shù)組和一個(gè)命令按鈕 文本框控件數(shù)組（Text1(1)Text1(8)）用來顯示演示的8個(gè)數(shù) (3)編寫程序代碼 功能要求： 程序運(yùn)行后自動(dòng)產(chǎn)生8個(gè)兩位隨機(jī)整數(shù) 單擊“排序”按鈕(Command1)時(shí)，

30、即啟動(dòng)排序過程 通過MsgBox函數(shù)來暫停程序運(yùn)行Const n = 8 聲明符號(hào)常量 Option Base 1 Private Sub Form_Load() Randomize For i = 1 To n 產(chǎn)生n 個(gè)隨機(jī)數(shù) Text1(i).ForeColor = RGB(0, 0, 0) 用黑色顯示 Text1(i).Text = Int(90 * Rnd + 10) Next i End SubPrivate Sub Command1_Click() For j = 1 To n - 1 外循環(huán) MsgBox 準(zhǔn)備進(jìn)行第 + Str(j) + 次比較，按回車鍵繼續(xù) For i =

31、1 To n - j 內(nèi)循環(huán) If Val(Text1(i).Text) Val(Text1(i + 1).Text) Then t = Text1(i).Text Text1(i) . Text = Text1(i + 1).Text Text1(i + 1).Text = t End If Next i 沉底數(shù)用紅色表示 Text1(n - j + 1).ForeColor = RGB(255, 0, 0) Next j MsgBox 排序完畢“End Sub七、實(shí)驗(yàn)報(bào)告及記錄格式實(shí)驗(yàn)報(bào)告中必須有完整的程序清單，程序中必須有適當(dāng)?shù)淖⑨專绦虻倪\(yùn)行結(jié)果。按金陵科技學(xué)院實(shí)驗(yàn)報(bào)告（工科）格式填寫

32、實(shí)驗(yàn)報(bào)告八、實(shí)驗(yàn)注意事項(xiàng)1. 輸入程序時(shí)應(yīng)嚴(yán)格注意大小寫。2. 注意記錄編譯調(diào)試過程中的出錯(cuò)信息和改正結(jié)果。3. 愛護(hù)機(jī)器，遵守規(guī)章制度。九、思考題1三種循環(huán)結(jié)構(gòu)的區(qū)別？實(shí)驗(yàn)7 過程與函數(shù)一、實(shí)驗(yàn)?zāi)康?. 掌握使用Visual Basic 6過程與函數(shù)結(jié)構(gòu)。二、實(shí)驗(yàn)要求按照實(shí)驗(yàn)題目的要求，編寫程序并上機(jī)調(diào)試三、實(shí)驗(yàn)設(shè)備計(jì)算機(jī)、Windows 98 、Visual Basic 6四、實(shí)驗(yàn)原理、方法上機(jī)操作使用Visual Basic 6輸入并調(diào)試程序五、實(shí)驗(yàn)內(nèi)容掌握使用Visual Basic 6過程與函數(shù)結(jié)構(gòu)題1：用過程和函數(shù)分別實(shí)現(xiàn)計(jì)算n!題2：參數(shù)傳遞方式編程六、實(shí)驗(yàn)步驟題1：用過程和函數(shù)

33、分別實(shí)現(xiàn)計(jì)算n!Private Sub Jc(n As Integer, t As Long) Dim i As Integer t = 1 For i = 1 To n t = t * i Next iEnd SubPrivate Function Jc(x) t = 1 For i = 1 To x t = t * i Next i Jc = t End Function題2：參數(shù)傳遞方式編程Sub test1(ByVal t As Integer) t = t + 5End SubSub test2(s As Integer) s = s - 5End SubPrivate Sub Fo

34、rm_Load() Dim x As Integer Show x = 5 Print 執(zhí)行test1前，x=; x Call test1(x) Print 執(zhí)行test1后，test2前，x=; x Call test2(x) Print 執(zhí)行test2后，x=; xEnd Sub七、實(shí)驗(yàn)報(bào)告及記錄格式實(shí)驗(yàn)報(bào)告中必須有完整的程序清單，程序中必須有適當(dāng)?shù)淖⑨?，程序的運(yùn)行結(jié)果。按金陵科技學(xué)院實(shí)驗(yàn)報(bào)告（工科）格式填寫實(shí)驗(yàn)報(bào)告八、實(shí)驗(yàn)注意事項(xiàng)1. 輸入程序時(shí)應(yīng)嚴(yán)格注意大小寫。2. 注意記錄編譯調(diào)試過程中的出錯(cuò)信息和改正結(jié)果。3. 愛護(hù)機(jī)器，遵守規(guī)章制度。九、思考題1遞歸方法來解決問題時(shí)，必須符合什么

35、條件？實(shí)驗(yàn)8 文件的使用一、實(shí)驗(yàn)?zāi)康?. 掌握使用Visual Basic 6文件結(jié)構(gòu)。二、實(shí)驗(yàn)要求按照實(shí)驗(yàn)題目的要求，編寫程序并上機(jī)調(diào)試三、實(shí)驗(yàn)設(shè)備計(jì)算機(jī)、Windows 98 、Visual Basic 6四、實(shí)驗(yàn)原理、方法上機(jī)操作使用Visual Basic 6輸入并調(diào)試程序五、實(shí)驗(yàn)內(nèi)容掌握使用Visual Basic 6文件結(jié)構(gòu)題1：對職工工資信息進(jìn)行查詢、增、改、除等操作六、實(shí)驗(yàn)步驟題1：對職工工資信息進(jìn)行查詢、增、改、除等操作(1)創(chuàng)建應(yīng)用程序的用戶界面并設(shè)置對象屬性(3) 編寫程序代碼 在標(biāo)準(zhǔn)模塊Module1中定義記錄類型和建立一個(gè)通用過程 Type salary name As String * 8 salary As Long End Type Public sal As salary, recno As Integer recno表示記錄號(hào) 檢查編號(hào)的通用過程 Function Cheno(no As String) As Boolean recno = Val(no) If recno 999 Then