全國二級(jí)VB知識(shí)點(diǎn)答案版 (2)

1、全國計(jì)算機(jī)等級(jí)考試二級(jí)知識(shí)點(diǎn)（Visual Basic)一、理論題1Visual Basic的基本概念。（1）面向?qū)ο螅∣OP）的程序設(shè)計(jì)的基本概念：對象、屬性、方法、事件及事件驅(qū)動(dòng)。（2）開發(fā)Visual Basic應(yīng)用程序的一般步驟。方法：對象可以執(zhí)行的動(dòng)作或行為；（主動(dòng)性）事件：使某個(gè)對象進(jìn)入活動(dòng)狀態(tài)的一種操作或動(dòng)作。（被動(dòng)性）例 題：1、一個(gè)對象可以執(zhí)行的動(dòng)作和可被對象識(shí)別的動(dòng)作分別稱為（ A ）。A.方法、事件B.事件、方法C.方法、屬性D.事件、屬性2、小王買了輛藍(lán)色汽車，當(dāng)駕駛員踩油門時(shí)汽車就會(huì)前進(jìn)；剎車時(shí)汽車就會(huì)停下。則白色、踩油門、前進(jìn)是（ B ）。屬性、方法、事件屬性、事件

2、、方法方法、屬性、事件對象、屬性、事件若使用事件驅(qū)動(dòng)編程機(jī)制，則有以下事件過程及功能代碼：注意：（通過代碼設(shè)置對象的屬性及方法） 對象名.屬性名=屬性值 值為字符串時(shí)，加雙引號(hào)對象名.方法名2Visual Basic的界面設(shè)計(jì)。VB中的對象包括窗體和控件。容器控件：窗體Form、圖片框PictureBox、框架Frame。創(chuàng)建窗體。窗體的常用屬性：Name、Caption、BorderStyle、Enabled（True,False）、Font、BackColor、ForeColor、Icon、Left、Top、Width、Height、Visible。常用的窗體方法：Move、Show、Hi

3、de、Print、PrintForm、Refresh、Cls。常用的窗體事件:Activate、Deactivate、Click、DblClick、Load、Unload、Resize。窗體的顯示與隱藏、裝載與卸載(Unload me/unload form1/End語句)。例 題：1、用窗體的（ C ）屬性來設(shè)置窗體的標(biāo)題。A.StyleB.TextC.Caption2在Visual Basic中最基本的對象是（ C ），它是應(yīng)用程序的基石，也是其他控件的容器。A.文本框B.命令按鈕 C.窗體 D.標(biāo)簽3、Visual Basic程序設(shè)計(jì)時(shí)常用的Print、Cls屬于（ C ）。屬性B.對象

4、C.方法D.事件4、應(yīng)用程序窗體的名稱屬性為Frm1,窗體上有一個(gè)命令按鈕，其名稱屬性為Cmd1，窗體和命令按鈕的Click事件過程名分別為（ C ）A Form_Click() Command1_Click()B. Frm1_Click() Command1_Click()C. Form_Click() Cmd1_Click()D. Frm1_Click() Cmd1_Click()5、執(zhí)行下面語句：Print 5*20 的結(jié)果是（ C ）。A“5*20B出現(xiàn)錯(cuò)誤信息C5*20D1006、下列語句代碼哪一些可正常執(zhí)行（正常執(zhí)行是指系統(tǒng)不給出出錯(cuò)提示）；& 字符串連接符；+（算術(shù)加或字符串連接

5、）當(dāng)+左右只要有一個(gè)為數(shù)值時(shí)即進(jìn)行加運(yùn)算。（BCDE）A、Print 32765 + 3B、Print 5 + 7 = 14C、Print 256 / 128D、Print 14 + 12E、Print 14 & 12 7、以下有關(guān)對象屬性的說法中正確的是（ D ）。A.對象所有的屬性都羅列在屬性窗口列表中(文本框的SelLength,SelText,SelStart)B.不同對象不可能有同名屬性C.不同對象的同名屬性取值一定相同D.對象的某些屬性既可在屬性窗口中設(shè)置，也可通過程序代碼設(shè)置或改變(名稱屬性只能通過屬性窗口改變)8、以下窗體名中哪些是非法的窗體名（ C ）。對象名命名規(guī)則：以字母

6、或漢字開頭，后面可以是字母、數(shù)字、下劃線、漢字。（變量名類似）A_aformB3frmCf_1Dfrm 5Ef_1*9、在文本框text1中輸入數(shù)字12，text2中輸入數(shù)字34，執(zhí)行以下語句，只有（ B ）可使文本框text3中顯示46。A.text3.Text=text1.Text & text2.TextB.text3.Text=Val (text1.Text) + Val (text2.Text)C.text3.Text=text1.Text + text2.TextD.text3.Text=Val (text1.Text) & Val (text2.Text)（2）基本控件的特性及應(yīng)

7、用。公用屬性：Name、Caption、Enabled、Font、Left、Top、Width、Height、Index(控件數(shù)組)、Tabstop、Visible。公用方法:Move、Refresh、SetFocus（標(biāo)簽控件無此方法）。公用事件：Click、DblClick、LostFocus。文本框 (TextBox):Text（注意文本框無caption屬性）、PasswordChar、Alignment、Maxlength、MultiLine 屬性、ScrollBars注：Multiline=True；Change、LostFocus 事件、SetFocus方法。標(biāo)簽(Label):

8、Alignment、AutoSize 屬性。命令按鈕(CommandButton):Cancel、Default、Enabled(變灰不可用)屬性。單選按鈕(OptionButton)、復(fù)選框(CheckBox)及框架(Frame)：Alignment、Value 屬性。Option1.value=true/false Check1.value=0/1/2列表框(ListBox)：List、listCount、ListIndex、Text、Columns、Sorted(按字母順序升序而非數(shù)值大小)、Selected屬性；Print List1.list(List1.listindex)功能等價(jià)

9、于List1.textPrivate Sub Form_Load() List1.Selected(2) = True List1.ListIndex = 2End SubAddItem（向列表框中一項(xiàng)一項(xiàng)添加、Clear清除所有、RemoveItem清除某一項(xiàng)（序號(hào)）方法。組合框(ComboBox)：具有與列表框相同的屬性及方法。Style屬性決定了組合框的類型和顯示方式；圖片框(PictureBox)Print方法 Picture屬性，Autosize屬性 清除片框上所顯示的文字的方法為Cls方法（同窗體）圖像(Image)控件： Picture，Stretch屬性。(12)定時(shí)器(Tim

10、er)：Interval單位為毫秒、Enabled（為False停止計(jì)時(shí)）屬性。運(yùn)行時(shí)不可見控件。（13）滾動(dòng)條（水平，垂直滾動(dòng)條）五個(gè)屬性max,min,smallchange,largechange,value;兩個(gè)事件Change,Scroll事件。Cls方法 P16用于清除通過畫圖方法畫出的圖形或者用Print語句打印的信息，并把光標(biāo)移到對象的左上角（0，0）。這里的對象可以是窗體或圖片框，如果省略“對象”則清除當(dāng)前窗體內(nèi)的顯示內(nèi)容。如果AutoRedraw=False，則Cls方法不能清除在AutoRedraw為True時(shí)所產(chǎn)生的圖形和打印的信息。當(dāng)窗體的背景是用Picture屬性裝

11、入的圖形時(shí)，不能用Cls方法清除，只能通過LoadPicture方法清除。Move方法P17對象.Move左邊距離，上邊距離，寬度，高度Move方法中的“對象”可以是窗體以及除計(jì)時(shí)器（Timer）、菜單（Menu）之外的所有控件，如果省略“對象”，則表示要移動(dòng)的是窗體。例 題：1、把控件移到相應(yīng)的位置，并能改變其大小的方法是（B ）。AClsBMoveCformatDTab2、使用（ B ）方法可將新的列表項(xiàng)添加到一個(gè)列表框中。Print B.AddItem C.Clear D.RemoveItem3、在程序中可以通過復(fù)選框和單選按鈕的（ B ）屬性值來判斷它們的當(dāng)前狀態(tài)。Caption B.

12、Value C.Checke D.Selected4、以下使用方法的代碼中，正確的是（ C ）。A、Label1.SetfocusB、Form1.ClearC、Text1.SetFocus D、Combo1.Cls5、窗體上有多個(gè)控件，在Form_Activate()事件過程中添加（ A ）語句，就可確保每次運(yùn)行程序時(shí)，都將光標(biāo)定位在文本框Text1上。A. Text1.SetFocusB. Text1.Text=C. Form1.SetFocusD. Text1.Visible=True6、當(dāng)用戶單擊命令按鈕時(shí)，（ B ）屬性可以使得命令按鈕對激發(fā)事件無效。NameB.EnabledC.De

13、faultD.Cancel7、單選按鈕（OptionButton）用于一組互斥的選項(xiàng)中。若一個(gè)應(yīng)用程序包含多組互斥條件，可在不同的（ D ）中安排適當(dāng)?shù)膯芜x按鈕，即可實(shí)現(xiàn)?？蚣芸丶‵rame）或圖像控件（Image）組合框（ComboBox）或圖像控件（Image）組合框（ComboBox）或圖片框（PictureBox）D.框架控件（Frame）或圖片框（PictureBox）8、若在一個(gè)應(yīng)用程序窗體上，依次創(chuàng)建了CommandButton、TextBox、Label等控件，則運(yùn)行該程序顯示窗體時(shí)，（ B ）會(huì)首先獲得焦點(diǎn)。窗體 B.CommandButton C.Label D.Text

14、Box9、以下使用方法的語句中，正確的是（ A ）A. list1.clearB.form1.clear(Form1.cls正確)C. combo1.clsD.picture1.clear（cls可以）10、若窗體上的圖片框中有一個(gè)命令按鈕，則此按鈕的Left屬性是指（ B ）。A.按鈕左端到窗體左端的距離B.按鈕左端到圖片框左端的距離C.按鈕中心點(diǎn)到窗體左端的距離D.按鈕中心點(diǎn)到圖片框左端的距離11. 要使一個(gè)文本框可以顯示多行文本，應(yīng)設(shè)置為True的屬性是（ B ）。A.EnabledB.MultiLine C.MaxLengthD.Width（3）定制窗體菜單：創(chuàng)建下拉菜單和彈出式菜單。

15、例 題：1、在使用菜單編輯器創(chuàng)建菜單時(shí)，可在菜單標(biāo)題中某字母前插入（ B ）符號(hào)，那么在運(yùn)行程序時(shí)按Alt鍵和該字母鍵就可打開該命令菜單。下劃線 B.& C.$ D.2、如果要在兩個(gè)菜單命令項(xiàng)之間加一條分割線，可在標(biāo)題文本框中鍵入（ A ）。 B.+C.&D.#3Visual Basic語言基礎(chǔ)。（1）程序代碼的組織方式：過程（事件過程、通用過程）與模塊（窗體模塊、標(biāo)準(zhǔn)模塊及類模塊）。例 題：1、下列模塊中哪個(gè)是一個(gè)工程必須具備的（ A ）。窗體模塊B.標(biāo)準(zhǔn)模塊 C.類模塊D.用戶自定義模塊(2)程序代碼的書寫規(guī)則。書寫規(guī)范：一行多句，語句間用：間隔；一句多行，在前一行末尾加續(xù)行符號(hào)（空格及下

16、劃線） _；注釋符號(hào)為單引號(hào) (3)數(shù)制與數(shù)據(jù)類型。十進(jìn)制, 八進(jìn)制(&O),十六進(jìn)制(&H)15 &0456 &H2FE 整型&0123& &123& &H78& 長整型(4)不同類型常量的表示方法、系統(tǒng)內(nèi)置常量vbRed,vbCrlf、用戶定義常量的定義方法。(5)變量：變量命名；全局變量、局部變量和靜態(tài)變量的說明；變量作用域。注意：在窗體或標(biāo)準(zhǔn)模塊的通用聲明處可以用_C_語句定義變量。A. Dim、RedimB. Dim、StaticC. Dim、Private、PublicD. Dim、Private、Static注意：在窗體和類模塊中，不能將定長字符串、符號(hào)常量、數(shù)組用Public來

17、定義。隱式說明的六個(gè)符號(hào)：%、&、！、#、$例：m1&=5*x%3+x% mod y% 和 m1&=5*x%3+x% mod y%的正確性O(shè)ption Explicit 語句功能：強(qiáng)制變量的聲明（7）運(yùn)算符與表達(dá)式：算術(shù)運(yùn)算、字符串運(yùn)算（&）、關(guān)系運(yùn)算、邏輯運(yùn)算；各種運(yùn)算的優(yōu)先級(jí)。P53及下圖。 -(負(fù)號(hào))*、/Mod+、-&NotAndOrXor注意：代數(shù)表達(dá)式與VB表達(dá)式的轉(zhuǎn)換P52課后題。1、x+y小于10且x-y大于0的邏輯表達(dá)式是（ C ）。x+y0 B.(x+y0C.x+y0 D.x+y02、有變量定義語句Dim a,b as integer,變量a的類型和初值是（ B ）。Int

18、eger,0 B.Variant,空值C. String,“” D.Long,0.03、假定變量Logic類型是Boolean，下面賦值語句（ D ）是正確的。Logic=True B.Logic=.True.C.Logic=# True # D.Logic=320A2 Case ElseA3End selectif 語句例題： Private Sub Form_Click()Dim x As Integer, y As IntegerDim z As Singlex=-1 (x = 0.2)y = 1If (x = 1) Then z = xElseIf x = 0 And x = 0 Th

19、en z = 2 * x - yElse z = x + yEnd IfPrint z= + Str(z) 思考：改為+z是否正確？End SubSelect Case語句例題：Private Sub Form_Click()Dim ch As String, i As Integerch = InputBox(輸入一個(gè)字符)Select Case ch Case A, a i = 1 Case 0 To 9 i = 2 Case Else i = 3End SelectPrint 運(yùn)行結(jié)果 + ch + Str(i)End Sub計(jì)算e1,e2,e3V=e1V超過e2?循環(huán)體V=e1（4）循

20、環(huán)結(jié)構(gòu)語句：Do-Loop結(jié)構(gòu)語句、For-Next結(jié)構(gòu)語句、While-Wend結(jié)構(gòu)語句。P64-P65 課本的例題1、For-Next (循環(huán)次數(shù)的計(jì)算)For v=e1 to e2 setp e3-exit for-next vFor 循環(huán)的幾個(gè)特例：Private Sub Form_Click()For i = i To 10n = n + 1i = i + 1Next iPrint nPrint iEnd Sub 6 12Private Sub Form_Click()For i = 10 To 1 Step -2 i = i + 1 k = k + 1NextPrint iPrin

21、t kEnd Sub 0 10Private Sub Form_Click()n = -3For m = 6 To 1 Step n m = m + 1 n = n - m k = k + 1Next mPrint kPrint nEnd Sub 3 -18Private Sub Form_Click()n = 1For m = 6 To n Step -3m = m + 1n = n - mk = k + 1Next mPrint kPrint nEnd Sub 3 -14Private Sub Form_Click()For i = 1 To 3n = i - 1For j = 1 To

22、3n = n + 1If n 3 ThenPrint n Mod 3;ElsePrint n;End IfNext jPrintNext iEnd Sub當(dāng)退出循環(huán)后，循環(huán)變量的值保持退出時(shí)的值。在循環(huán)體內(nèi)對循環(huán)控制變量可多次使用，也可以對其賦值。循環(huán)變量的初值、終值及步長只在進(jìn)入For循環(huán)時(shí)計(jì)算一次。例如：有循環(huán):for I=n1 to n2 step n3 下列哪些語句會(huì)影響循環(huán)次數(shù)（ 最后一條 ）n1=n1+In3=2*n3n2=n2+n3I=I+n3注意：循環(huán)變量和循環(huán)參數(shù)（初值、終值或步長）的類型不一致，先將表達(dá)式的最后結(jié)果轉(zhuǎn)換為循環(huán)變量的類型，再執(zhí)行循環(huán)。單精度實(shí)數(shù)賦給整型變量-四

23、舍五入，注意小數(shù)點(diǎn)是.5時(shí)的循環(huán)次數(shù)Dim x as integerFor x=1.6 to 7.4 step 2.8 print xNext x2、Do-Loop (While當(dāng)型,Until直到型)P76-77課后讀程序例如：運(yùn)行下面的程序，單擊窗體后在窗體上的內(nèi)容是（10 220）；若將程序中的A語句與B語句的位置互換，再次執(zhí)行程序，單擊窗體后在窗體上顯示的內(nèi)容是（10 120）Private Sub Form_Click()Dim a As Integer, b As Integera = 0: b = 0Do While a Mys2Len(Mys1)2*Instr(Mys1,”l”

24、)Chr(66) & Right(Mys1,4)=”Basic”Instr(Left(Mys1,6),”a”)+60Asc(Ucase(Mys2)4、下面表達(dá)式的值為真的是（ A ）。Mid(Visual Basic, 1, 12) = Right(Programming Language Visual Basic, 12)ABCRG abcdeInt(123.69) = CInt(123.69) 當(dāng)小數(shù)部分為.5時(shí)，向最近的偶數(shù)靠攏78.9 / 32.77 -4.98 And運(yùn)算特點(diǎn)，只要有一為False,結(jié)果即為False,故看后面-45.4 -4.98即可得出結(jié)果。前面運(yùn)算為浮點(diǎn)除法，不

25、遵循四舍五入。兩實(shí)數(shù)相除，較難算。5、代數(shù)表達(dá)式對應(yīng)的Visual Basic表達(dá)式是（ A ）。Log(Abs(Exp(3.14159) + Sin(x) 3) / (x + y)Ln(Abs(Exp(3.14159)+Sin(x)3)/(x+y)Log(Abs(Exp(3.14159)+sin(x)3)/(x+y)Log|(Exp(3.14159)+Sin(x)3)/x+y|6執(zhí)行下面的程序，單擊窗體后在窗體上顯示的結(jié)果是（ C ）。Private Sub Form_Click()Dim str1 As String, str2 As String, I As Integerstr1 =

26、abFor I = Len(str1) To 1 Step -1 str1 = str1 & Chr(Asc(Mid(str1, I, 1) + I)Next IPrint str1End SubAbceB.abcdC.abdbD.abfd7、下列表達(dá)式中，值為True的是（ C ）。Ucase(“ABCD”)= “abcd”14/23Left( “ABCD”,2)Not (Sqr(4)-3=-2)8、代數(shù)表達(dá)式，對應(yīng)Visual Basic表達(dá)式是（ B ）。Sqr(x+Log(x)/(a+b)+Exp(-t)+Sin(x+y)/2)Sqr(x+Log(x)/(a+b)+Exp(-t)+Si

27、n(x+y)/2)Sqr(x+Ln(x)/(a+b)+Exp(-t)+Sin(x+y)/2)Sqr(x+Log(x)/(a+b)+Exp(-t)+Sin(x+y/2)9、執(zhí)行下面的程序，單擊窗體后在窗體上顯示的結(jié)果是（ A ）。Private Sub Form_Click() 使用監(jiān)視Dim Str1 As String, Str2 As StringDim Str3 As String, I As IntegerStr1 = eFor I = 1 To 2 Str2 = UCase(Str1) Str1 = Str2 & Str1 Str3 = Str3 & Str1 Str1 = Chr(

28、Asc(Str1) + I)Next IPrint Str3End SubEeFFB.eEfFC.EEFFD.eeFF10.在窗體Form1上，有一個(gè)列表框控件List1，在窗體的Click事件中有如下代碼：Private Sub Form_Click() Dim K As Integer Dim entry As String, item As String entry = EDCBA For K = Len(entry) To 1 Step -1 item = LCase(Mid(entry, K, 1) & K List1.AddItem item Next KEnd Sub運(yùn)行程序，單

29、擊窗體后在窗體的列表框中顯示的第四個(gè)列表項(xiàng)內(nèi)容是_D_。A.b4B.b2C.d4D.d211.設(shè)有以下循環(huán)結(jié)構(gòu)Do 循環(huán)體Loop While 則以下敘述中錯(cuò)誤的是（ A ）。A.若條件是一個(gè)為0的常數(shù)，則一次也不執(zhí)行循環(huán)體B.條件可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)C.循環(huán)體中可以使用Exit Do語句D.如果條件總是為True，則不停地執(zhí)行循環(huán)體12.設(shè)有如下程序段：x=2Fori=1To10Step2 x=x+iNext運(yùn)行以上程序后，x的值是（ B ）。A.26B.27C.38D.5713.設(shè)有以下循環(huán)結(jié)構(gòu)Do 循環(huán)體Loop Until 則以下敘述中錯(cuò)誤的是（ B ）。A. 條件可以是

30、關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)B. 若條件是一個(gè)為非0的常數(shù)，則一次也不執(zhí)行循環(huán)體C. 循環(huán)體中可以使用Exit Do語句D. 如果條件總是為False，則不停地執(zhí)行循環(huán)體14. 某人設(shè)計(jì)了如下程序用來計(jì)算并輸出7!（7的階乘） t = 0 For k = 7 To 2 Step -1 t = t * k NextPrint t執(zhí)行程序時(shí)，發(fā)現(xiàn)結(jié)果是錯(cuò)誤的，下面的修改方案中能夠得到正確結(jié)果的是（ A ）。A. 把t=0改為t=1B. 把Fork=7To2Step-1改為Fork=7To1Step-1C. 把Fork=7To2Step -1改為For k =1To7D. 把Next改為Nextk（

31、5）用戶交互函數(shù)：InputBox函數(shù)與MsgBox函數(shù)。P51函數(shù)返回值為用戶輸入的內(nèi)容（字符串）。MsgBox函數(shù) 返回一個(gè)值（數(shù)值，點(diǎn)擊按鈕不同，返回值不同）在文本框或?qū)υ捒蛑袚Q行的方法：1.在窗體上畫一個(gè)文本框，然后編寫如下事件過程：Private Sub Form_Click() x = InputBox(請輸入一個(gè)整數(shù))Print x + Text1.TextEnd Sub程序運(yùn)行時(shí)，在文本框中輸入456，然后單擊窗體，在輸入對話框中輸入123，單擊“確定”按鈕后，在窗體上顯示的內(nèi)容是：（D）A)123B)456C)579D)123456數(shù)組：數(shù)組命名及說明；數(shù)組類型、數(shù)組結(jié)構(gòu)；數(shù)

32、組元素；靜態(tài)數(shù)組與動(dòng)態(tài)數(shù)組；數(shù)組重定義。（6）數(shù)組函數(shù)：Array、Ubound、Lbound。1、數(shù)組的上、下界：Ubound()、Lbound()2、數(shù)組的大小的計(jì)算、數(shù)組的結(jié)構(gòu)：（二維數(shù)組：以列存放）3、Erase語句：重新初始化靜態(tài)數(shù)組的元素、或釋放動(dòng)態(tài)數(shù)組的存儲(chǔ)空間。4、For Each Next結(jié)構(gòu)語句5、用Array函數(shù)給數(shù)組賦值（只能給Variant類型的變量或動(dòng)態(tài)數(shù)組賦值）6、控件數(shù)組（load/Unload Object(Index)） 動(dòng)態(tài)數(shù)組 （DimRedim語句）數(shù)組分類： 靜態(tài)數(shù)組Option Base語句功能Preserve語句功能 ：在使用ReDim語句重新定

33、義數(shù)組時(shí)，如果需要保留動(dòng)態(tài)數(shù)組的內(nèi)容注意：在窗體和類模塊中，不能將定長字符串、符號(hào)常量、數(shù)組用Public來定義。1、在窗體模塊的通用聲明處用下面的語句聲明變量、數(shù)組、正確語句有（ BD ）個(gè)。A.Public a(5) as integer B.Public n as integerC.Public st as string*10D.Private b() as integer2、下列語句中的（ B ）語句可以用來正確地聲明一個(gè)動(dòng)態(tài)數(shù)組。A.Private A(n) as integerB.Dim A() as integerC.Dim A(,) as integerD.Dim a(1 to

34、 n)3、下列關(guān)于數(shù)組的說法中正確的是（ B ）。A.在過程中，不能用private語句定義數(shù)組B.利用Redim語句重新定維時(shí)，不得改變已經(jīng)說明過的數(shù)組的數(shù)據(jù)類型。C.數(shù)組重新定維后，原有的數(shù)據(jù)元素內(nèi)容將不予保留4、某過程的說明語句中，正確的數(shù)組說明語句是_C_。Const N As Integer=4Dim L As IntegerDim x(L) As IntegerDim A(K) As IntegerConst K As Integer=3Dim B(N) As IntegerDim Y(2000 To 2008) As IntegerA. B.C.D.二、讀程序題 P100-102

35、A分支、循環(huán)、數(shù)組1、運(yùn)行下面的程序，單擊窗體后在窗體上顯示的內(nèi)容是（ 3 3 ）；若將程序中的A語句和B語句的位置互換，再次執(zhí)行程序，單擊窗體后在窗體上顯示的內(nèi)容是（3 5）。Private Sub Form_Click() Dim x, y As Integer x = 1: y = 0 Do While x 3 y = y + x A語句 x = x + 1 B語句 Loop Print x, yEnd Sub2、執(zhí)行下面的程序，單擊窗體后在窗體上顯示的第一行結(jié)果是（Bb），第三行結(jié)果是（BbCcEe）。Private Sub Form_Click() Dim Mystr, Mystr1

36、, Mystr2 As String Mystr1 = B For i = 1 To 3 Mystr2 = LCase(Mystr1) Mystr1 = Mystr1 & Mystr2 Mystr = Mystr & Mystr1 Print Mystr Mystr1 = Chr(Asc(Mystr1) + i) Next iEnd Sub3執(zhí)行下面程序，單擊命令按鈕command1，則窗體上顯示的第一行是（C），第二行是（CW），第三行是（ 8）。Private Sub Command1_Click() Dim s As String, t As String Dim k As Intege

37、r, m As Integer s = BASICY k = 1: m = k For k = 1 To Len(s) Step m + 1 t = t & Chr(Asc(Mid(s, m, 1) + k) k = k + 1 If Mid(s, k, 1) = Y Then Exit For m = m + k Print t Next k Print mEnd Sub4執(zhí)行下面的程序，單擊窗體，則在窗體上顯示的第一行是（1 2 3），第二行是（4 5）。Private Sub Form_Click() Dim a(3, 3) As Integer, i As Integer Dim j

38、As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 2 + j Next j Next i For j = 1 To 3 For i = j To 3 Print a(j, i); Next i Print Next jEnd Sub6運(yùn)行下面的程序，單擊窗體后在窗體上顯示的內(nèi)容是_sum=14_；若將程序中的A語句與B語句的位置互換，再次執(zhí)行程序，單擊窗體后在窗體上顯示的內(nèi)容是_sum=10_。Option ExplicitPrivate Sub Form_Click() Dim sum As Integer, i As

39、Integer For i = 7 To 4 Step -1 Select Case i Case 4, 7 sum = sum + i A語句 Case 3, 5 sum = sum + 2 B語句 Case Else sum = sum + 1 End Select Next i Print sum=; sumEnd Sub7下面的事件過程執(zhí)行結(jié)束后，A（2）是_2_，A（3）是_3_，A（7）是_7_。Option ExplicitOption Base 1Private Sub Command1_Click() Dim A(10) As Integer Dim i As Integer

40、, j As Integer, k As Integer For i = 1 To 10 A(i) = 1 Next i i = 2 Do While i = 10 If A(i) = 1 Then j = i + i For k = j To 10 Step i A(k) = 0 Next k End If i = i + 1 Loop For k = 2 To 10 If A(k) = 1 Then A(k) = k Next kEnd Sub8.執(zhí)行下面的程序，在窗體上顯示的輸出結(jié)果的第二行是4_5_6_，第五行是_9_8_7第六行是_6_5_4。Option ExplicitPriva

41、te Sub form_click() Dim a(3, 3) As Integer, i As Integer, j As Integer Dim k As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j Print a(i, j); Next j Print Next i Print k = (i - 1) * 3 For i = 1 To 3 For j = 1 To 3 a(i, j) = k k = k - 1 Print a(i, j); Next j Print Next iEnd Sub9.下面程序

42、的功能是統(tǒng)計(jì)隨機(jī)產(chǎn)生的十個(gè)兩位正整數(shù)中偶數(shù)與奇數(shù)的個(gè)數(shù)，并求出偶數(shù)與奇數(shù)各自的總和。Option ExplicitPrivate Sub form_click() Dim x As Integer, s1 As Integer, s2 As Integer Dim n1 As Integer, n2 As Integer, i As Integer Randomize For i = 1 To 10 x = Int(Rnd * 90) + 10 Print x; If _ Then x mod 2=0 n2 = n2 + 1 s2 = s2 + x Else _ n1=n1+1 s1 = s1

43、 + x End If Next i Print Print 奇數(shù)個(gè)數(shù)=; n1, 偶數(shù)個(gè)數(shù)=; n2End Sub10. 執(zhí)行下面程序，當(dāng)單擊Command1按鈕時(shí)，列表框中顯示的第一行是_3_，第二行是_4_，第三行是_5_。Private Sub Command1_Click() Dim x As Integer, k As Integer x = 60 : k = 3 Do Until x A(j) temp = A(i) : A(i) = A(j) : _ A(j)=t End If Next Next For i = 1 To 10 Print A(i); If _ Then Pr

44、int i Mod 5=0 NextEndSub6過程設(shè)計(jì)。（1）Sub過程（事件Sub過程及通用Sub過程）的定義及調(diào)用。（2）Function過程的定義及調(diào)用。（3）過程調(diào)用時(shí)的數(shù)據(jù)傳遞：按值傳遞、按地址傳遞、簡單變量參數(shù)、數(shù)組參數(shù)、對象參數(shù)的傳遞。（4）靜態(tài)變量與靜態(tài)過程。（5）遞歸過程。（6）模塊級(jí)變量及全局變量的應(yīng)用。（7）多窗體工程的設(shè)計(jì)。Private設(shè)定所編制的過程只能在本模塊中被調(diào)用，Public設(shè)定該過程可以被其他模塊的程序調(diào)用。若一個(gè)VB應(yīng)用程序中包括兩個(gè)窗體F1、F2，則在F1中定義的公有過程可被F2模塊中的過程調(diào)用（Call F1.過程名）As類型用于說明函數(shù)返回值的

45、數(shù)據(jù)類型在函數(shù)體內(nèi)，函數(shù)名可以當(dāng)變量使用，函數(shù)的返回值就是通過對函數(shù)名的賦值語句來實(shí)現(xiàn)的，函數(shù)名 = 表達(dá)式Function過程的調(diào)用 函數(shù)過程名(參數(shù)列表)過程調(diào)用實(shí)際就是實(shí)參與形參相匹配的過程，稱為參數(shù)傳遞，即主調(diào)過程將實(shí)參的相關(guān)數(shù)據(jù)傳遞給被調(diào)過程中的形參，這一過程也稱做虛實(shí)結(jié)合。實(shí)參與形參數(shù)量相同。實(shí)參與形參按順序逐一對應(yīng)。實(shí)參和形參的類型對應(yīng)一致。參數(shù)傳遞方式1. 按值傳遞參數(shù)：定義被調(diào)過程時(shí)，使用ByVal關(guān)鍵字指出參數(shù)是按值來傳遞的。值的復(fù)制，單向傳遞雙向傳遞數(shù)組參數(shù)的傳遞1. 形參是普通變量，實(shí)參可以是普通變量或數(shù)組元素 2. 形參是帶括號(hào)的數(shù)組名，實(shí)參也必須是數(shù)組名 形參是數(shù)組

46、名時(shí)，只能采用按地址傳遞方式注意：按值傳遞時(shí)形參和實(shí)參的類型不一定要統(tǒng)一，VB自動(dòng)進(jìn)行數(shù)據(jù)的轉(zhuǎn)換。 Private Sub Command1_Click() Dim a As String a = 2 Call sub1(a) Print aEnd SubPrivate Sub sub1(ByVal b As Integer) b = b + 1 Print bEnd Sub按地址傳遞參數(shù) 當(dāng)實(shí)參是變量時(shí)：如果形參規(guī)定了類型，則實(shí)參必須跟形參保持一致當(dāng)實(shí)參是常量或表達(dá)式時(shí)：VB自動(dòng)用“按值傳遞”的方式進(jìn)行處理，如果數(shù)據(jù)類型不統(tǒng)一，VB自動(dòng)進(jìn)行轉(zhuǎn)換,將轉(zhuǎn)換后的值傳遞給形參。 Static變量靜態(tài)

47、變量當(dāng)某一過程被程序多次調(diào)用，并希望過程中的變量值具有連續(xù)性時(shí)，可以在過程中用關(guān)鍵字Static 定義變量，那么這個(gè)變量就是一個(gè)靜態(tài)變量。根據(jù)變量的作用域，變量分為過程級(jí)變量（即局部變量）、模塊變量和全局變量過程級(jí)變量Dim和Static語句定義，其作用范圍僅限于該過程模塊級(jí)變量Dim語句或Private語句定義，模塊中的所有過程都可使用。在程序的窗體模塊或標(biāo)準(zhǔn)模塊的通用聲明段聲明。全局變量Public語句定義，可以在所有模塊中使用標(biāo)準(zhǔn)模塊中的全局變量，直接使用窗體模塊中的全局變量，使用時(shí)變量名前加窗體名（如：frm1.j）同名變量變量名稱相同而作用域不同時(shí)，優(yōu)先訪問局限性大的變量例如：1、以

48、下有關(guān)變量作用域的說法中，錯(cuò)誤的是（ A ）只有在標(biāo)準(zhǔn)模塊中用public語句說明的變量才是全局變量在過程中不能使用public語句說明全局變量在標(biāo)準(zhǔn)模塊的通用聲明處可用private語句說明模塊級(jí)變量在窗體的通用聲明處可用private語句說明窗體級(jí)變量2、有一個(gè)名為frm1的窗體，在窗體通用聲明處和過程sub1中分別定義：public k as integer、dim k as integer如何在sub1中訪問全局變量k( A )frm1.kform.kform1.kk3、過程的形參為數(shù)組時(shí)，以下定義語句中正確的是（ A ）。A.private sub sort(a() as integ

49、er)B.private sub sort(a(10) as integer)C.private sub sort(a(,) as integer)D.private sub sort(byval a() as integer)4、若在應(yīng)用程序的標(biāo)準(zhǔn)模塊、窗體模塊和過程Sub1的說明部分，分別用 “Public G as integer”、 “Private G as integer”、 “Dim G as integer”語句說明了三個(gè)同名變量G。如果在過程Sub1中使用賦值語句“G=3596”,則該語句是給在（ B ）說明部分定義的變量G賦值。標(biāo)準(zhǔn)模塊過程Sub1窗體模塊標(biāo)準(zhǔn)模塊、窗體模塊

50、和過程Sub15、若希望在離開某過程后，還能保存該過程中局部變量的值，則應(yīng)使用（ D ）關(guān)鍵字在該過程中定義局部變量。DimPrivatePulbicStatic6.可以在_B_中，使用語句Public PubStr As String*20定義一個(gè)定長字符串。A.窗體模塊B.標(biāo)準(zhǔn)模塊C.類模塊D.三者均可7、在窗體模塊的通用聲明處用下面的語句聲明變量、數(shù)組，正確語句有（ BD ）個(gè)。Public A(5) as integerPublic N as integerPublic St as String*10Private b() As integer8.在窗體的通用聲明處有語句dim a()

51、 as single，以下在某事件過程中重定義此數(shù)組的一組正確的語句是（D）。A.redim a(3,3) : redim a(4,4) as integerB.redim a(3,3) : redim preserve a(4,4)C.redim a(3,3) : redim a(3,3) as integerD.redim a(3,3) : redim preserve a(3,4)9. 在窗體form1中用“public sub fun(x as integer,y as single)”定義過程fun，在窗體form2中定義了變量I為integer,j為single，若要在form2的

52、某事件過程中調(diào)用form1的fun過程，則下列語句中正確的有（BCD）個(gè)。call fun(I,j)call form1.fun(I,j)form1.fun (I),jform1.fun I+1,(j)A.1B.2C.3D.410.在窗體模塊的通用聲明處有如下語句，會(huì)產(chǎn)生錯(cuò)誤的語句是（D）。const a as integer=25public st as string*8redim b(3) as integerdim const x as integer=10A. B. C. D. 11.下列定義sub過程的語句中，正確的是（C）。private sub test(st as string

53、*8)private sub test(sarray() as string*5)private sub test(sarray() as string)private sub test(st as string)A.B.C.D.12.程序中的不同過程之間，不能通過_D_進(jìn)行數(shù)據(jù)傳遞。全局變量窗體或模塊級(jí)變量形參與實(shí)參結(jié)合靜態(tài)變量A. B. C.D.13有如下函數(shù)：Function fun(a As Integer, n As Integer) As Integer Dim m As Integer While a = n a = a - n m = m + 1 Wend fun = mEnd

54、 Function 該函數(shù)的返回值是（ D ）。A.a乘以n的乘積B.a加n的和C.a減n的差D.a除以n的商（不含小數(shù)部分）14. 有如下函數(shù)：Function f1(a As Integer, n As Integer) As Long Dim i As Integer f1 = 1 For i = 1 To n f1 = f1 * a Next iEnd Function 該函數(shù)的返回值是（ D ）。A. a乘以n的乘積B. a加n的和C. a減n的差D. a的n次方（即：an） 15. 以下敘述中正確的是（ B ）。A. 一個(gè)Sub過程至少要有一個(gè)Exit Sub語句B. 一個(gè)Sub過

55、程必須有一個(gè)End Sub 語句C. 可以在Sub過程中定義一個(gè) Function 過程，但不能定義Sub過程D. 調(diào)用一個(gè)Function過程可以獲得多個(gè)返回值例：閱讀程序，給出輸出結(jié)果：BASIC(1)字符串處理（數(shù)組參數(shù)）Option Base 1Private Sub Form_Click() Dim st As String, char As String Dim data() As String, i As Integer, j As Integer st = 10281018123811181038 For i = 1 To Len(st) If Mid(st, i, 1) 8

56、Then char = char & Mid(st, i, 1) Else j = j + 1 ReDim Preserve data(j) data(j) = char char = End If Next i Call conver(data, char) Print charEnd SubPrivate Sub conver(a() As String, ch As String)Dim i As Integer, j As IntegerDim n As Integer, dec As Integer For i = 1 To UBound(a) n = Len(a(i) For j

57、= 1 To n dec = dec + Val(Mid(a(i), j, 1) * 8 (n - j) Next j ch = ch & Chr(dec) dec = 0 Next iEnd Sub(2)static變量6 262 62- 2 98Private Sub Command1_Click() Dim n As Integer, i As Integer n = 2 For i = 9 To 1 Step -1 Call sub2(i, n) Print i, n Next iEnd SubPrivate Sub sub2(x As Integer, y As Integer) S

58、tatic n As Integer Dim i As Integer For i = 3 To 1 Step -1 n = n + x x = x - 1 Next i y = y + nEnd Sub (3) 遞歸運(yùn)行下面的程序，當(dāng)單擊窗體時(shí)，窗體上顯示的內(nèi)容的第一行是（ 23 ），第二行是（ 47 ）。Private Sub Form_Click() Test 2 常數(shù)做實(shí)參End SubPrivate Sub Test(x As Integer) x = x * 2 + 1 If x 6 Then Call Test(x) End If x = x * 2 + 1 Form1.Prin

59、t xEnd Sub(4)遞歸Private Sub test(x As Integer) Dim i As Integer If x 0 Then Call test(x - 1) For i = 1 To x Print x; Next i Print End IfEnd SubPrivate Sub Form_Click()test 3End Sub（5）同名變量Dim y As IntegerPrivate Sub Form_Click()Dim x As Integer,y as integerx=1 : y=1Print x1=;x, y1=;y TestPrint x4=;x,

60、y4=;yEnd SubPrivate Sub Test()Dim x As IntegerPrint x2=;x, y2=;yx=2 : y=3 Print x3=;x,y3=;yEnd Sub特例：1、運(yùn)行程序在窗體顯示的結(jié)果是：10 410 12Private Sub Form_Click()Dim a As Integer, b As Integera = 3: b = 4Call sub1(a, a) Print a, bCall sub1(b, b)Print a, bEnd SubPrivate Sub sub1(x As Integer, y As Integer)x = x