VisualBasic程序的設(shè)計(jì)教程第三版課后習(xí)題答案

1、. .PAGE52 / NUMPAGES52VB程序設(shè)計(jì)綜合復(fù)習(xí)資料第一章 Visual Basic程序設(shè)計(jì)概述一、填空題 1、VisualBasic是一種面向_的可視化程序設(shè)計(jì)語言，采取了_的編程機(jī)制。 2、在VB中工程文件的擴(kuò)展名是_，窗體文件的擴(kuò)展名是_，標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是_。 3、執(zhí)行“工程”菜單下的_命令，可選擇并添加ActiveX控件。 4、Visual Basic 6.0用于開發(fā)_環(huán)境下的應(yīng)用程序。二、選擇題 1、下面不是VB工作模式的是（）A設(shè)計(jì)模式B運(yùn)行模式C匯編模式D中斷模式 2、可視化編程的最大優(yōu)點(diǎn)是（）A具有標(biāo)準(zhǔn)工具箱B一個(gè)工程文件由若干個(gè)窗體文件組成C不需要編寫大

2、量代碼來描述圖形對象D所見即所得 3、下列不能打開屬性窗口的操作是（ ）A執(zhí)行“視圖”菜單中的“屬性窗口”命令B按F4鍵C按Ctrl+TD單擊工具欄上的“屬性窗口”按鈕 4、下列可以打開立即窗口的操作是（ ）ACtrl+D BCtrl+E CCtrl+F DCtrl+G 5、Visual Basic的編程機(jī)制是（ ）A可視化 B面向?qū)ο?C面向圖形 D事件驅(qū)動(dòng)三、簡答題 1、代碼窗口主要包括哪幾部分？ 2、在工程資源管理器窗口中，主要列出了哪三類文件？ 3、窗體布局窗口的主要用途是什么？ 4、VB的基本特點(diǎn)是什么？ 5、怎樣理解可視化設(shè)計(jì)？ 6、怎要理解事件驅(qū)動(dòng)編程？第二章 簡單的VB程序設(shè)計(jì)

3、一、填空題 1、設(shè)置是否可以用Tab鍵來選取命令按鈕，應(yīng)該用_屬性。 2、一個(gè)控件在窗體的位置由_和_屬性決定，其大小由_和_屬性決定。 3、利用對象的屬性setfocus可獲得焦點(diǎn)，對于一個(gè)對象，只有其visible屬性和_屬性為true，才能接受焦點(diǎn)。 4、設(shè)置控件背景顏色的屬性名稱是_。 5、所有控件都具有的共同屬性是_屬性。 6、一般情況下，控件有兩個(gè)屬性項(xiàng)的缺省值是一樣的，這兩個(gè)屬性項(xiàng)是_。 7、VB中的每個(gè)對象（控件）都有一組特征，這組特征稱為_，我們通過修改它可以控制對象的外觀和操作。 8、通常情況下，VB中一個(gè)工程主要包括如下四個(gè)文件：窗體文件、工程文件、類模塊文件和_文件，后

4、者的擴(kuò)展名為.Bas，通常由Basic語言編寫，是一個(gè)可共用的子程序。 9、VB有三種工作模式，分別是設(shè)計(jì)（Design）模式、_和中斷（Break）模式。二、選擇題 1、以下能夠觸發(fā)文本框Change事件的操作是（ ）A文本框失去焦點(diǎn)B文本框獲得焦點(diǎn)C設(shè)置文本框的焦點(diǎn)D改變文本框的容 2、應(yīng)用程序設(shè)計(jì)完成后，應(yīng)將程序保存，保存的過程是（）A只保存窗體文件即可B只保存工程文件即可C先保存工程文件，之后保存窗體文件D先保存窗體文件（或標(biāo)準(zhǔn)模塊文件），之后還要保存工程文件 3、VB應(yīng)用程序的運(yùn)行模式是（）A解釋運(yùn)行模式B編譯運(yùn)行模式C兩者都有D匯編模式 4、任何控件都具有的屬性是（）ATEXTBC

5、APTIONCNAMEDFORECOLOR 5、決定控件上文字的字體、字形、大小與效果的屬性是（）ATEXTBCAPTIONCNAMEDFONT 6、在窗體上建立了多個(gè)控件，如TEXT、LABEL1、COMMAND1，若要使程序一運(yùn)行焦點(diǎn)就定位在COMMAND1控件上，應(yīng)將COMMAND1控件的（）設(shè)置為0AINDEXBTABINDEXCTABSTOPDENABLED 7、運(yùn)行時(shí)，當(dāng)用戶向文本框輸入新的容，或在程序代碼中對文本框的TEXT屬性進(jìn)行賦值從而改變了文本框的TEXT屬性值時(shí)，將觸發(fā)文本框的（）事件ACLICKBDBLCLICKCGOTFOCUSDCHANGE 8、在運(yùn)行時(shí)，按TAB鍵

6、跳過了一個(gè)可以獲得焦點(diǎn)的控件（如文本框），則可能是因?yàn)椋ǎ〢該控件的TABSTOP屬性值為TRUEB該控件的TABINDEX屬性值為FALSEC該控件的ENABLED屬性值為TRUED該控件的ENABLED屬性值為FALSE 9、為了防止用戶隨意將光標(biāo)置于控件上，應(yīng)（）A將控件的TABINDEX屬性設(shè)置為0B將控件的TABSTOP屬性設(shè)置為TRUEC將控件的TABSTOP屬性設(shè)置為FALSED將控件的ENABLED屬性設(shè)置為FALSE 10、若要使標(biāo)簽控件顯示時(shí)，不覆蓋其背景容，應(yīng)設(shè)置標(biāo)簽控件的（）屬性ABACKCOLORBBORDERSTYLECFORECOLORDBACKSTYLE 11、

7、如果要在文本框中輸入字符時(shí)，只顯示某個(gè)字符，如星號(hào)（*），運(yùn)行時(shí)，在文本框中輸入的字符仍然顯示出來，而不顯示星號(hào)，原因可能是（）A文本框的MULTILINE屬性值為TRUEB文本框的LOCKED屬性值為TRUEC文本框的MULTILINE屬性值為FALSED文本框的LOCKED屬性為FALSE 12、在運(yùn)行階段，要在文本框TEXT1獲得焦點(diǎn)時(shí)選中文本框中所有容，對應(yīng)的事件過程是（）APrivate Sub Text1_GotFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubBPrivate Sub Text1_LostF

8、ocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubCPrivate Sub Text1_Change( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubDPrivate Sub Text1_SetFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End Sub 13、Visual Basic繼承了Basic語言簡單易用的語法特點(diǎn)，同時(shí)支持面向?qū)ο蟮木幊虣C(jī)制，其中構(gòu)成其控件（對象）的三要素是（）A屬性、事

9、件、事件過程 B控件、窗體、事件C屬性、過程、方法 D屬性、事件、方法 14、決定標(biāo)簽（Label）顯示的屬性是（）ATextBNameCCaptionDAlignment 15、命令按鈕的標(biāo)題文字由（ ）屬性來設(shè)置。AText BCaption CName D(名稱) 16、若要設(shè)置文本的顯示顏色，則可用（ ）屬性來實(shí)現(xiàn)。ABackColor BForecolor CFillColor DBackstyle 17、在運(yùn)行時(shí)，若要調(diào)用某命令鈕的Click事件過程，則可設(shè)置該命令鈕對象的（ ）屬性為Ture來實(shí)現(xiàn)。AEnabled BValue CDefault DCancel 18、在運(yùn)行時(shí)，

10、若要獲得用戶在文本框中所選擇的文本，可通過訪問（ ）屬性來實(shí)現(xiàn)。ASelStart BSelLenght CText DSelText三、簡答題 1、事件驅(qū)動(dòng)的含意是什么？舉例說明。 2、交互式開發(fā)方法和傳統(tǒng)的應(yīng)用程序開發(fā)過程有什么不同？ 3、文本框在什么情況下使用？ 4、什么是工程？ 5、結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)是什么？ 6、對象的三要素是什么？并分別進(jìn)行簡單的解釋。 7、為什么要生成可執(zhí)行文件和制作安裝盤？ 8、使用變量前先聲明有什么好處？ 9、如何使用幫助功能？ 10、結(jié)構(gòu)化程序設(shè)計(jì)的特點(diǎn)是什么？ 11、為了把焦點(diǎn)移到某個(gè)指定的控件，在代碼中應(yīng)使用的方法是什么？ 12、啟動(dòng)Visua

11、 Basic后，只創(chuàng)建了一個(gè)窗體，若此時(shí)保存，需要保存幾個(gè)文件？各是什么文件？先保存的是哪一個(gè)？ 13、為了防止文本框中的信息運(yùn)行后被用戶修改，應(yīng)設(shè)置什么屬性？第三章 VB基本語言一、填空題 1、一般可以使用_關(guān)鍵字聲明常量。 2、_類型也稱變體類型，是一種通用的、可變的數(shù)據(jù)類型，它可表示或存儲(chǔ)任何一種數(shù)據(jù)類型。 3、變量的聲明分為兩種方法：_和_。 4、在VB中，用_語句設(shè)定數(shù)組的下界，用_和_語句分別返回?cái)?shù)組的上、下界。 5、在代碼模塊中加入Option Explicit的目的是_。 6、function aa (a1 as date,optional a2 as boolean) as

12、single，寫出optional命令的作用_。 7、在VB中，我們用一個(gè)簡單的_語句就能實(shí)現(xiàn)退出程序。 8、生成消息框的命令是_，生成輸入框的命令是_。 9、通用對話框（commondialog）屬activex控件，它可以顯示多個(gè)標(biāo)準(zhǔn)對話框，包括打開/另存為、字體、打印等對話框，若要顯示所有文件，則應(yīng)設(shè)置其屬性filter=_，若要使它顯示為打印對話框，則應(yīng)使用什么方法_。 10、從字符串中任意位置截取字符的函數(shù)是_。 11、語句For j = 3 To 20 Step 3 使循環(huán)體執(zhí)行了_次。 12、對于正在使用的動(dòng)態(tài)數(shù)組Arraya()，要增加一個(gè)單元，但不能破壞數(shù)組的數(shù)據(jù)，則應(yīng)使用語

13、句_。 13、在Visual Basic中聲明靜態(tài)變量的關(guān)鍵字是_。 14、表達(dá)式10 Mod 6 4的值為_。 15、表達(dá)式chr(Asc(a) + 5)的值為_。 16、VB中使用注釋有2種方法，即_和_。 17、VB中的數(shù)據(jù)以四種形式存儲(chǔ)：常量、_、_和記錄。 18、為了在VB中存儲(chǔ)一個(gè)4行5列的二維矩陣，需要定義一個(gè)整型的數(shù)組，請把數(shù)組定義語句補(bǔ)充完整：Dim Juzhen(_) as Integer。 19、控件數(shù)組由一組一樣類型的控件組成，這些控件共用一個(gè)一樣的控件名，但是每個(gè)控件都有一個(gè)唯一的下標(biāo)來區(qū)分，我們使用屬性_來設(shè)置下標(biāo)。 20、在過程調(diào)用中，實(shí)現(xiàn)調(diào)用過程的實(shí)參和被調(diào)用過

14、程的形參之間的數(shù)據(jù)傳遞有兩種方式：按值傳遞和_。 21、為了保證程序中必須對變量的強(qiáng)制性定義，需要在代碼模塊的聲明部分加入_語句。 22、分析ForNext循環(huán)結(jié)構(gòu)的實(shí)例：For i = 5 To 30 Step 2 中，循環(huán)體一共執(zhí)行了_次。 23、表達(dá)式Mid(UniversityOfPetroleum, 8, 4) 的值為_。 24、常量分為普通常量和_常量。 25、要將大寫字母轉(zhuǎn)換為小寫字母，可使用_函數(shù)。 26、不管焦點(diǎn)在哪個(gè)控件上，按_鍵相當(dāng)于按了取消按鈕。 27、執(zhí)行“工程”菜單下的_命令，可選擇并添加ActiveX控件。 28、_是程序中VB停止執(zhí)行的地方。 29、邏輯常量為T

15、rue或_。 30、使用了_的聲明后，當(dāng)程序中使用未經(jīng)聲明的變量時(shí)，程序運(yùn)行時(shí)會(huì)報(bào)錯(cuò)。 31、要將小寫字母轉(zhuǎn)換為大寫字母，可使用_函數(shù)。 32、自字符串N1位開始向右取N2個(gè)字符，要使用_函數(shù)。 33、日期常量表示時(shí)，用符號(hào)_將日期型數(shù)據(jù)括起來。 34、局部變量只能在_中聲明和使用。 35、模塊級(jí)變量的聲明關(guān)鍵字是Dim或_。 36、函數(shù)Abs(x)的功能是_。 37、表達(dá)式3/6*5的值是_。二、選擇題 1、以下哪個(gè)是合法的變量（）ArightBabc123C123_abcDab123c 2、下列說法錯(cuò)誤的是（）A在同一模塊不同過程中的變量可以同名B不同模塊中定義的全局變量不可以同名C引用另

16、一模塊中的全局變量時(shí)，必須在變量名前加模塊名D同一模塊中不同級(jí)的變量可以同名 3、把MsgBox的返回值轉(zhuǎn)換為數(shù)值應(yīng)該使用的函數(shù)是（）ALogBStrCLenDVal 4、語句DIM AA(3,4,5)中定義的數(shù)組有（ ）個(gè)元素A12 B60 C120 D345 5、下面程序運(yùn)行后輸出的結(jié)果是（ ） A$=CHINA B$=STRING$(3,A$) PRINT B$ ENDACHI BCCC CINA DAAA 6、以下語句的輸出結(jié)果是（ ）Print Format$(32548.5, 000,000.00)A32548.5 B325,485.00 C032,548,50 D32,548,5

17、0 7、以下敘述中錯(cuò)誤的是（ ）A如果過程被定義為Static類型，則該過程中的局部變量都是Static類型BSub過程中不能嵌套定義Sub過程CSub過程中可以嵌套調(diào)用Sub過程D事件過程可以像通用過程一樣由用戶定義過程名 8、Visual Basic提供的On Error Resume next錯(cuò)誤陷阱語句表示（ ）A當(dāng)發(fā)生錯(cuò)誤時(shí)，使程序轉(zhuǎn)跳到語句標(biāo)號(hào)為0的程序塊B當(dāng)發(fā)生錯(cuò)誤時(shí)，不使用錯(cuò)誤處理程序塊C當(dāng)發(fā)生錯(cuò)誤時(shí)，忽略錯(cuò)誤行，繼續(xù)執(zhí)行下一語句D當(dāng)發(fā)生錯(cuò)誤時(shí)，終止本過程執(zhí)行，繼續(xù)執(zhí)行下一過程 9、在Visual Basic中，若要將控制權(quán)交給操作系統(tǒng)則通過（ ）的語句。AEnd BExit

18、Do CExit Sub DDoEvents 10、在Visual Basic 中語句的續(xù)行號(hào)采用（ ）A空格與下劃線 B下劃線與空格 C空格與短線 D短線與空格 11、假定有以下程序段：For i=1 to 3For j=5 to 1 Step 1Print i*jNext j,i則語句Print i*j的執(zhí)行次數(shù)是（ ）A15 B.16 C17 D18 12、從鍵盤上輸入兩個(gè)字符串，分別保存在變量str1、str2中。確定第二個(gè)字符串在第一個(gè)字符串中起始位置的函數(shù)是（ ）ALeftBMidCStringDInstr 13、如果將布爾常量值TRUE賦值給一個(gè)整型變量，則整型變量的值為（）A0

19、B-1CTRUEDFALSE 14、下列敘述不正確的是（）A注釋語句是非執(zhí)行語句，僅對程序的容起注釋作用，它不被解釋和編譯B注釋語句可以放在代碼中的任何位置C注釋語句不能放在續(xù)行符的后面D代碼中加入注釋語句的目的是提高程序的可讀性 15、語句PRINT “INT(-13.2)”；INT(-13.2)的輸出結(jié)果為（）AINT(-13.2)= -13.2BINT(-13.2)= 13.2CINT(-13.2)= -13DINT(-13.2)= -14 16、如果TAB函數(shù)的參數(shù)小于1，則打印位置在第（）列A0B1C2D3 17、變量未賦值時(shí)，數(shù)值型變量的值為（）A、0B空C1D無任何值 18、下列

20、語句中正確的是（）Atxt1.text+txt2.text=txt3.textB=cmdokC12label.caption=1234Da=inputbox(“hello”) 19、假設(shè)變量BOOLVAR是一個(gè)布爾型變量，則下面正確的賦值語句是（）ABOOLVAR=TRUEBBOOLVAR=.TRUECBOOLVAR=#TRUE#DBOOLVAR=320判斷循環(huán)結(jié)構(gòu)的類型和循環(huán)體的執(zhí)行次數(shù)，正確的選項(xiàng)是（）A當(dāng)型循環(huán)，20次B直到型循環(huán)，10次C當(dāng)型循環(huán)，10次D直到型循環(huán)，20次 26、在程序中，使用InputBox函數(shù)可以接受用戶的輸入，如果要把它的返回值轉(zhuǎn)換為數(shù)

21、值型的數(shù)據(jù)，應(yīng)該使用的函數(shù)是（）AValBLenCStr DLog 27、動(dòng)態(tài)數(shù)組因?yàn)樵诔绦蜻\(yùn)行前無法確定數(shù)組的大小，所以經(jīng)常根據(jù)程序的運(yùn)行情況，對數(shù)組進(jìn)行重新定義，以下關(guān)于VB中動(dòng)態(tài)數(shù)組的敘述中不正確的是（）A可以用ReDim語句重新定義動(dòng)態(tài)數(shù)組，并且可以進(jìn)行多次重定義B首次用Dim進(jìn)行動(dòng)態(tài)數(shù)組聲明的時(shí)候，必須指明它的類型和上下界CPreserve為ReDim語句的可選參數(shù)，用于保留動(dòng)態(tài)數(shù)組原來的容D當(dāng)對動(dòng)態(tài)數(shù)組使用Erase語句進(jìn)行釋放操作時(shí)，將釋放其存 28、VB中的控件也叫做部件或組件，主要包括三類，以下哪一項(xiàng)不屬于VB控件的分類（）A控件B可插入對象CADO控件 DActiveX控件

22、 29、表達(dá)式4+5 6 * 7 / 8 Mod 9 的值是（ ）A4 B5 C6 D7 30、可以同時(shí)刪除字符串前導(dǎo)和尾部空白的函數(shù)是（ ）ALtrim BRtrim CTrim DMid三、簡答題 1、全局變量聲明有哪些限制？ 2、字符串是否可以自動(dòng)轉(zhuǎn)換為數(shù)字類型？ 3、用Format函數(shù)格式化后的字符格式在不同區(qū)域環(huán)境下的輸出是否一樣？為什么？ 4、在InputBox函數(shù)中，哪一個(gè)參數(shù)是必需的？ 5、在MsgBox函數(shù)中哪一個(gè)參數(shù)是必須的？ 6、在什么情況下使用過程？ 7、為什么要進(jìn)行程序調(diào)試？ 8、調(diào)試程序有哪些手段？ 9、用語句Dim A(-3 To 5) As Integer定義的

23、數(shù)組的元素個(gè)數(shù)是多少？ 10、設(shè)有如下的Visual Basic表達(dá)式：5*x2-3*x-2*Sin(a)/3，與它對應(yīng)的數(shù)學(xué)式是什么？ 11、數(shù)學(xué)式對應(yīng)的VB表達(dá)式是什么？ 12、表達(dá)式23 And 44的值是什么？ 13、怎樣在程序中設(shè)置斷點(diǎn)？ 14、在什么情況下可以設(shè)置斷點(diǎn)？ 15、程序出錯(cuò)的類型有哪幾種？ 16、在同一模塊、不同過程中聲明的一樣變量名，兩者是否表示同一個(gè)變量？為什么？ 17、什么情況下會(huì)出現(xiàn)“數(shù)組下標(biāo)越界錯(cuò)誤”？ 18、逐語句和逐過程有什么區(qū)別？ 19、表達(dá)式2.75 * 2 3.45的值是什么？ 20、在程序設(shè)計(jì)中為什么盡量不用GoTo語句？四、讀程序題 1、分析以下

24、程序，寫出運(yùn)行結(jié)果。 Private Sub Form_Click() score = Int(Rnd * 10) + 80 Select Case score 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 2、讀下面的程序，分析其功能，寫出運(yùn)行結(jié)果。在窗體上有一個(gè)命令按鈕，名稱為Command1。然后編寫如下程序：Private Sub Command1_Click()For I = 1

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

26、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é)果是什么？ 5、分析以下程序，寫出運(yùn)行結(jié)果。Sub sele() Dim n as Integer i=21:n=3 Do While in i=inLoop Print iEnd Sub 6、分析以下程序，寫出運(yùn)行結(jié)果。Sub selectPrin

27、t()Dim a as IntegerDim b as IntegerDim c as Integera=2:b=5:c=2If(a=b)and(a=c) or (bc) Then Print aa=a+2ElsePrint bEndIfPrint a;b;cEnd Sub 7、分析以下程序，寫出運(yùn)行結(jié)果。Sub swap() Dim x as Integer 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 8、分析以下程序，寫出運(yùn)行結(jié)果。Sub selectPri

28、nt() Dim a as Integer Dim b as Integer Dim c as Integer a=3:b=3:c=2 If(a=b)and(ac)Then Print a Print a,b,cEnd Sub五、編程題 1、輸入一年號(hào)，判斷它是否是閏年。界面如下圖所示，包括兩個(gè)標(biāo)簽、一個(gè)文本框和一個(gè)命令按鈕。提示：如果此年號(hào)能被400整除或者不能被400除盡，也不能被100除盡，但能被4整除，則它是閏年；否則，不是閏年。 2、輸入兩個(gè)正整數(shù)m、n，求m和n的最大公約數(shù)。要求建立如下圖所示的窗體，其中主要的控件包括：兩個(gè)標(biāo)簽（Lable1、Lable2）、兩個(gè)文本框（Text1

29、、Text2）和一個(gè)按鈕（Command1）。3、輸入某學(xué)生成績（百分制），若是100成績90輸出優(yōu)秀；若是90成績80輸出良好；若是80成績70輸出中等；若是70成績60輸出與格；若是60成績0，輸出不與格；若是其他數(shù)則輸出error信息。4、在窗體中顯示從9號(hào)字型到16號(hào)字型。5、在有序序列中插入一個(gè)數(shù)，使插入后的數(shù)列仍然有序（設(shè)按由小到大排列）。 6、編程實(shí)現(xiàn)二維數(shù)組轉(zhuǎn)置。 7、隨機(jī)輸入10個(gè)100以的整型數(shù)，計(jì)算其和與平均值。 8、找出所有的水仙花數(shù)。水仙花數(shù)是個(gè)三位數(shù)，它的各位數(shù)字的立方和等于這個(gè)三位數(shù)本身。例如37133+73+13，則371是水仙花數(shù)。 9、從鍵盤輸入一個(gè)大于2的

30、正整數(shù)，判斷該數(shù)是否是素?cái)?shù)。 10、求二維數(shù)組中的最小值與其所在行號(hào)、列號(hào)。 11、求一元二次方程ax2+bx+c=0的根（包括實(shí)根和復(fù)根）。 12、輸入一個(gè)正整數(shù)n，計(jì)算出n!并輸出。 13、Faibonacci數(shù)列為0，1，1，2，3，5，8，13 ，計(jì)算并輸出第20項(xiàng)以與前20項(xiàng)的和。第四章 常用控件與窗體一、填空題 1、向列表框控件添加新項(xiàng)目的方法是_。 2、在VB中，最主要的兩種對象是_和_。 3、當(dāng)窗體啟動(dòng)時(shí)可通過_屬性控制窗體位于所有者的中心位置。 4、若要將窗體Form1隱藏起來，則可通過執(zhí)行代碼_來實(shí)現(xiàn)。 5、要使裝入到列表框中的數(shù)據(jù)項(xiàng)能自動(dòng)按字母順序排序，應(yīng)設(shè)置該控件的_屬

31、性為_。 6、窗體上放置了若干個(gè)文本框和命令按鈕，當(dāng)窗體裝入后，要將焦點(diǎn)自動(dòng)定位到文本框Text1上，則在設(shè)計(jì)時(shí)需要將_控件的_屬性設(shè)置為_。 7、在標(biāo)簽控件過編程使文字換行用的代碼是_。 8、設(shè)置計(jì)時(shí)器控件只能觸發(fā)_事件。 9、設(shè)置計(jì)時(shí)器對象觸發(fā)事件的時(shí)間間隔用_屬性。 10、滾動(dòng)條控件主要支持兩個(gè)事件，它們是_事件。 11、要使鼠標(biāo)停留在按鈕上顯示特殊的鼠標(biāo)形狀，應(yīng)設(shè)置的屬性值是_。 12、設(shè)某列表框共有10項(xiàng)，按題目要求補(bǔ)齊程序，完成相應(yīng)的功能。（1）按下命令按鈕Command1時(shí)將列表框第8項(xiàng)的容顯示在窗體上：PrivateSubCommand1_Click()List._(7)=Tr

32、uePrintList1._EndSub（2）單擊列表框某一項(xiàng)時(shí)立即將該項(xiàng)打印在窗體上：PrivateSubList1_Click()Print_EndSub（3）按下命令按鈕Command1時(shí)在窗體上刪除第1、3、5、7、9項(xiàng)：PrivateSubCommand1_Click()ForI=1To5List1._NextIEndSub（4）在列表框的每一項(xiàng)之后插入一個(gè)新的項(xiàng)：PrivateSubCommand1_Click()ForI=1to10X=InputBox(“請輸入插入的第”&I&“項(xiàng)容”)List1.AddItem_NextIEndSub 13、設(shè)在界面上放置了一個(gè)滾動(dòng)條Hscro

33、ll1和一個(gè)標(biāo)簽控件Label1，要使每次單擊滾動(dòng)條兩端箭頭時(shí)，或單擊滾動(dòng)條滑塊與兩端箭頭之間的空白區(qū)域時(shí)，標(biāo)簽容能夠反映滾動(dòng)條的值，補(bǔ)齊以下代碼。PrivateSubHscroll1._()Label1.Caption=Hscroll1._EndSub要使拖動(dòng)滾動(dòng)條滑塊時(shí)標(biāo)簽容能夠反映滾動(dòng)條的值，補(bǔ)齊以下代碼。PrivateSubHscroll1._()Label1.Caption=Hscroll1._EndSub 14、列表框（ListBox）用于列出可供選擇的項(xiàng)目的列表，用戶可以選擇一個(gè)或多個(gè)項(xiàng)目。它具有幾個(gè)非常重要的數(shù)組屬性，其中_屬性存放了列表框中所有項(xiàng)目的值。 15、菜單項(xiàng)一般由標(biāo)

34、題、訪問鍵、快捷鍵和復(fù)選標(biāo)志等構(gòu)成，通過對相應(yīng)的屬性進(jìn)行設(shè)置可以改變這些項(xiàng)目的狀態(tài)，其中與復(fù)選標(biāo)志相對應(yīng)的屬性是_。 16、keydown與keypress事件各有其參數(shù)，若需獲得用戶按下 a 還是 A 需用_事件。 17、控件_組合了文本框和列表框的功能，是VB中一種功能非常強(qiáng)大的選擇類控件。 18、若需要將窗體Form2以模態(tài)窗口的形式顯示出來，可通過執(zhí)行代碼_來實(shí)現(xiàn)。 19、菜單中的分隔條是一種菜單控件，不響應(yīng)_事件，不能被選中。二、選擇題 1、當(dāng)程序運(yùn)行時(shí)，在窗體上單擊鼠標(biāo)，以下哪個(gè)事件是窗體不會(huì)接收到( )AMouseDownBMouseUpCLoadDClick 2、窗體Form1

35、的Name屬性是Frm1，它的單擊事件過程名是（ ）AForm1_ClickBForm_ClickCFrm1_ClickDMe_Click 3、用于設(shè)置通用對話框控件顯示文件類型的屬性是（ ）AFilter BPath CPartern DFoleName 4、用于從存刪除窗體的命令是（ ）AMove BHide CUnload DDelete 5、用于返回窗體可用區(qū)域?qū)挾鹊膶傩允牵?）AScaleWidth BScaleLeft CScaleHeight DScaleTop 6、下列關(guān)于屬性設(shè)置的敘述錯(cuò)誤的是：（ ）A一個(gè)控件具有什么屬性是VB預(yù)先設(shè)計(jì)好的，用戶不能改變B一個(gè)控件具有什么屬性

36、是VB預(yù)先設(shè)計(jì)好的，用戶可以改變C一個(gè)控件的屬性即可以在屬性窗口中設(shè)置，也可以用程序代碼設(shè)置D一個(gè)控件的屬性在屬性窗口中設(shè)置，還可以利用程序代碼為其設(shè)置新值 7、下列說確的是（）A對象屬性只能在“屬性窗口”中設(shè)置B一個(gè)新的工程可以在“工程窗口”中建立C必須先建立一個(gè)工程，才能開始設(shè)計(jì)應(yīng)用程序D只能在“代碼窗口”中編寫程序代碼 8、下列關(guān)于窗體上控件的基本操作錯(cuò)誤的是（）A按下一次DEL鍵只能刪除一個(gè)控件B按下一次DEL鍵可以同時(shí)刪除多個(gè)控件C按住SHIFT鍵，然后單擊每個(gè)要選擇的控件，可以同時(shí)選中多個(gè)控件D按住ALT鍵，然后單擊每個(gè)要選擇的控件，可以同時(shí)選中多個(gè)控件 9、下列關(guān)于設(shè)置控件屬性的

37、敘述正確的是（）A用戶必須設(shè)置屬性值B所有的屬性值都可以由用戶隨意設(shè)定C屬性值不必一一重新設(shè)置D不同控件的屬性項(xiàng)都完全一樣 10、不可以通過下列（）操作將焦點(diǎn)賦給對象A運(yùn)行時(shí)使用TAB鍵B在代碼中用CALL語句調(diào)用C在代碼中用SETFOCUS方法D用訪問鍵或用鼠標(biāo)單擊選擇對象 11、要在FORM_LOAD事件過程中使用PRINT方法在窗體上輸出一定的容，應(yīng)（）A設(shè)置窗體的VISIBLE屬性B設(shè)置窗體的CAPTIONC調(diào)用窗體的SHOW方法D設(shè)置窗體ENABLED屬性 12、下面（）對象無CAPTION屬性AFORMBCOMMANDBUTTONCTEXTBOXDLABEL 13、通用對話框控件和

38、文件列表框控件中，都能根據(jù)文件的類型對要顯示的文件進(jìn)行篩選過濾，后者使用（）屬性進(jìn)行該項(xiàng)設(shè)置。APatternBPath CFilter DFileName 14、對于復(fù)選框控件chkBoy，如果在程序中設(shè)置它為選中狀態(tài)，下面語句正確的是（）AchkBoy.Checked = true BchkBoy.Value = trueCchkBoy.Selected = true DchkBoy.Value = 1 15、計(jì)時(shí)器（Timer）控件用于每隔一段時(shí)間自動(dòng)觸發(fā)一次Timer事件，可以有規(guī)律地重復(fù)執(zhí)行一段程序，它用于設(shè)置兩次事件時(shí)間間隔的屬性是（）AIntervalBSmallChangeCL

39、argeChangeDMax 16、以下關(guān)于VB中窗體（Form）的說法中，不正確的描述為（）A執(zhí)行Unload Form語句后，窗體Form消失，但仍在存中B當(dāng)窗體的Enabled屬性為False時(shí)，通過鼠標(biāo)和鍵盤對窗體的操作都被禁止C窗體的Height、width屬性用于設(shè)置窗體的高和寬D窗體的load事件在加載窗體時(shí)發(fā)生 17、關(guān)于滾動(dòng)條控件，下面說法錯(cuò)誤的是（）A點(diǎn)擊滾動(dòng)條的箭頭，可以改變它的value值，從而引發(fā)Change事件B拖動(dòng)滾動(dòng)框，可以觸發(fā)Scroll事件C通常，水平滾動(dòng)條的值從左向右遞增，垂直滾動(dòng)條的值自上而下遞增D拖動(dòng)滾動(dòng)框，可以觸發(fā)Change事件，而且是連續(xù)觸發(fā)的

40、18、在窗體上放置一個(gè)命令按鈕，名稱為Command1。單擊命令按鈕時(shí)，執(zhí)行如下事件過程：PriVateSubCommand1_C1ick()a$=softwareandhardwareb$Right(a$,8)c$=Mid(a$,1,8)Msgboxa$,b$,c$,1EndSub則在彈出的信息框的標(biāo)題欄中顯示的信息是（）AsoftWareandhardwareBsoftwareChardwafeD出現(xiàn)錯(cuò)誤 19、在多重窗體程序設(shè)計(jì)中，關(guān)鍵的問題是要解決不同窗體之間的銜接和窗體的顯示、關(guān)閉等問題，以下關(guān)于窗體的相關(guān)語句和方法的敘述中，錯(cuò)誤的是（）ALoad語句用于加載指定窗體，即在存中創(chuàng)建該

41、窗體BShow方法兼具Load語句的功能，可以將窗體顯示出來CHide方法用于將窗體隱藏起來DUnload語句用來釋放窗體，但窗體并沒從存中消 20、滾動(dòng)條控件的屬性中，表示取值圍最大值的屬性是（）AMaxBLargeChange CMinDValue 21、程序中如果需要檢測和控制鼠標(biāo)的位置和狀態(tài)的改變，就需要使用鼠標(biāo)事件，其中下面哪個(gè)選項(xiàng)用于表示拖動(dòng)事件（）ADragDrop BMouseDownCMouseUpDMouseMove 22、為了使用通用對話框進(jìn)行打開文件的操作，應(yīng)將通用對話框的Action屬性設(shè)定為（ ）。A0 B1 C2 D3三、簡答題 1、什么是單選按鈕？什么是復(fù)選框？

42、在使用上有什么不同？ 2、滾動(dòng)條的change事件和scroll事件有什么不同？ 3、快捷鍵和訪問鍵有什么區(qū)別？ 4、在程序運(yùn)行期間，如果拖動(dòng)滾動(dòng)條上的滾動(dòng)塊（即滑塊），則觸發(fā)滾動(dòng)條的什么事件？ 5、假定有一個(gè)菜單項(xiàng)，名為MenuItem，為了在運(yùn)行時(shí)使該菜單項(xiàng)失效（變灰），應(yīng)使用什么語句？ 6、為了暫時(shí)關(guān)閉計(jì)時(shí)器（即時(shí)鐘控件），應(yīng)把該計(jì)時(shí)器的什么屬性設(shè)置為False？ 7、單選按鈕和復(fù)選框（即檢查框）各用于什么情況？ 8、如何為一個(gè)菜單項(xiàng)設(shè)置熱鍵和快捷鍵？ 9、菜單的形式有哪兩種？ 10、在KeyPress事件中，如何取消用戶剛輸入的字符？ 11、框架的作用是什么？ 12、如果要計(jì)時(shí)器每秒鐘

43、發(fā)生4個(gè)Timer事件，則Interval屬性值應(yīng)設(shè)多少？ 13、在一個(gè)窗體的程序代碼中能否訪問另一個(gè)窗體上控件的屬性？若不行則請說明理由；若行則請說明如何訪問。 14、如何在框架中建立控件？ 15、組合框有哪幾種類型？四、讀程序題 1、對窗體編寫如下代碼：Option 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 IfNe

44、xt iEnd IfPrint m1Print m2End Sub程序運(yùn)行后，按回車鍵，輸出結(jié)果是什么？ 2、閱讀下面的程序，寫出執(zhí)行結(jié)果。Private Sub Form_load()Form1.showd = 0For a = 1 To 2For b = 1 To aFor c = b To 5d = d + 1Next cNext bNext aPrint dEnd Sub五、編程題 1、在窗體上有一個(gè)文本框控件，名稱為TxtTime；一個(gè)計(jì)時(shí)器控件，名稱為Timer1，要求每一秒在文本框中顯示一次當(dāng)前的時(shí)間，請編程實(shí)現(xiàn)。 2、在Text1中輸入任一英文字母，在Text2中顯示該英文字母

45、與其ASCII碼值。要求在文本框Text2中顯示出所有輸入的英文字母與其ASCII碼值，如下圖所示。Text1Text2Command1 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è)如圖所示的簡單編輯器。用戶在文本框（text1）中輸入正文后，選中某些文

46、本時(shí)可進(jìn)行“剪切”、“復(fù)制”和“粘貼”操作。假設(shè)在窗體聲明部分定義了一個(gè)變量str1，用于保存復(fù)制和剪切的容，請把剪切按鈕(btnCut)的Click事件補(bǔ)充完整。程序運(yùn)行界面：Private Sub btnCut_Click() 請補(bǔ)充End Sub 2、計(jì)算1 + 2 + 3 + + 100的和并輸出。請把下面用Do While Loop循環(huán)結(jié)構(gòu)實(shí)現(xiàn)這一功能的代碼補(bǔ)充完整。Private Sub Form_Load()Dim sum,count as Integer請補(bǔ)充Do while count =100請補(bǔ)充LoopText1.Text = sumEnd Sub 3、列表框控件（Li

47、stBox）支持多項(xiàng)選擇，這項(xiàng)功能在對用戶的興趣愛好進(jìn)行調(diào)查的時(shí)候顯得非常好用，在下圖所示的界面中列表框List1用于列出愛好選項(xiàng)，供用戶進(jìn)行多項(xiàng)選擇。請把下列代碼補(bǔ)充完整，能夠取得用戶的所選愛好選項(xiàng)：Private Sub Command1_Click() Dim i As Integer Dim s As String s = txtname.Text & 愛好 For i = 0 To List1.ListCount - 1 請補(bǔ)充 Next Label3.Caption = s End Sub 4、要求利用計(jì)時(shí)器Timer1，在窗體Form1上每隔1秒鐘打印一個(gè)1到10的隨機(jī)整數(shù)，請把

48、下列代碼補(bǔ)充完整：Private Sub Form_Load() Show 請補(bǔ)充End SubPrivate Sub Timer1_Timer()請補(bǔ)充End Sub第五章 文件一、填空題 1、文件按存取方式與其組成結(jié)構(gòu)可分為_文件、_文件和_文件。 2、為了使文件列表框List1和目錄列表框Dir1之間能產(chǎn)生同步效果，必須在_事件過程中加入語句_。 3、文件系統(tǒng)控件的作用是向用戶顯示系統(tǒng)中的文件，方便用戶選擇，它是一組控件的組合，包括：驅(qū)動(dòng)器列表框、_和文件列表框。二、選擇題 1、利用下面哪個(gè)函數(shù)可判定訪問文件時(shí)是否已到文件尾（）ALOFBLOCCEOFDBOF 2、用于設(shè)置文件列表框控件

49、顯示文件類型的屬性是（ ）AFilter BPath CPartern DFileName三、簡答題 1、什么是文件？ 2、文件存取分成幾類，幾種模式？ 3、順序文件、隨機(jī)文件和二進(jìn)制文件各有什么特點(diǎn)和用途？ 4、文件有哪幾種類型？它們的區(qū)別是什么？ 5、請說明PRINT #和WRITE #語句的區(qū)別 6、EOF函數(shù)的功能是什么？四、編程題 1、實(shí)現(xiàn)二進(jìn)制方式文件的復(fù)制。 2、如下圖所示，實(shí)現(xiàn)一個(gè)簡單的文件管理器。第六章 圖形操作一、填空題 1、使用_方法可在窗體中進(jìn)行文本的輸出，用_方法可畫圓，用_方法可畫直線。 2、用_函數(shù)可加載圖形。 3、為了使一個(gè)Picture控件能自動(dòng)根據(jù)裝入的圖片

50、調(diào)整大小，應(yīng)設(shè)置該控件的_屬性為True。二、選擇題 1、下列關(guān)于控件畫法的敘述錯(cuò)誤的是（）A單擊一次工具箱中的控件圖標(biāo)，只能在窗體上畫出一個(gè)相應(yīng)的控件B按住CTRL鍵后單擊一次工具箱中的控件圖標(biāo)，可以在窗體上畫出多個(gè)一樣類型的控件C雙擊工具箱中的控件圖標(biāo)，所畫控件的大小和位置是固定的D不使用工具箱中的控件工具，不可以在窗體上畫出圖形對象，但可以寫入文字字符 2、當(dāng)一個(gè)對象（如窗體或圖片框）被移動(dòng)或改變大小之后，或當(dāng)一個(gè)覆蓋該窗體被移開之后，如果要保持該所畫圖形的完整性，可以選擇觸發(fā)（）事件來完成圖形的重畫工作APaintBLoadCClickDActive三、簡答題 1、在什么情況下使用Im

51、age控件而不使用PictureBox控件？ 2、在程序運(yùn)行時(shí)怎樣在圖形框中裝入和刪除圖形？ 3、顏色函數(shù)主要有哪些？四、編程題 1、如下圖顯示當(dāng)前目錄下的圖片文件列表，并能夠預(yù)覽選定的圖片。第七章 面向?qū)ο蟮木幊桃?、填空題 1、類是具有一樣性質(zhì)的對象的_。 2、語句DIM TEMP AS Object的作用是_。二、簡答題 1、什么是模塊？第八章 界面設(shè)計(jì)一、簡答題 1、什么是多文檔界面（MDI）？ 2、說明菜單欄、菜單、選項(xiàng)和工具欄之間的關(guān)系。 3、結(jié)束MDI應(yīng)用程序時(shí)，需要注意什么？第九章 Visual Basic與數(shù)據(jù)庫一、簡答題 1、表間的關(guān)系類型有哪幾種？ 2、Visual Bas

52、ic中的記錄集有哪幾種類型？二、編程題 1、請編程實(shí)現(xiàn)每兩秒在標(biāo)簽中顯示一次當(dāng)前的時(shí)間。 2、找出被3、5、7整除，余數(shù)為1的最小的2個(gè)正整數(shù)。 3、有一個(gè)mn的實(shí)型矩陣A(m,n)，找出其中最大的那個(gè)元素所在的行和列。 4、找出能同時(shí)被5和7整除的最小的10個(gè)正整數(shù)。 5、編寫一個(gè)程序，能夠輸出1001000之間所有的素?cái)?shù)。 6、從鍵盤上任意輸入100個(gè)整數(shù)，統(tǒng)計(jì)負(fù)數(shù)的個(gè)數(shù)，并計(jì)算正數(shù)的和。 7、有一種數(shù)，正序讀與反序讀都一樣，這種數(shù)叫回文數(shù)，如88、858、2332等。求出4位數(shù)以（09999）的所有回文數(shù)。 8、輸出“九九乘法表”。參考答案第一章 Visual Basic程序設(shè)計(jì)概述一、

53、填空題 1、對象、事件驅(qū)動(dòng) 2、Vbp、frm、bas 3、部件 4、WINDOWS二、選擇題 1、C 2、C 3、C 4、D 5、D第二章 簡單的VB程序設(shè)計(jì)一、填空題 1、Tabstop 2、Left、top、height、width 3、enabled 4、backcolor 5、name 6、name和caption 7、屬性 8、標(biāo)準(zhǔn)模塊文件 9、運(yùn)行模式二、選擇題 1、D 2、D 3、C 4、C 5、D 6、B 7、D 8、D 9、D 10、D 11、B 12、A 13、D 14、C 15、B 16、B 17、B 18、D第三章 VB基本語言一、填空題 1、Const 2、Vari

54、ant 3、隱式聲明、顯示聲明 4、option base、ubound、lbound 5、強(qiáng)制變量聲明 6、表示a2是一個(gè)可選參數(shù) 7、End 8、Msgbox、Inputbox 9、*.*、showprint 10、Mid() 11、6 12、redim preserve arraya(ubound(arraya()+1) 13、static 14、0 15、f 16、rem、 17、變量、數(shù)組 18、1 to 4,1 to 5 19、Index 20、按地址 21、Option Explicit 22、13 23、ityo 24、符號(hào) 25、LCase 26、ESC 27、部件 28、斷

55、點(diǎn) 29、False 30、Option Explicit 31、UCase 32、Mid 33、# 34、過程 35、private 36、求x的絕對值 37、2.5二、選擇題 1、D 2、B 3、D 4、C 5、B 6、C 7、D 8、C 9、D 10、A 11、A 12、D 13、B 14、B 15、D 16、B 17、A 18、D 19、D 20、C 21、D 22、B 23、B 24、B 25、B 26、A 27、B 28、C 28、B 30、C四、讀程序題 1、結(jié)果如下：B 2、結(jié)果如下：BBCCCDDDDEEEEE 3、功能如下：在20個(gè)由小到大排列的數(shù)據(jù)中插入一個(gè)數(shù)，插入數(shù)據(jù)后

56、的數(shù)據(jù)仍按由小到大的順序排列。 4、輸出結(jié)果為： 2 4 6 8 5、輸出結(jié)果為：3 6、輸出結(jié)果為：2452 7、輸出結(jié)果為：1200 2 0 8、輸出結(jié)果為：33 3 2五、編程題 1、參考代碼如下：Private Sub Command1_Click() Dim year, x As Integer year = Val(Text1.Text) If year Mod 400 = 0 Then Label2.Caption = 是閏年 Else 下面是嵌套塊If語句 If year Mod 4 = 0 And year Mod 100 0 Then Label2.Caption = 是閏

57、年 Else Label2.Caption = 不是閏年 End If End IfEnd Sub 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 0 m = n n = r r = m Mo

58、d nLoop 循環(huán)結(jié)束后n中存放的就是最大公約數(shù)，輸出n值 Label2.Caption = 最大公約數(shù)為： & n End IfEnd Sub 3、參考代碼如下：Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)If x 100 Or 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 The

59、n Text2.Text = 良好 Else Text2.Text = 優(yōu)秀End IfEnd Sub 4、參考代碼如下：Private Sub Form_Load() Dim i As Integer Show 使輸出可見 Form1.Font = 新宋體 For i = 9 To 16 Step 1 Form1.FontSize = i Print i; 號(hào)字型 Next iEnd Sub 5、參考代碼如下：Private Sub Command1_Click() Dim a(1 To 11) As Single 定義靜態(tài)數(shù)組a含11個(gè)元素 Dim i, j As Integer Dim

60、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ù)插入隊(duì)列中 For i = 10 To 1 Step -1 If num a(i) Then a(i+1) = a( i ) 元素后移一