VB程序設(shè)計(jì)復(fù)習(xí)題(歸類)

1、VB程序設(shè)計(jì)綜合復(fù)習(xí)資料一、填空題：（第一章 Visual Basic程序設(shè)計(jì)概述） 1、Visual Basic是一種面向_對(duì)象_的可視化程序設(shè)計(jì)語(yǔ)言，采取了_事件驅(qū)動(dòng)_的編程機(jī)制。 2、在VB中工程文件的擴(kuò)展名是_ Vbp ，窗體文件的擴(kuò)展名是frm _，標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是_ bas _。 3、執(zhí)行“工程”菜單下的部件命令，可選擇并添加ActiveX控件。 4、Visual Basic 6.0用于開(kāi)發(fā)_ WINDOWS環(huán)境下的應(yīng)用程序。第二章 簡(jiǎn)單的VB程序設(shè)計(jì)1、設(shè)置是否可以用Tab鍵來(lái)選取命令按鈕，應(yīng)該用_ Tabstop _屬性。2、一個(gè)控件在窗體的位置由_ Left _和_ t

2、op _屬性決定，其大小由_ height _和_ width _屬性決定。3、利用對(duì)象的屬性setfocus可獲得焦點(diǎn)，對(duì)于一個(gè)對(duì)象，只有其visible屬性和_ enabled _屬性為true，才能接受焦點(diǎn)。4、設(shè)置控件背景顏色的屬性名稱是_ backcolor _。5、所有控件都具有的共同屬性是_ name _屬性。6、一般情況下，控件有兩個(gè)屬性項(xiàng)的缺省值是相同的，這兩個(gè)屬性項(xiàng)是_ name和caption。 7、VB中的每個(gè)對(duì)象（控件）都有一組特征，這組特征稱為_(kāi)屬性_，我們通過(guò)修改它可以控制對(duì)象的外觀和操作。8、通常情況下，VB中一個(gè)工程主要包括如下四個(gè)文件：窗體文件、工程文件、類

3、模塊文件和_標(biāo)準(zhǔn)模塊文件_文件，后者的擴(kuò)展名為.Bas，通常由Basic語(yǔ)言編寫，是一個(gè)可共用的子程序。 9、VB有三種工作模式，分別是設(shè)計(jì)（Design）模式、_運(yùn)行模式_和中斷（Break）模式。第三章1、一般可以使用_ Const _關(guān)鍵字聲明常量。 2、_ Variant _類型也稱變體類型，是一種通用的、可變的數(shù)據(jù)類型，它可表示或存儲(chǔ)任何一種數(shù)據(jù)類型。 3、變量的聲明分為兩種方法：_隱式聲明_和_顯示聲明_。、 4、在VB中，用_ option base _語(yǔ)句設(shè)定數(shù)組的下界，用ubound _和_lbound語(yǔ)句分別返回?cái)?shù)組的上、下界。 5、在代碼模塊中加入Option Expli

4、cit的目的是_強(qiáng)制變量聲明。 6、function aa (a1 as date,optional a2 as boolean) as single，寫出optional命令的作用表示a2是一個(gè)可選參數(shù)_。 7、在VB中，我們用一個(gè)簡(jiǎn)單的_ End_語(yǔ)句就能實(shí)現(xiàn)退出程序。 8、生成消息框的命令是_Msgbox_，生成輸入框的命令是Inputbox _。 9、通用對(duì)話框（commondialog）屬activex控件，它可以顯示多個(gè)標(biāo)準(zhǔn)對(duì)話框，包括打開(kāi)/另存為、字體、打印等對(duì)話框，若要顯示所有文件，則應(yīng)設(shè)置其屬性filter=_*.* _，若要使它顯示為打印對(duì)話框，則應(yīng)使用什么方法_、show

5、print _。 10、從字符串中任意位置截取字符的函數(shù)是_ Mid()_。 11、語(yǔ)句For j = 3 To 20 Step 3 使循環(huán)體執(zhí)行了_6_次。 12、對(duì)于正在使用的動(dòng)態(tài)數(shù)組Arraya()，要增加一個(gè)單元，但不能破壞數(shù)組內(nèi)的數(shù)據(jù)，則應(yīng)使用語(yǔ)句_ redim preserve arraya(ubound(arraya()+1)_。 13、在Visual Basic中聲明靜態(tài)變量的關(guān)鍵字是_ static_。 14、表達(dá)式10 Mod 6 4的值為_(kāi)0_。 15、表達(dá)式chr(Asc("a") + 5)的值為_(kāi)f_。 16、VB中使用注釋有2種方法，即_ rem

6、_和_。 17、VB中的數(shù)據(jù)以四種形式存儲(chǔ)：常量、_變量、數(shù)組和記錄。 18、為了在VB中存儲(chǔ)一個(gè)4行5列的二維矩陣，需要定義一個(gè)整型的數(shù)組，請(qǐng)把數(shù)組定義語(yǔ)句補(bǔ)充完整：Dim Juzhen(_1 to 4,1 to 5_) as Integer。 19、控件數(shù)組由一組相同類型的控件組成，這些控件共用一個(gè)相同的控件名，但是每個(gè)控件都有一個(gè)唯一的下標(biāo)來(lái)區(qū)分，我們使用屬性_ Index _來(lái)設(shè)置下標(biāo)。 20、在過(guò)程調(diào)用中，實(shí)現(xiàn)調(diào)用過(guò)程的實(shí)參和被調(diào)用過(guò)程的形參之間的數(shù)據(jù)傳遞有兩種方式：按值傳遞和_按地址_。 21、為了保證程序中必須對(duì)變量的強(qiáng)制性定義，需要在代碼模塊的聲明部分加入_ Option Ex

7、plicit _語(yǔ)句。 22、分析ForNext循環(huán)結(jié)構(gòu)的實(shí)例：For i = 5 To 30 Step 2 中，循環(huán)體一共執(zhí)行了_13_次。 23、表達(dá)式Mid("UniversityOfPetroleum", 8, 4) 的值為_(kāi) ityo_。 24、常量分為普通常量和_符號(hào)_常量。 25、要將大寫字母轉(zhuǎn)換為小寫字母，可使用_ LCase_函數(shù)。 26、不管焦點(diǎn)在哪個(gè)控件上，按_ ESC_鍵相當(dāng)于按了取消按鈕。 27、執(zhí)行“工程”菜單下的_部件_命令，可選擇并添加ActiveX控件。 28、斷點(diǎn)_是程序中VB停止執(zhí)行的地方。 29、邏輯常量為True或_ False _

8、。30、使用了_ Option Explicit _的聲明后，當(dāng)程序中使用未經(jīng)聲明的變量時(shí)，程序運(yùn)行時(shí)會(huì)報(bào)錯(cuò)。31、要將小寫字母轉(zhuǎn)換為大寫字母，可使用UCase_函數(shù)。 32、自字符串N1位開(kāi)始向右取N2個(gè)字符，要使用_ Mid_函數(shù)。 33、日期常量表示時(shí)，用符號(hào)_#_將日期型數(shù)據(jù)括起來(lái)。 34、局部變量只能在_過(guò)程_中聲明和使用。 35、模塊級(jí)變量的聲明關(guān)鍵字是Dim或_ private _。 36、函數(shù)Abs(x)的功能是_求x的絕對(duì)值_。 37、表達(dá)式3/6*5的值是_2.5_。第四章1、向列表框控件添加新項(xiàng)目的方法是_ AddItem _。 2、在VB中，最主要的兩種對(duì)象是_窗體_和

9、_控件_。 3、當(dāng)窗體啟動(dòng)時(shí)可通過(guò)StartUpPostion _ _屬性控制窗體位于所有者的中心位置。 4、若要將窗體Form1隱藏起來(lái)，則可通過(guò)執(zhí)行代碼_ form1.hide _來(lái)實(shí)現(xiàn)。 5、要使裝入到列表框中的數(shù)據(jù)項(xiàng)能自動(dòng)按字母順序排序，應(yīng)設(shè)置該控件的_ sorted _ _屬性為_(kāi) ture _。 6、窗體上放置了若干個(gè)文本框和命令按鈕，當(dāng)窗體裝入后，要將焦點(diǎn)自動(dòng)定位到文本框Text1上，則在設(shè)計(jì)時(shí)需要將_ text1_控件的_ tabindex _屬性設(shè)置為_(kāi)0_。 7、在標(biāo)簽控件中通過(guò)編程使文字換行用的代碼是_ chr(10)_ _。 8、設(shè)置計(jì)時(shí)器控件只能觸發(fā)_ timer _

10、事件。 9、設(shè)置計(jì)時(shí)器對(duì)象觸發(fā)事件的時(shí)間間隔用_ interval _屬性。 10、滾動(dòng)條控件主要支持兩個(gè)事件，它們是_scroll和change_事件。 11、要使鼠標(biāo)停留在按鈕上顯示特殊的鼠標(biāo)形狀，應(yīng)設(shè)置的屬性值是_ mousepointer _。12、設(shè)某列表框共有10項(xiàng)，按題目要求補(bǔ)齊程序，完成相應(yīng)的功能。（1）按下命令按鈕Command1時(shí)將列表框第8項(xiàng)的內(nèi)容顯示在窗體上：Private Sub Command1_Click( )List._ selected _(7)=TruePrint List1._ text _End Sub（2）單擊列表框某一項(xiàng)時(shí)立即將該項(xiàng)打印在窗體上：Pr

11、ivate Sub List1_Click( )Print_ list1.text _End Sub（3）按下命令按鈕Command1時(shí)在窗體上刪除第1、3、5、7、9項(xiàng)：Private Sub Command1_Click( )For I=1 To 5List1._ removeitem 2*i-1_Next IEnd Sub（4）在列表框的每一項(xiàng)之后插入一個(gè)新的項(xiàng)：Private Sub Command1_Click( )For I=1 to 10X=InputBox(“請(qǐng)輸入插入的第” & I & “項(xiàng)內(nèi)容”)List1.AddItem_ x,2*i-1_Next IEn

12、d Sub 13、設(shè)在界面上放置了一個(gè)滾動(dòng)條Hscroll1和一個(gè)標(biāo)簽控件Label1，要使每次單擊滾動(dòng)條兩端箭頭時(shí)，或單擊滾動(dòng)條滑塊與兩端箭頭之間的空白區(qū)域時(shí)，標(biāo)簽內(nèi)容能夠反映滾動(dòng)條的值，補(bǔ)齊以下代碼。Private Sub Hscroll1._ change _( )Label1.Caption = Hscroll1._ value _End Sub要使拖動(dòng)滾動(dòng)條滑塊時(shí)標(biāo)簽內(nèi)容能夠反映滾動(dòng)條的值，補(bǔ)齊以下代碼。Private Sub Hscroll1._ scrol _( )Label1.Caption = Hscroll1._ value _End Sub 14、列表框（ListBox）

13、用于列出可供選擇的項(xiàng)目的列表，用戶可以選擇一個(gè)或多個(gè)項(xiàng)目。它具有幾個(gè)非常重要的數(shù)組屬性，其中_ List_屬性存放了列表框中所有項(xiàng)目的值。 15、菜單項(xiàng)一般由標(biāo)題、訪問(wèn)鍵、快捷鍵和復(fù)選標(biāo)志等構(gòu)成，通過(guò)對(duì)相應(yīng)的屬性進(jìn)行設(shè)置可以改變這些項(xiàng)目的狀態(tài)，其中與復(fù)選標(biāo)志相對(duì)應(yīng)的屬性是_ Checked _。 16、keydown與keypress事件各有其參數(shù)，若需獲得用戶按下 "a" 還是 "A" 需用_ keypress _事件。 17、控件組合框組合了文本框和列表框的功能，是VB中一種功能非常強(qiáng)大的選擇類控件。 18、若需要將窗體Form2以模態(tài)窗口的形式顯示

14、出來(lái)，可通過(guò)執(zhí)行代碼_ Form2.Show 1_來(lái)實(shí)現(xiàn)。 19、菜單中的分隔條是一種菜單控件，不響應(yīng)_ Click（或鼠標(biāo)單擊）_事件，不能被選中。第五章1、文件按存取方式及其組成結(jié)構(gòu)可分為_(kāi)順序_文件、隨機(jī)_文件和、二進(jìn)制_文件。 2、為了使文件列表框List1和目錄列表框Dir1之間能產(chǎn)生同步效果，必須在_ dir1的chang _事件過(guò)程中加入語(yǔ)句_ list1.path=dir1.path _。 3、文件系統(tǒng)控件的作用是向用戶顯示系統(tǒng)中的文件，方便用戶選擇，它是一組控件的組合，包括：驅(qū)動(dòng)器列表框、_目錄列表框 _和文件列表框。第六章 圖形操作1、使用_ print _方法可在窗體中進(jìn)

15、行文本的輸出，用_ circle _方法可畫圓，用_ line _方法可畫直線。2、用_ loadpicture _函數(shù)可加載圖形。3、為了使一個(gè)Picture控件能自動(dòng)根據(jù)裝入的圖片調(diào)整大小，應(yīng)設(shè)置該控件的_ autosize _屬性為True。第七章 面向?qū)ο蟮木幊?、類是具有相同性質(zhì)的對(duì)象的_集合_。 2、語(yǔ)句DIM TEMP AS Object的作用是_定義了一個(gè)對(duì)象類型的變量TEMP _。第三章 VB基本語(yǔ)言四、讀程序題 1、分析以下程序，寫出運(yùn)行結(jié)果。 Private Sub Form_Click() score = Int(Rnd * 10) + 80 Select Case s

16、core Case Is < 60 A$ = "F" Case 60 To 69 A$ = "D" Case 70 To 79 A$ = "C" Case 80 To 89 A$ = "B" Case Else A$ = "A" End Select Print A$ End Sub結(jié)果如下：B 2、讀下面的程序，分析其功能，寫出運(yùn)行結(jié)果。在窗體上有一個(gè)命令按鈕，名稱為Command1。然后編寫如下程序：Private Sub Command1_Click()For I = 1 To 4F

17、or J = 0 To IPrint Chr$(65 + I);Next JPrintNext IEnd Sub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是什么？結(jié)果如下：BBCCCDDDDEEEEE 3、閱讀下面的程序，分析并寫出其功能。Sub insert(a() As Single,ByVal x As Single)Dim m as integer,n as integern=1Do While n<20 And x>a(n)n=n+1LoopFor m=20-1 To n Step 1a(m+1)=a(m)Next ma(n)=xEnd Sub功能如下：在20個(gè)由

18、小到大排列的數(shù)據(jù)中插入一個(gè)數(shù)，插入數(shù)據(jù)后的數(shù)據(jù)仍按由小到大的順序排列。 4、分析以下程序，寫出運(yùn)行結(jié)果。Sub subP(b() As Integer)For i =1 To 4b(i)=2*iNext iEnd SubPrivate Sub Commandl_Click()Dim a(1 To 4)As Integera (1)=5a (2)=6a (3)=7a (4)=8subP a()For i =1 To 4Print a(i)Next iEnd Sub運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果是什么？輸出結(jié)果為： 2 4 6 8 5、分析以下程序，寫出運(yùn)行結(jié)果。Sub sele() Di

19、m n as Integer i=21:n=3 Do While i>n i=in Loop Print iEnd Sub輸出結(jié)果為：3 6、分析以下程序，寫出運(yùn)行結(jié)果。Sub selectPrint()Dim a as IntegerDim b as IntegerDim c as Integera=2:b=5:c=2If(a>=b)and(a>=c) or (b>c) Then Print aa=a+2ElsePrint bEndIfPrint a;b;cEnd Sub輸出結(jié)果為：2452 7、分析以下程序，寫出運(yùn)行結(jié)果。Sub swap() Dim x as In

20、teger Dim y as Integer Dim z as Integer x=1:y=2:z=0 Print x;y;z x=x+y x=x*z Print x,y,zEnd Sub輸出結(jié)果為：1200 2 0 8、分析以下程序，寫出運(yùn)行結(jié)果。Sub selectPrint() Dim a as Integer Dim b as Integer Dim c as Integer a=3:b=3:c=2 If(a>=b)and(a>c)Then Print a Print a,b,cEnd Sub輸出結(jié)果為：33 3 2 第四章 常用控件與窗體1、對(duì)窗體編寫如下代碼：Optio

21、n Base 1Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1If KeyAscii = 13 ThenFor i =2 To 5If a(i)>ml Thenm1 =a(j)m2 =iEnd IfNext iEnd IfPrint m1Print m2End Sub程序運(yùn)行后，按回車鍵，輸出結(jié)果是什么？輸出結(jié)果為： 4985 2、閱讀下面的程序，寫出執(zhí)行結(jié)果。Private Sub Form_load()Form1.showd = 0For a = 1 T

22、o 2For b = 1 To aFor c = b To 5d = d + 1Next cNext bNext aPrint dEnd Sub 結(jié)果如下：14Private Sub Form_Click()Dim a(10) As Integer, 五、編程題 1、輸入一年號(hào)，判斷它是否是閏年。界面如下圖所示，包括兩個(gè)標(biāo)簽、一個(gè)文本框和一個(gè)命令按鈕。提示：如果此年號(hào)能被400整除或者不能被400除盡，也不能被100除盡，但能被4整除，則它是閏年；否則，不是閏年。1、參考代碼如下：Private Sub Command1_Click() Dim year, x As Integer year

23、= Val(Text1.Text) If year Mod 400 = 0 Then Label2.Caption = "是閏年" Else' 下面是嵌套塊If語(yǔ)句 If year Mod 4 = 0 And year Mod 100 <> 0 Then Label2.Caption = "是閏年" Else Label2.Caption = "不是閏年" End If End IfEnd Sub 2、輸入兩個(gè)正整數(shù)m、n，求m和n的最大公約數(shù)。要求建立如下圖所示的窗體，其中主要的控件包括：兩個(gè)標(biāo)簽（Lable1、

24、Lable2）、兩個(gè)文本框（Text1、Text2）和一個(gè)按鈕（Command1）。2、程序參考代碼如下：Private Sub Command1_Click() Dim m, n, r As Integer m = Val ( Text1.Text ) n = Val ( Text2.Text ) If m < 0 Or n < 0 Then 若判斷為非法數(shù)據(jù)，Then子句輸出相應(yīng)信息 Label2.Caption = "輸入數(shù)據(jù)有錯(cuò)！" Else 若判斷為合法數(shù)據(jù)，Else子句用輾轉(zhuǎn)相除法求余數(shù) r = m Mod n Do While r <>

25、 0 m = n n = r r = m Mod n Loop 循環(huán)結(jié)束后n中存放的就是最大公約數(shù)，輸出n值 Label2.Caption = "最大公約數(shù)為：" & n End IfEnd Sub 3、輸入某學(xué)生成績(jī)（百分制），若是100成績(jī)90輸出優(yōu)秀；若是90成績(jī)80輸出良好；若是80成績(jī)70輸出中等；若是70成績(jī)60輸出及格；若是60成績(jī)0，輸出不及格；若是其他數(shù)則輸出error信息。3、參考代碼如下：Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)If x > 100 Or

26、x < 0 Then Text2.Text = "error" ElseIf x < 60 Then Text2.Text = "不及格" ElseIf x < 70 Then Text2.Text = "及格" ElseIf x < 80 Then Text2.Text = "中等" ElseIf x < 90 Then Text2.Text = "良好" Else Text2.Text = "優(yōu)秀"End IfEnd Sub 4、在窗體中顯示

27、從9號(hào)字型到16號(hào)字型。4、參考代碼如下：Private Sub Form_Load() Dim i As Integer Show '使輸出可見(jiàn) Form1.Font = "新宋體" For i = 9 To 16 Step 1 Form1.FontSize = i Print i; "號(hào)字型" Next iEnd Sub 5、在有序序列中插入一個(gè)數(shù)，使插入后的數(shù)列仍然有序（設(shè)按由小到大排列）。 5、參考代碼如下：Private Sub Command1_Click() Dim a(1 To 11) As Single '定義靜態(tài)數(shù)組a

28、含11個(gè)元素 Dim i, j As Integer Dim num As Single' 給數(shù)組元素賦初值，即原始隊(duì)列 a(1) = 3: a(2) = 5: a(3) = 7: a(4) = 8: a(5) = 9 a(6) = 13: a(7) = 16: a(8) = 19: a(9) = 33 a(10) = 38' 輸出原始隊(duì)列 For i = 1 To 10 Label2.Caption = Label2.Caption & a(i) & " , " Next i num = Val(Text1.Text)' 把輸入的數(shù)

29、插入隊(duì)列中 For i = 10 To 1 Step -1 If num < a(i) Then a(i+1) = a( i ) ' 元素后移一個(gè)位置 else a(i+1) = num Exit For ' 退出循環(huán) End If Next i' 輸出新隊(duì)列 For i = 1 To 11 Label3.Caption = Label3.Caption & a(i) & " , " Next iEnd Sub 6、編程實(shí)現(xiàn)二維數(shù)組轉(zhuǎn)置。6、參考代碼如下：Option Base 1Private Sub Form_Load()

30、Const N = 4 ' 常量N決定二維數(shù)組大小 Dim a(N, N) As Integer Dim i, j, Temp As Integer Show ' 數(shù)組初始化 For i = 1 To N ' For循環(huán) i從1變化到N For j = 1 To N a(i, j) = i * 10 + j Next j Next i' 輸出原始數(shù)組 Print "轉(zhuǎn)置前的數(shù)組：" For i = 1 To N ' For循環(huán) i從1變化到N For j = 1 To N Print a(i, j); Next j Print Nex

31、t i ' 數(shù)組轉(zhuǎn)置 For i = 1 To N ' For循環(huán) i從1變化到N For j = 1 To i ' 交換 Temp = a(i, j) a(i, j) = a(j, i) a(j, i) = Temp Next j Next i ' 輸出轉(zhuǎn)置后的數(shù)組 Print "轉(zhuǎn)置后的數(shù)組：" For i = 1 To N ' For循環(huán) i從1變化到N For j = 1 To N Print a(i, j); Next j Print Next iEnd Sub 7、隨機(jī)輸入10個(gè)100以內(nèi)的整型數(shù)，計(jì)算其和及平均值。 7、

32、參考代碼如下： i As IntegerDim sum As Integer, ave As Integersum = 0For i = 1 To 10 a(i) = Int(Rnd * 101) sum = sum + a(i)Next iave = sum / 10Print sum, aveEnd Sub 8、找出所有的水仙花數(shù)。水仙花數(shù)是個(gè)三位數(shù)，它的各位數(shù)字的立方和等于這個(gè)三位數(shù)本身。例如37133+73+13，則371是水仙花數(shù)。8、參考代碼如下：Private Sub Form_Load() Dim i, j, k, Flower As Integer Show For i =

33、1 To 9 For j = 0 To 9 For k = 0 To 9 Flower = i * 100 + j * 10 + k If Flower = i 3 + j 3 + k 3 Then Print Flower ; "是水仙花數(shù)" Next k Next j Next iEnd Sub 9、從鍵盤輸入一個(gè)大于2的正整數(shù)，判斷該數(shù)是否是素?cái)?shù)。 9、程序參考代碼如下：Private Sub Command1_Click() Dim m, i, y As Integer m = Val(Text1.Text) If m <= 2 Then Label2.Cap

34、tion = "輸入數(shù)據(jù)有錯(cuò)" Else k = Sqr(m) + 1 For i = 2 To k y = m Mod i If y = 0 Then Exit For Next i If y = 0 Then Label2.Caption = m & "不是素?cái)?shù)" Else Label2.Caption = m & "是素?cái)?shù)" End If End IfEnd Sub 10、求二維數(shù)組中的最小值及其所在行號(hào)、列號(hào)。10、程序參考代碼如下：Option Base 1Private Sub Form_Load() Co

35、nst N = 5 ' 常數(shù) N 確定數(shù)組的大小 Dim a(N, N) As Integer Dim i, j, row, line, min As Integer Show For i = 1 To N ' For循環(huán) i從1變化到N For j = 1 To N ' For循環(huán) j從1變化到N a(i, j) = Int(100 * Rnd) + 1 ' 產(chǎn)生N*N個(gè)1100間的隨機(jī)數(shù) Next j Next i ' 輸出二維數(shù)組 Print "數(shù)組內(nèi)容是：" For i = 1 To N For j = 1 To N Prin

36、t a(i, j); Next j Print ' 輸完一行元素后輸出一個(gè)換行 Next i ' 設(shè)定初始值 min = a(1, 1): row = 1: line = 1 ' 尋找最小數(shù) For i = 1 To N For j = 1 To N If a(i, j) < min Then min = a(i, j) row = i line = j End If Next j Next i ' 輸出結(jié)果 Print "最小值是：" min Print "在第" row; "行第" line;

37、 "列"End Sub 11、求一元二次方程ax2+bx+c=0的根（包括實(shí)根和復(fù)根）。11、參考代碼如下：Private Sub Command1_Click() Dim a, b, c, delt, realpart, imagpart As Single a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text): delt = b * b - 4 * a * c If a = 0 Then Label2.Caption = "是一元一次方程:" If b<>0 then

38、Text4.Text = "x1=" & -c / b Else If c=0 then Text4.Text = "有無(wú)窮根" Else Text4.Text = "無(wú)根" End if End if Else' 下面嵌套塊If語(yǔ)句 If delt = 0 Then Label2.Caption = "有兩個(gè)相等的實(shí)根:" Text4.Text = "x1=" & -b / 2 / a Text5.Text = "x2=" & -b / 2

39、/ b ElseIf delt > 0 Then Label2.Caption = "有兩個(gè)不等的實(shí)根:" Text4.Text = "x1=" & (-b + Sqr(delt) / (2 * a) Text5.Text = "x2=" & (-b - Sqr(delt) / (2 * a) Else Label2.Caption = "有兩個(gè)共軛復(fù)根:" realpart = -b / (2 * a) imagpart = Sqr(-delt) / (2 * a) Text4.Text =

40、 "x1=" & realpart & "+" & imagpart & "i" Text5.Text = "x2=" & realpart & "-" & imagpart & "i" End If ' 此行End If部分與內(nèi)層的塊If語(yǔ)句對(duì)應(yīng) End If ' 此行End If部分與外層的塊If語(yǔ)句對(duì)應(yīng)End Sub 12、輸入一個(gè)正整數(shù)n，計(jì)算出n!并輸出。12、參考代碼如下：Privat

41、e Sub Command1_Click() Dim n, i, t As Long n = Val(Text1.Text) i = 1: t = 1 If n < 0 Then Label2.Caption = "error" ElseIf n = 0 Then Label2.Caption = "0!=1" Else Do While i <= n t = t * i i = i + 1 Loop Label2.Caption = n & "!=" & t End IfEnd Sub 13、Faibon

42、acci數(shù)列為0，1，1，2，3，5，8，13 ，計(jì)算并輸出第20項(xiàng)以及前20項(xiàng)的和。 13、參考代碼如下：Private Sub Form_Load() Dim Prev, Last, NewOne, sum As Long Dim i As Integer Prev = 0: Last = 1: sum = Prev + Last For i = 3 To 20 NewOne = Prev + Last sum = sum + NewOne Prev = Last Last = NewOne Next i Label1.Caption = "第20項(xiàng)為" & N

43、ewOne Label2.Caption = "前20項(xiàng)的和為" & sumEnd Sub第四章 常用控件與窗體五、編程題 1、在窗體上有一個(gè)文本框控件，名稱為TxtTime；一個(gè)計(jì)時(shí)器控件，名稱為Timer1，要求每一秒在文本框中顯示一次當(dāng)前的時(shí)間，請(qǐng)編程實(shí)現(xiàn)。1、參考代碼如下：Private Sub Form_Load()Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Txttime.text = TimeEnd Sub 2、在Text1中輸入任一英文字母，在Text2中顯示該英文字母及其ASCII碼

44、值。要求在文本框Text2中顯示出所有輸入的英文字母及其ASCII碼值，如下圖所示。Text1Text2Command1 2、參考代碼如下：Private Sub Command1_Click() Dim Char As String * 1 Char = Trim(Text1.Text) Text2.Text = Text2.Text & Spc(5) & Char & _ Spc(10) & Str(Asc(Char) & chr(13)&chr(10) Text1.SetFocus Text1.SelStart = 0 Text1.SelL

45、ength = Len(Text1.Text)End Sub 3、編寫一個(gè)程序，能夠?qū)崿F(xiàn)任意個(gè)整數(shù)的排序。 4、編程實(shí)現(xiàn)以下功能：用戶首先分別在兩個(gè)文本框中輸入兩個(gè)數(shù)，然后在具有“加、減、乘、除”等四個(gè)菜單項(xiàng)的“計(jì)算”菜單中單擊某一項(xiàng)，即可在標(biāo)簽中顯示出相應(yīng)的結(jié)果或者錯(cuò)誤提示。 5、編程實(shí)現(xiàn)任意兩個(gè)數(shù)的“加、減、乘、除”。 6、編寫一個(gè)程序，能夠求任意個(gè)正整數(shù)的最大值和最小值。 7、編程求任意兩個(gè)正整數(shù)的最大公約數(shù)。六、程序分析填空題六、程序分析填空題 1、建立一個(gè)如圖所示的簡(jiǎn)單編輯器。用戶在文本框（text1）中輸入正文后，選中某些文本時(shí)可進(jìn)行“剪切”、“復(fù)制”和“粘貼”操作。假設(shè)在窗體聲明

46、部分定義了一個(gè)變量str1，用于保存復(fù)制和剪切的內(nèi)容，請(qǐng)把剪切按鈕(btnCut)的Click事件補(bǔ)充完整。程序運(yùn)行界面：Private Sub btnCut_Click() 請(qǐng)補(bǔ)充Str1 = text1.selText text1.selText = “”End Sub 2、計(jì)算1 + 2 + 3 + + 100的和并輸出。請(qǐng)把下面用Do While Loop循環(huán)結(jié)構(gòu)實(shí)現(xiàn)這一功能的代碼補(bǔ)充完整。Private Sub Form_Load()Dim sum,count as Integer請(qǐng)補(bǔ)充Sum = 0 Count = 0Do while count <=100請(qǐng)補(bǔ)充Count

47、= count + 1 Sum = sum + countLoopText1.Text = sumEnd Sub 3、列表框控件（ListBox）支持多項(xiàng)選擇，這項(xiàng)功能在對(duì)用戶的興趣愛(ài)好進(jìn)行調(diào)查的時(shí)候顯得非常好用，在下圖所示的界面中列表框List1用于列出愛(ài)好選項(xiàng)，供用戶進(jìn)行多項(xiàng)選擇。請(qǐng)把下列代碼補(bǔ)充完整，能夠取得用戶的所選愛(ài)好選項(xiàng)：Private Sub Command1_Click() Dim i As Integer Dim s As String s = txtname.Text & "愛(ài)好" For i = 0 To List1.ListCount - 1

48、 請(qǐng)補(bǔ)充If List1.Selected(i) Then S = s & List1.List(i) End If Next Label3.Caption = s End Sub 4、要求利用計(jì)時(shí)器Timer1，在窗體Form1上每隔1秒鐘打印一個(gè)1到10的隨機(jī)整數(shù)，請(qǐng)把下列代碼補(bǔ)充完整：Private Sub Form_Load() Show 請(qǐng)補(bǔ)充Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()請(qǐng)補(bǔ)充Form1.Print Int(Rnd*10) + 1End Sub第五章 文件四、編程題 1、實(shí)現(xiàn)二進(jìn)制方式文件的復(fù)制

49、。1、參考代碼如下：Private Sub Command1_Click()Dim if1 As Integer, if2 As IntegerDim sf1 As String, sf2 As StringDim buffer() As Byte使用動(dòng)態(tài)數(shù)組sf1 = InputBox("請(qǐng)輸入源文件名：", "源文件")sf2 = InputBox("請(qǐng)輸入目標(biāo)文件名：", "目標(biāo)文件")If sf1 = "" Or sf2 = "" Then Exit Subif1 =

50、 FreeFileOpen sf1 For Binary As if1 '打開(kāi)源文件if2 = FreeFileOpen sf2 For Binary As if2 '創(chuàng)建目標(biāo)文件ReDim buffer(1 To LOF(if1) '分配內(nèi)存Get #if1, , buffer '讀源文件Put #if2, , buffer '寫目標(biāo)文件Close '關(guān)閉所有打開(kāi)的文件MsgBox "完成復(fù)制。"End Sub 2、如下圖所示，實(shí)現(xiàn)一個(gè)簡(jiǎn)單的文件管理器。 2、參考代碼如下：Private Sub cmdCopy_Click()Dim destFile As StringIf fSource.FileName = "" Then Exit Sub '先選定文件destFile = InputBox("輸入目標(biāo)文件名：")If destFile <> "" Then '不為空 FileCopy fSource.FileName, destFile '復(fù)制文件End IfEnd Sub Private