Visual Basic程序設(shè)計(jì)課程學(xué)習(xí)指導(dǎo)書(shū)

1、 鄭州大學(xué)現(xiàn)代遠(yuǎn)程教育Visual Basic程序設(shè)計(jì)課程學(xué)習(xí)指導(dǎo)書(shū)柳宏川 編第一章 Visual Basic程序設(shè)計(jì)概述（一）本章學(xué)習(xí)目標(biāo)理解程序設(shè)計(jì)語(yǔ)言的概念，VB的功能和作用。熟練掌握Visual Basic的啟動(dòng)和退出方法，學(xué)會(huì)使用IDE集成開(kāi)發(fā)環(huán)境中標(biāo)題欄、菜單欄、工具欄和窗體窗口、屬性窗口、資源管理器窗口和代碼窗口，了解工具箱窗口的作用。（二）本章重點(diǎn)、要點(diǎn)VB的啟動(dòng)和退出、工程的概念、VB集成開(kāi)發(fā)環(huán)境的操作：窗口和工具欄的作用。（三）練習(xí)題1退出Visual Basic的快捷鍵是_。 A. Ctrl+Q B. Shift+Q C. Alt+Q D. Ctrl+Alt+Q2窗體設(shè)計(jì)

2、器是用于設(shè)計(jì)_。 A應(yīng)用程序的界面 B. 對(duì)象的屬性 C應(yīng)用程序的代碼 D. 窗體的代碼3啟動(dòng)Visual Basic后, VB為用戶建立的第一個(gè)窗體是_。 AForm1 B. Form C窗體1 D. 窗體4啟動(dòng)Visual Basic后, VB為用戶新建立的工程的名字是_。 A窗體1 B. 工程1 C窗體 D. 工程5工程資源管理器窗口包含的文件類型有_種。 A1 B. 2 C3 D. 46如果VB環(huán)境中缺少某個(gè)窗口，一般應(yīng)從主菜單_的下拉菜單中找到相應(yīng)的激活命令。 A編輯 B. 文件 C調(diào)試 D. 視圖7能夠通過(guò)標(biāo)準(zhǔn)工具欄打開(kāi)的窗口是_。 A代碼窗口 B. 設(shè)計(jì)器窗口 C屬性窗口 D.

3、窗體布局窗口8窗體文件的擴(kuò)展名_。 A.bas B. vbp C.exe D. frm9工程文件的擴(kuò)展名_。 A.com B. vbp C. exe D. bas10Visual Basic的編程機(jī)制是_。 A面向過(guò)程 B. 面向?qū)ο?C事件驅(qū)動(dòng) D. 可視化第二章 VB可視化編程基礎(chǔ)（一）本章學(xué)習(xí)目標(biāo)理解結(jié)構(gòu)化程序設(shè)計(jì)的思想，面向?qū)ο蟮某绦蛟O(shè)計(jì)。掌握類、對(duì)象、屬性、方法、事件和控件等概念。熟練掌握創(chuàng)建一個(gè)VB應(yīng)用程序的過(guò)程，能運(yùn)用IDE中的工具使用控件及對(duì)控件的事件編程，理解事件驅(qū)動(dòng)的思想。（二）本章重點(diǎn)、要點(diǎn)面向?qū)ο蟮挠嘘P(guān)名詞，使用VB創(chuàng)建一個(gè)應(yīng)用程序的全過(guò)程，各種窗口的使用，基本控件以及

4、方法、屬性的使用。（三）練習(xí)題1 使用VB建立一個(gè)應(yīng)用軟件的全過(guò)程有哪些步驟？。2 保存VB文件，至少要保存幾個(gè)文件？應(yīng)先保存什么文件？3 工程文件，窗體文件，標(biāo)準(zhǔn)模塊文件，類模塊文件的文件名的擴(kuò)展名分別是什么？4 用代碼對(duì)窗體中的控件設(shè)置屬性值，這些代碼應(yīng)該放在什么事件中？5 運(yùn)行程序有幾種方法？各是什么？6 從代碼窗口返回到設(shè)計(jì)窗體窗口（VB集成開(kāi)發(fā)環(huán)境）有幾種方法？7輸入代碼忘記屬性值時(shí)怎么辦？8在代碼窗口輸入代碼時(shí)，輸入控件的名稱及圓點(diǎn)后，出現(xiàn)下拉列表后，如何輸入方法或?qū)傩裕?窗體、標(biāo)簽、命令按鈕、文本框的默認(rèn)屬性分別是什么？10在輸入代碼時(shí)，如何從屬性列表和方法列表中快速輸入屬性及方

5、法？ 第三章 VB語(yǔ)言基礎(chǔ)（一）本章學(xué)習(xí)目標(biāo)本章是VB編程的基本要求，一定要熟練掌握基本數(shù)據(jù)類型、常量、變量、運(yùn)算符、表達(dá)式等基本概念和規(guī)則。學(xué)會(huì)并能運(yùn)用一些常用函數(shù)。（二）本章重點(diǎn)、要點(diǎn)編寫(xiě)VB程序的基本要求，記住并熟練掌握基本數(shù)據(jù)類型及對(duì)應(yīng)的關(guān)鍵字，常量和變量的定義與使用、各類運(yùn)算符的寫(xiě)法和使用、VB表達(dá)式的規(guī)則。一些常用的內(nèi)部函數(shù)要學(xué)會(huì)使用。（三）練習(xí)題1. VB定義了哪幾種數(shù)據(jù)類型？變量有哪幾種數(shù)據(jù)類型？常量有哪幾種數(shù)據(jù)類型？2. 如果希望使用變量x來(lái)存放數(shù)據(jù)765432.123456，應(yīng)該將變量x聲明為何種類型？3. VB共有幾種表達(dá)式？根據(jù)什么確定表達(dá)式的類型？4. 在VB中，對(duì)于

6、沒(méi)有賦值的變量，系統(tǒng)默認(rèn)值是什么？5. VB算術(shù)表達(dá)式a/(b+c/(d+e/Sqr(f)的數(shù)學(xué)表達(dá)式是什么？6. 函數(shù)Int(Rnd(0)*10)屬于哪個(gè)范圍內(nèi)的整數(shù)？7. 順序結(jié)構(gòu)的特點(diǎn)是什么？8. Rem和單撇號(hào)有什么不同？9. 試述Tab()和Space()兩個(gè)函數(shù)的區(qū)別？10. 試述Int()和Fix()兩個(gè)函數(shù)的區(qū)別？第四章 VB控制結(jié)構(gòu)（一）本章學(xué)習(xí)目標(biāo)本章主要講述VB的三種基本語(yǔ)句結(jié)構(gòu)：順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)。這是VB編程的基本要求，也是本門(mén)課程的重點(diǎn)內(nèi)容。要求熟練掌握這三種基本結(jié)構(gòu)的語(yǔ)法（包括各種變化），能準(zhǔn)確寫(xiě)出各種語(yǔ)句結(jié)構(gòu)執(zhí)行的步驟，能熟練運(yùn)用該語(yǔ)句進(jìn)行編程，不出現(xiàn)

7、語(yǔ)法錯(cuò)誤。同時(shí)，應(yīng)熟練掌握一些常用的算法。常用算法：累加、連乘 、求素?cái)?shù)、窮舉法、遞推法和最大、小值的求法等。（二）本章重點(diǎn)、要點(diǎn)VB的順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)的語(yǔ)法和常用算法。在VB中，實(shí)現(xiàn)循環(huán)的語(yǔ)句有三種：For-Next循環(huán)（計(jì)數(shù)循環(huán)）、While-Wend循環(huán)（當(dāng)循環(huán)）和Do-Loop循環(huán)（Do循環(huán)）。在這三種循環(huán)語(yǔ)句中，進(jìn)行不同的組合，可以形成多種格式的語(yǔ)句。（三）練習(xí)題1通過(guò)鍵盤(pán)輸入若干數(shù)，當(dāng)輸入0時(shí)結(jié)束輸入（0不參加計(jì)算），計(jì)算并輸出這些數(shù)的平均值。2從1開(kāi)始計(jì)算奇數(shù)的平方倒數(shù)之和，要求最后一項(xiàng)剛好小于0.0001。3輸出如圖所示的圖形。4輸入30個(gè)字符，統(tǒng)計(jì)其中字符A，B，

8、C的個(gè)數(shù)（不分大小寫(xiě)）,連續(xù)輸入三個(gè)字符Q，則結(jié)束程序。5求1！+2！+3！+n！6求出Fibonacci（斐波那契）數(shù)列的前20項(xiàng)。Fibonacci（斐波那契）數(shù)列的規(guī)律是：前2項(xiàng)為0和1，其余各項(xiàng)為該項(xiàng)前2項(xiàng)之和，即0，1，1，2，3，5，8，13。7打印九九乘法表。8輸入兩個(gè)正整數(shù)，求其最小公倍數(shù)和最大公約數(shù)。9找出1000以內(nèi)所有的個(gè)位數(shù)為3素?cái)?shù)，并統(tǒng)計(jì)其個(gè)數(shù)。10對(duì)于下面所示的分?jǐn)?shù)序列：，求出該序列的前10項(xiàng)的和，并打印出第10項(xiàng)。第五章 數(shù)組和自定義類型（一）本章學(xué)習(xí)目標(biāo)本章理解VB的數(shù)組的概念及數(shù)組的作用、熟練掌握數(shù)組的聲明方法、VB數(shù)組的基本操作、能運(yùn)用數(shù)組進(jìn)行編程，掌握一些

9、常用算法的編程思想，學(xué)會(huì)選擇法和起泡排序法。（二）本章重點(diǎn)、要點(diǎn)VB的數(shù)組的概念、VB靜態(tài)數(shù)組及聲明、VB動(dòng)態(tài)數(shù)組及聲明、VB數(shù)組的基本操作、選擇法排序和起泡法排序，利用數(shù)組進(jìn)行編程的一些常用算法。（三）練習(xí)題1將一個(gè)一維數(shù)組a(9)中各元素值按行的順序放入二維數(shù)組b(33)。2用隨機(jī)數(shù)函數(shù)產(chǎn)生10個(gè)40內(nèi)的整數(shù)，使用選擇排序法從小到大排序3生成下列二維數(shù)組，且按下列格式輸出。 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 184將一個(gè)一維數(shù)組反序放置。例如： a=(67,89,76,98,66), 反序放置后，a=(66,98,76,89,67)5有一個(gè)mn矩陣

10、，找出最大元素值及其最大元素值所在的行、列位置。6將矩陣m(n,n)主對(duì)角線和次對(duì)角線上的元素置為1，其余元素置為0。7將一個(gè)二維數(shù)組a（m,n）按行順序?qū)⒚總€(gè)元素放入一個(gè)一維數(shù)組b(mn)。8將用 inputbox()輸入的一個(gè)數(shù)插入到一個(gè)按遞增排列的有序數(shù)列中，插入后該數(shù)列仍然有序。9有一個(gè)無(wú)序數(shù)組，刪去與第一個(gè)元素值相同的其他元素值，刪除后其他元素的值前移。 第六章 過(guò) 程（一）本章學(xué)習(xí)目標(biāo) 本章熟練掌握函數(shù)過(guò)程的定義與調(diào)用，熟練掌握子過(guò)程的定義與調(diào)用，學(xué)會(huì)參數(shù)傳遞方式：傳值和傳址，理解變量、過(guò)程的作用域，理解遞歸定義和思想，能運(yùn)用遞歸進(jìn)行編程。（二）本章重點(diǎn)、要點(diǎn)函數(shù)過(guò)程和子過(guò)程的定義

11、與調(diào)用，參數(shù)的傳遞方式：傳值和傳址，變量、過(guò)程的作用域，遞歸等概念。（三）練習(xí)題1函數(shù)過(guò)程有什么不足？2子過(guò)程與函數(shù)過(guò)程區(qū)別有哪些？3函數(shù)的參數(shù)傳遞時(shí)，什么是傳址方式？4函數(shù)的參數(shù)傳遞時(shí)，什么是傳值方式5什么是變量、過(guò)程的作用域？6過(guò)程的作用域有哪幾個(gè)級(jí)別？其對(duì)應(yīng)的關(guān)鍵字是什么？7在VB中，變量有哪些級(jí)別？如何定義？8什么是遞歸？請(qǐng)舉例說(shuō)明。9設(shè)計(jì)遞歸時(shí)應(yīng)遵循哪些原則？第七章 用戶界面設(shè)計(jì)（一）本章學(xué)習(xí)目標(biāo)理解控件的作用。能運(yùn)用常用控件進(jìn)行編程。（二）本章重點(diǎn)、要點(diǎn)VB中可使用的控件分為三類：標(biāo)準(zhǔn)控件、ActiveX控件和可插入對(duì)象。標(biāo)準(zhǔn)控件(也稱內(nèi)部控件)，VB啟動(dòng)后出現(xiàn)在工具箱中的控件，共

12、有20個(gè)，既不能添加，也不能刪除。這些控件由VB的.exe文件提供。AcitveX控件，在以前的版本中稱為OLE控件或定制控件，是AcitveX部件的一部分，AcitveX部件是可以重復(fù)使用的編程代碼和數(shù)據(jù)，是由用AcitveX技術(shù)創(chuàng)建的一個(gè)或多個(gè)對(duì)象所組成。AcitveX部件通常分為四種：AcitveX控件、AcitveX DLL、AcitveX EXE和AcitveX文檔。AcitveX部件是擴(kuò)展名為.OCX的獨(dú)立文件，通常存放在Windows的system文件夾中。使用AcitveX控件之前必須加載。大多數(shù)AcitveX控件的屬性可以簡(jiǎn)單地在其屬性頁(yè)中設(shè)置?？刹迦雽?duì)象是指Windows應(yīng)

13、用程序的對(duì)象，也可以添加到工具箱中，具有與標(biāo)準(zhǔn)控件類似的屬性，可以同標(biāo)準(zhǔn)控件一樣使用。單選按鈕和復(fù)選框、框架、列表框和組合框、滾動(dòng)條和Slide控件、時(shí)鐘、ProgressBar控件、UpDown控件、Animation控件、SSTab控件、鼠標(biāo)器和鍵盤(pán)（三）練習(xí)題1. VB中可使用的控件分為哪幾類？2. 框架有什么作用？3. 列表框的作用是什么？4. 組合框有哪幾種類型？5. 時(shí)鐘控件的作用如何？6. 鼠標(biāo)事件有哪些？7. 鍵盤(pán)事件有哪些？各自的作用如何？8. Animation控件有什么用處？9. 怎樣設(shè)置鼠標(biāo)光標(biāo)的形狀?10. SSTab控件的Click事件過(guò)程有什么特點(diǎn)？第八章 數(shù)據(jù)文

14、件（一）本章學(xué)習(xí)目標(biāo)學(xué)會(huì)文件的概念，學(xué)會(huì)文件的作用，學(xué)會(huì)文件的分類，熟練掌握文件的讀寫(xiě)操作方法、了解并能運(yùn)用常用的文件操作語(yǔ)句和函數(shù)。熟練掌握用文件進(jìn)行數(shù)據(jù)存儲(chǔ)的方法。（二）本章重點(diǎn)、要點(diǎn)文件的概念，文件的作用，文件的分類，文件的讀寫(xiě)操作方法、常用的文件操作語(yǔ)句和函數(shù)。（三）練習(xí)題1什么是文件？2根據(jù)訪問(wèn)模式，文件可分為哪些種類？請(qǐng)說(shuō)出其特點(diǎn)。3若要對(duì)文件進(jìn)行訪問(wèn)，需要經(jīng)過(guò)哪幾個(gè)步驟？4打開(kāi)一個(gè)順序文件時(shí)，有哪幾種打開(kāi)的模式？都有什么作用？5讀順序文件時(shí)，有哪幾種命令可以使用？命令的格式和作用各是什么？6LOF()和EOF()都有什么作用？7已知有一個(gè)數(shù)據(jù)文件data.dat，請(qǐng)編寫(xiě)程序?qū)a

15、ta.dat中的數(shù)據(jù)復(fù)制到文件student.dat中去。8已知一個(gè)學(xué)生信息的文本文件為student.dat，學(xué)生信息包括：姓名（字符型），專業(yè)（字符型），年齡（整型），分?jǐn)?shù)（整型）編寫(xiě)程序，找出其中分?jǐn)?shù)最高的和分?jǐn)?shù)最低的學(xué)生并輸出其記錄到文件HL.TXT中去。9已知一個(gè)學(xué)生信息的文本文件為student.dat，學(xué)生信息包括：姓名（字符型），專業(yè)（字符型），年齡（整型），分?jǐn)?shù)（整型）編寫(xiě)程序，統(tǒng)計(jì)出其中不及格的學(xué)生人數(shù)并輸出。10已知一個(gè)學(xué)生信息的文本文件為student.dat，學(xué)生信息包括：姓名（字符型），專業(yè)（字符型），年齡（整型），分?jǐn)?shù)（整型）編寫(xiě)程序，查找姓名為“王軍”的學(xué)生并輸

16、出其記錄。參考答案第一章 Visual Basic程序設(shè)計(jì)概述1.C 2. A 3. A 4. B 5. D 6. D 7. C 8. D 9. B 10. C第二章 VB可視化編程基礎(chǔ)1具體過(guò)程如下（1）在窗體上建立用戶窗口（界面）對(duì)象。（2）分別對(duì)對(duì)象設(shè)置屬性。（3）分別對(duì)對(duì)象事件的過(guò)程編程且完成代碼輸入。（4）運(yùn)行程序和調(diào)試程序。（5）保存程序。2至少保存2個(gè)文件，先保存窗體文件，后保存工程文件。3.vbp, .frm, .bas, .4應(yīng)該放在窗體裝入（Form_Load）事件中5 三種：方法一是執(zhí)行工具欄中的啟動(dòng)按鈕；方法二是選取菜單中的“運(yùn)行/啟動(dòng)”命令；方法三是直接按F5鍵。6至

17、少5種方法：點(diǎn)擊窗體窗口；選擇菜單欄的viewobject; shift+F7; 點(diǎn)擊資源管理器中的窗體按鈕；單擊工程資源管理器中的窗體名稱（如：form1）。7在代碼窗口輸入代碼時(shí)，控件的名稱及圓點(diǎn)輸入后，系統(tǒng)自動(dòng)出現(xiàn)屬性及方法的下拉列表，可以幫助使用者快速輸入。8輸入方法或者屬性關(guān)鍵字的首字母進(jìn)行初選，再用鼠標(biāo)或者光標(biāo)鍵細(xì)選，然后雙擊鼠標(biāo)左鍵或者單擊空格鍵。9標(biāo)簽、命令按鈕、文本框、圖形圖像框的默認(rèn)屬性分別為：caption、caption、text和picture。10可以先輸入屬性或方法的首字母，然后找到需要的屬性及方法并選擇，用鼠標(biāo)雙擊或擊空格鍵即可完成輸入。第三章 VB語(yǔ)言基礎(chǔ)1.

18、 VB6.0定義了13種數(shù)據(jù)類型，分別是整數(shù)、長(zhǎng)整數(shù)、單精度浮點(diǎn)型、雙精度浮點(diǎn)型、貨幣型、字節(jié)型、變長(zhǎng)字符串、定長(zhǎng)字符串、布爾型、日期型、對(duì)象型、可變類型（數(shù)值）、可變類型（字符）。變量的數(shù)據(jù)類型有：數(shù)值型（整型、長(zhǎng)整型、單精度浮點(diǎn)型、雙精度浮點(diǎn)型、貨幣型和字節(jié)型）、字符串（變長(zhǎng)字符串和定長(zhǎng)字符串）、布爾型、日期型、對(duì)象型、可變數(shù)據(jù)類型（數(shù)值和字符）。常量的數(shù)據(jù)類型有：字符串常量、數(shù)值常量（整型、長(zhǎng)整型、單精度浮點(diǎn)型、雙精度浮點(diǎn)型、貨幣型和字節(jié)型）、布爾常量、日期常量。2. 應(yīng)該使用雙精度數(shù)Double類型。3. VB有5種類型的表達(dá)式，分別是：算術(shù)表達(dá)式、字符串表達(dá)式、關(guān)系表達(dá)式、布爾表達(dá)式

19、和日期表達(dá)式，VB根據(jù)表達(dá)式的運(yùn)算符來(lái)確定表達(dá)式的類型。4. 在VB中，當(dāng)使用聲明語(yǔ)句建立一個(gè)變量后，系統(tǒng)自動(dòng)將數(shù)值類型的變量賦初值0，變長(zhǎng)的字符串被初始化為一個(gè)零長(zhǎng)度的字符串（），而定長(zhǎng)的字符串則用空格填充。Variant變量被初始化為Empty。將布爾型的變量初始化為False。5. 寫(xiě)成的數(shù)學(xué)表達(dá)式為6. (0,10)7. 順序結(jié)構(gòu)是一種線性結(jié)構(gòu)，在這種結(jié)構(gòu)中，各操作塊按照各自某種順序依次執(zhí)行。8. Rem命令及命令后的說(shuō)明文字要求獨(dú)占一行，Rem和注釋文字間一定要加一個(gè)空格，如果非要使用Rem命令將注釋語(yǔ)句寫(xiě)在某條語(yǔ)句后，則需在Rem前使用英文“:”號(hào)；而單撇號(hào)沒(méi)有上述限制。9. Ta

20、b()函數(shù)是絕對(duì)定位函數(shù)，總是從左邊界開(kāi)始；Space()函數(shù)能從當(dāng)前輸出位置起輸出若干空格（形成一段空距）。Fix(x)函數(shù)無(wú)論對(duì)正數(shù)或負(fù)數(shù)都是去掉小數(shù)部分，取整數(shù)部分（符號(hào)不變），如：Fix(9.1)=Fix(9.9)=9，F(xiàn)ix(-9.1)=Fix(-9.9)=-9；而Int(x)函數(shù)返回的是不超過(guò)x的最大整數(shù)，如：Int(9.1)=Int(9.9)=9，Int(-9.1)=Int(-9.9)=-10。第四章 VB控制結(jié)構(gòu)1Private Sub Command2_Click()Dim Sum As Single, Count As Integer, Val As SingleSum =

21、 0Count = -1Val = 1While Val 0 Val = InputBox(請(qǐng)輸入一個(gè)數(shù): & Chr(13) & Chr(10) & 輸入0結(jié)束程序!) Sum = Sum + Val Count = Count + 1WendIf Count 0 ThenPrint While-Wend 循環(huán):,共輸入了; Count; 個(gè)數(shù),平均值為:; Sum / CountEnd IfEnd Sub2Private Sub Form_Click()Dim N as Integer,Sum as Single,Term as SingleN = 1Sum = 0DoTerm = 1 /

22、 (N * N)Sum = Sum + TermN = N + 2Loop Until Term 0.0001Print 運(yùn)算結(jié)果為:; SumPrint 最后一項(xiàng)的值為:; TermEnd Sub3Private Sub Command1_Click()Print Tab(18); 雙循環(huán)的結(jié)果For i = 1 To 10 Print Tab(25 - i); For j = 1 To 2 * i - 1 Print *; Next j Print Next iEnd Sub思考： 代碼段中倒數(shù)第三行的語(yǔ)句Print的作用是什么？ 語(yǔ)句Print Tab(25 - i);的作用是什么？特別

23、體會(huì)其中的25的含義。Private Sub Command2_Click()Print Tab(18); 單循環(huán)的結(jié)果For i = 1 To 10 Print Tab(25 - i); String(2 * i - 1, *)Next iEnd Sub雙循環(huán)方式中的內(nèi)循環(huán)被字符串函數(shù)String(2 * i - 1, *)所替代。對(duì)于字符串函數(shù)，如果能熟練掌握，對(duì)程序設(shè)計(jì)具有很大的幫助。4Private Sub Command1_Click()Dim ACount As Integer, BCount As Integer,Dim CCount As Integer, QCount As

24、IntegerDim CH As String * 1ACount = 0BCount = 0CCount = 0QCount = 0For I = 1 To 30CH = InputBox(請(qǐng)輸入一個(gè)字符! & Chr(13) & Chr(10) + 連續(xù)輸入三個(gè)字符Q,可結(jié)束程序, 字符統(tǒng)計(jì))CH = UCase(CH)If CH = Q Then QCount = QCount + 1 Else QCount = 0If QCount = 3 ThenMsgBox 連續(xù)輸入了三個(gè)字符Q,結(jié)束輸入, , 注意Exit ForEnd IfSelect Case CHCase AACount

25、= ACount + 1Case BBCount = BCount + 1Case CCCount = CCount + 1End SelectNext IText1.Text = ACount: Text2.Text = BCount: Text3.Text = CCountEnd Sub5Private Sub Form_Click() Dim N As Integer, I As Integer N = InputBox(請(qǐng)輸入一個(gè)數(shù)正整數(shù)N：) factorial = 1 Sum = 0 For I = 1 To N factorial = factorial * I Sum = Su

26、m + factorial Next I Print 小于自然數(shù); N; 的自然數(shù)階乘之和為：, SumEnd Sub6Private Sub Form_Click() a = 0 b = 1 Print a, b, For i = 1 To 9 a = a + b b = a + b Print a, b, If i Mod 2 = 1 Then Print Next iEnd Sub運(yùn)行結(jié)果見(jiàn)圖：7Private Sub Form_Click() For i = 1 To 9 For j = 1 To i Print Tab(11 * (j - 1); j; *; i; =; Str(i

27、* j); Next j Print Next iEnd Sub運(yùn)行結(jié)果如下圖所示：8編寫(xiě)了兩個(gè)按扭的事件程序。“求最大公約數(shù)”按扭的過(guò)程為：Dim A As Integer, B As Integer, N As Integer, M As Integer, R As IntegerPrivate Sub Command1_Click() M = Val(Text1.Text) N = Val(Text2.Text) A = M B = N If N = 0 Then Exit Sub R = M Mod N Do While R 0 M = N N = R R = M Mod N Loop

28、 Label3.Caption = NEnd Sub“求最小公倍數(shù)”按扭的過(guò)程為：Private Sub Command2_Click() If N 0 Then Label4.Caption = A * B / NEnd Sub運(yùn)行界面可參閱圖。說(shuō)明：該設(shè)計(jì)運(yùn)行時(shí)，如果要求最小公倍數(shù)，需要先按“求最大公約數(shù)”的按扭，求出最大公約數(shù)后方可按“求最小公倍數(shù)”的按扭。9窗體的Click事件過(guò)程為：Private Sub Form_Click() n = 0 For i = 3 To 1000 Step 2 prime = 1 x = 2 m = Int(Sqr(i) While x a(j) Th

29、en i = j 保存位置，先不交換數(shù)據(jù)Next jd = a(k): a(k) = a(i): a(i) = d j 循環(huán)結(jié)束根據(jù)記下的位置交換數(shù)據(jù)Print a(k);Next kPrint a(10)End Sub3方法一：Option Base 1Private Sub Form_Load()Dim m&(4, 4), i%，j%For i = 1 To 4For j = 1 To 4m(i, j) =(i - 1) * 4 + j + 2Print Spc(5 - Len(Str(m(i, j); m(i, j);Next j PrintNext iEnd Sub方法二：Option

30、 Base 1Private Sub Form_Load()Dim m&(4, 4), i%，j，n%n = 3For i = 1 To 4For j = 1 To 4m(i, j) = nPrint Spc(5 - Len(Str(m(i, j); m(i, j);n = n+1Next j PrintNext iEnd Sub4程序如下：Option Base 1Private Sub Form_Load()Dim a(), ba = Array(2, 3, 5, 7, 9, 15, 17, 19, 22)n = UBound(a)For k = 1 To n / 2b = a(k)a(k

31、) = a(n + 1 k)a(n - k + 1) = bNext kFor k = 1 To nPrint a(k);Next kEnd Sub5程序如下：Option Base 1Private Sub Form_Load()Dim a(), m%, n%, i%, j%m = InputBox(input m)n = InputBox(input n)ReDim a(m, n)RandomizeFor i = 1 To mFor j = 1 To na(i, j) = Int(Rnd * 100)Print a(i, j);Next j PrintNext iMax = a(1, 1)

32、h = 1: l = 1For i = 1 To mFor j = 1 To nIf Max a(i, j) Then H = i: l = jEnd IfNext jNext iPrint a(h, l); h, lEnd Sub6 程序如下：Option Base 1Private Sub Form_Load()Dim a%(), m%, i%, j%m = InputBox(input m)ReDim a(m, m)For i = 1 To m a(i, i) = 1 a(i, m - i + 1) = 1Next iFor i = 1 To mFor j = 1 To mPrint a

33、(i, j);Next jPrintNext iEnd Sub7程序如下：Option Base 1Private Sub Form_Load()Dim a%(2, 4), b%(8), i%, j%, n%n = 1For i = 1 To 2For j = 1 To 4a(i, j) = InputBox(input number)b(n) = a(i, j)n = n+1Next jNext iFor i = 1 To 8Print b(i);Next iEnd Sub8 程序如下：ption Base 1Private Sub Form_Load()Dim a(), i%, j%, k

34、%, n%a = Array(53, 59, 67, 89, 90, 95)n = (UBound(a) + 1)ReDim Preserve a(n)k = InputBox(iuput x)For i = 1 To n - 1If k a(i) Then Exit ForNext iFor j = n To i + 1 Step -1a(j) = a(j - 1)Next ja(i) = kFor i = 1 To nPrint a(i);Next iEnd Sub9程序如下：Option Base 1Private Sub Form_Load()Dim a(), i%, j%, k%, n%, kk%a = Array(66, 66, 67, 90, 87, 66, 90, 67, 66)n = UBound(a)i = 2Do While i hscore thenHname=NameHspe=SpeHage=AgeHscore=ScoreEnd IfIf scoreLscore thenLname=NameLspe=SpeLage=AgeLscore=ScoreEnd If Loop Write #2, Hname, Hspe, Hage, Hscore Write #2, Lname, Lspe, Lage, Lscore Close #1, #2End Sub9Pr