家二級（VB）機試模擬試卷第1套

一、選擇題（本題共40題，每題1.0分，共40分。）

1、下列說法中錯誤的是（）。

A、控件的可見性可設置為True或False

B、窗體或控件的標題可設置為任何文本

C、屬性窗口中的屬性可以按字母順序排列

D、如果不設置控件屬性的值，則系統自動設置為空值

標準答案：D

知識點解析：控件的可見性設置為True表示可見，設置為False表示不可見，故A

選項正確；窗體或控件的標題可以設置為任何文本型數據，故B選項正確；屬性

窗口中的屬性可以按“字母序”排列也可以按“分類序”排列，故C選項正確；如果不

設置控件屬性的值，則系統使用控件的默認值，而不是空值，故D選項錯誤，所

以答案為D選項.

2、如果需要線控件在窗體上成為一條與水平線呈45。的斜線，它的屬性值應滿足

的條件是（）。

A、X2-X1=Y1-Y2

B、X1=X2并且Y1二Y2

C、X1=Y1?EX2=Y2

D、Yl=Xl*Sin（3.14/4）并且Y2=X2*Sin（3.14/4）

標準答案：A

知識點解析：VB中窗體的坐標系使用的是絕對坐標系，如下圖所示，直線的兩個

x2—xl

端點的坐標分別為（xl,yl）和（x2,y2）,根據正切公式?^^口，得到yl-y2=x2-

xl,故A選項正確。

3、在窗體上畫兩個單選按鈕，名稱分別為Optionl、Option2,標題分別為“宋體”

和“黑體1個復選框（名稱為Chcckl,標題為“粗體”）和1個文本框（名稱為

Textl,Texl屬性為“改變文字字體"），窗體外觀如圖所示。程序運行后，要求，,宋

體”單選按鈕和“粗體”復選框被選中，則以下能夠實現上述操作的語句序列是()。

B、Option1.Value=TrueCheckl.Value=0

C、Option2.Value=FaUeCheckl.Value=2

D、OptionI.Valuc=TrccCheckl.Valuc=l

標準答案：D

知識點解析：單選按鈕控件的Value屬性值為True表示被選中，False表示未被選

中；復選框控件的Value屬性值為。表示未選中，1表示選中，2表示禁止。本題

中是單選按鈕和復選框都被選中，故D選項正確。

4、單擊一次命令按鈕，下列程序代碼的執行結果為()。PrivateSub

Commandl_Click()DimaAsIntcgc,bAsIntcge,cAsIntegera=2：b=3：c=4

PrintP2(c,b,a)EndSubPrivateFunctionPl(xASInteger,yAsInteger,zAsInteger)

Pl=2*x+y+3*zEndFunctionPrivateFunctionP2(xAsInteger,yAsInteger,zAs

Integer)P2=P1(z,x,y)+xEndFunction

A、21

B、19

C、17

D、34

標準答案：A

知識點解析?：本題考查函數調用以及參數傳遞。在命令按鈕單擊事件中，調用輸出

函數P2的執行結果，實參a、b、c傳遞給形參x、y、z,具體的值為2、3、4。在

P2函數過程中，調用PI,實參z、x、y傳遞給P1的實參x、y、z,具體的值為

4、2、3o

5.有兩個關系R，S如下:由關系R通過運算得到關系

S,則所使用的運算為()。

A、選擇

B、投影

C、插入

D、連接

標準答案：B

知識點解析：投影運算是指對于關系內的域指定可引入新的運算。本題中S是在

原有關系R的內部進行的，是由R中原有的那些域的列所組成的關系。所以選擇

Bo

6、VB中有3個鍵盤事件：KeyPress>KeyDown>KeyUp?若光標在Textl文本框

中，則每輸入一個字母()。

只觸發KeyUp事件

B、這3個事件都會觸發

C^只觸發KeyDown、KeyPress事件

D、不觸發其中任何一個事件

標準答案：B

知識點解析：當控件具有焦點時，如果按下一個字母鍵，將會依次觸發此控件的

KeyDown>KeyUp和K?yPress事件。

7、VB的數值型數據分為()兩種。

A、整數和長整數

B、整數和浮點數

C、單精度浮］數和雙精度浮點數

D、整數和貨幣數據類型

標準答案：B

知識點解析：考查數值型數據。VB中提供的數值類型包括整數、浮點數、貨幣類

型和字節型。一般來講貨幣類型為定點浮點數或者整數，而字節型為整數。

8、要求當鼠標在圖片框P1中移動時，立即在圖片框中顯示鼠標的位置坐標。下

面能正確實現上述功能的事件過程是()。

A、PrivateSubPI_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,

YAsSingle)PrintX,YEndSub

B、PrivateSubPl_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,

YAsSingle)Picture.PrintX,YEndSub

C>PrivateSubPl_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,

YAsSingle)PI.PrintX,YEndSub

D、PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAs

Single,YAsSingle)Pl.PrintX,YEndSub

標準答案：C

知識點解析：當鼠標在圖片框Pl中移動時，就會觸發P1的鼠標移動事件，即

PLMouseMove事件，故排除B選項；鼠標在圖片框P1中移動時，立即在圖片框

中顯示鼠標的位置坐標，說明是在圖片框上輸出數據，所以用P1的Print語句實

現。故C選項正確。

9、在窗體上有一個文本框Texll,Text屬性值為空，然后編寫如下事件過程：

PrivateSubTextl_Keyaress(KeyAsciiAsInteger)DimstrAsString,nAsInteger

str=UCase(Chr(KeyAscii))n=Len(str)Textl.Text=String(n,str)EndSub程序運行

后，如果在文本框中輸入字母"p”,則在文本框中顯示的內容為()。

A、PP

B、pP

C、PP

D、Pp

標準答案：B

知識點解析：本題考查字符串函數的應用。在Texll中按下字母“p”，則首先顯示

字符“P”，接下來觸發KeyPress事件，其中，UCase把字符“p”轉化為大寫字母，顯

示大寫字母“P”。

10、設a=2,b=3,c=4,d=5,下列表達式的值是()。a>bAndc<=dOr2*a>c

A^True

B、False

C、一1

D、1

標準答案:B

知識點解析：根據運算符的優先級順序，先計算算術運算符，結果是2>3And

4<=5Or4>4；再計算關系運算符,結果為FalseAndTrueOrFalse；And優先級高

于Or優先級,先計算And,再計算Or,最后結果是False。故B選項正確。

11、負責數據庫中查詢操作的數據庫語言是()。

A、數據定義語言

B、數據管理語言

C、數據操縱語言

D、數據捽制語言

標準答案：C

知識點解析：數據定義語言：負責數據的模式定義與數據的物理存取構建；數據操

縱語言：負責數據的操縱，包括查詢及增、刪、改等操作；數據控制語言：負責數

據完整性、安全性的定義與檢查以及并發控制、故障恢復等功能。

12、設工程中有2個窗體：Forml、Form2,Form1為啟動窗體。Form2中有菜

單，其結構如表。要求在程序運行時，在Forml的文本框Textl中輸入口令并按回

車鍵(回車鍵的ASCH碼為13)后，隱藏：Forml,顯示Form2。若口令為

“Teacher”，所有菜單都可見；否則看?不到“成績錄入”菜單項。為此，某人在Forml

菜單結構

標題名稱級別

成績管理mark1

成績查詢query2

窗體文件中編寫如下程序:成績錄入input2

PrivateSubTextll_KeyPress（KeyAsciiAsInteger）If.KeyAscii=13ThenIfText

1.Text="Teacher"ThenForm2.input.Visible=TrueElse

Form2.input.Visible=FalseEndIfEndIfForm1.HideForm2.ShowEndSub程序

運行時發現剛輸入口令時就隱藏了Forml,顯示了Form2,程序需要修改。下面修

改方案中正確的是（）。

A、把Forml中Textl文本框及相關程序放到Form2窗體中

B、把Forml.Hide、Form2.Show兩行移到2個EndIf之間

C、把IfKeyAscii=13Then改為IfKeyAscii="Teacher”Then

D、把2個Fonn2.input.Visible中的“Foim2.“刪去

標準答案：B

知識點解析：原程序的執行流程為，當按下一個鍵后，激活KeyPress事件，事件

中隱藏Forml和顯示From2的語句與判斷是否按了回車鍵的語句是順序的，即不

論按了什么鍵，都會執行隱藏Forml和顯示From2的語句。這兩句應該上移到第

二個Endlf前面，也就是放在判斷是否按了回車鍵的If語句塊中。因此B選項正

確。

13、窗體上有1個名稱為Command1的命令按鈕，事件過程如下：PrivateSub

Commandl_Click（）Dimx%,y%,z%x=InputBox（"請輸入第1個整數”）

y—InpuiBox（"請輸入第2個整數”）DoUntilx—yIfx>yThenx—x—y

Elsey=y—XLoopPrintxEndSub運行程贏單擊命令按鈕，并輸入2個

整數169和39,則在窗體上顯示的內容為（）。

A、11

B、13

C、23

D、39

標準答案：B

知識點解析：程序中D。循環比較輸入的兩個數的大小，把較大的數值減去較小的

數值后再與較小的值比較，直到兩個數值相等。程序中輸入169和39,則x=169

-39=130,130>yW130>39,因此x=130—39=91,如此循環x=91—39=52—39

=13,此時13>39為假，執行y=y—x=39—13=26,循環y=26—13=13,此時

x、y都為13,循環結束，因此窗體上顯不為I3o

14、以下關于圖片框控件的說法中，錯誤的是（）。

A、可以通過Print方法在圖片框中輸出文本

B、圖片框控件中的圖形可以在程序運行過程中被清除

C、圖片框控件中可以放置其他控件

D、用Stretch屬性可以芻動調整圖片框中圖形的大小

標準答案：D

知識點解析：可以通過Print方法在圖片框中輸出文件，圖片框中的圖形可以在程

序運行過程中通過載入空文件的方法清除，圖片框控件可以作為父控件，即可以放

置其他控件，Slreich屬，,生用來自動調整圖片框中圖形內容的大小。

15、公司中有多個部門和多名職員，每個職員只能屬于一個部門，一個部門可以有

多名職員。則實體部門和職員間的聯系是

A、1：1聯系

B、m：1聯系

C>1：m聯系

D>m：n聯系

標準答案：c

知識點.析：兩個實體集間的聯系實際上是實體集間的函數關系，主要有一對一聯

系（1:1）、一對多聯系（l:m）、多對一聯系（m:l）、多對多聯系（m:n）。對于

每一個實體部門，都有多名職員，則其對應的聯系為一對多聯系（l:m）,答案選

Co

16、如果要在窗體上使用2組單選按鈕，每組都可以有一個被選中，則應該做的是

（）。

A、把1組單選按鈕畫在窗體的左邊，另1組畫在右邊

B、先畫2組單選按鈕，再畫2個框架控件把2組單選按鈕分別框起來

C、先畫2個框架控件，再把2組單選按鈕分別畫在不同的框架中

D、因為1個窗體中只有1個單選按鈕可以被選中，所以需要使用2個窗體

標準答案：C

知識點解析：框架用于將窗體上的對象分組。使用兩個框架就可以設置兩組單選按

鈕，使每組都可以有一個被選中。必須先畫框架，然后在框架內畫出需要成為一組

的控件，才能使框架內的控件成為一個事件。如果在框架外畫一個控件，然后把它

拖到框架內，則該控件不是框架的一部分，移動框架時，該控件也不會跟著移動。

17、軟件生存周期中，解決軟件“怎么做”的階段是（）。

A、軟件設計

B、需求分析

C、軟件測試

D、可行性研究

標準答案：A

知識點解析：軟件設計是軟件工程的重要階段，是一個把軟件需求轉換為軟件表示

的過程。軟件設計的基本口標是用比較抽象概括的方式確定目標系統如何完成預定

的任務，即解決軟件“怎么做”的問題。故本題答案為A選項。

18、有如下語句序列：Dima,bAsIntegerPrintaPrintb執行以上語句序列，下列

敘述中錯誤的是（）o

A、輸出的a值是0

B、輸出的b值是。

C、a是變體類型變量

D、b是整型變量

標準答案：A

知識點解析：任何變量在被聲明后都會有一個初始值。一般情況下，數值型變量的

初始值為0:字符串變量的初始值為空字符串：變體型變量的初始值為空值，卻

Null值；布爾型的初始值為假，即False。本題中變量a定義時沒有聲明數據類

型，默認為Variant變體型變量，默認值是Null；交量b定義為整型變量，默認值

為0。所以輸出a為空白，b為0。故A選項錯誤。

19＞在visualBasic中，不能關閉的窗口是()。

A、窗體設計器窗口

B、工程窗口

C、屬性窗口

D、立即窗口

標準答案：B

知識點解析：在VisualBasic中，工程窗口不能關閉。

20、以下合法的VB變量名是3。

A^_x

B、2y

C、a#b

D、x_1_x

標準答案：D

知識點解析：VB中變量的命名規則為：①必須以字母或漢字開頭②由字母、漢

字、數字或下劃線組成③不能使用VB的保留字。-x不能以一下劃線開頭，不合

法；2y不能以數字開頭，不合法；a#b中有#,不合法；D選項符合命名規則，故

D選項正確。

21、在VisualBasic中定義變量時，變量的類型可以用類型說明符標識。下列類型

說明符表述錯誤的是()，

A、$表示字符串型

B、#表示單精度型

C、表示貨幣型

D、%表示整型

標準答案：B

知識點解析：在VisualBasic中，％表示整型；@表示貨幣型；#表示雙精度型；

$表示字符串型。故本題B選項表述有誤。本題選擇B選項。

22、設窗體上有一個Commandl命令按鈕，還有以下程序代碼：PrivateSub

Commandl_Click()StaticxAsIntegerx=x+1Callproc(x)Printx,EndSubPrivate

Subpioc(aAsInteger)SialicxAsIntegerx-x+aa-xEndSub程序運彳亍后，3次單

擊命令按鈕，則產生的輸出是

A、123

B、135

C、137

D、246

標準答案：C

知識點解析：注意Static關鍵字修飾的變量，在過程退出后，變量值保持不變，選

C）0

23、下列不能打開工具箱窗口的操作是（）。

A、執行“視圖”菜單中的“工具箱”命令

B、按AH+F8鍵

C、單擊工具欄上的“工具箱”按鈕

D、按Alt+V,然后按Alt+X鍵

標準答案：B

知識點解析：打開工具箱窗口的操作方法有：執行源視圖”菜單中的“工具箱”命令:

單擊工具欄上的“工具箱”按鈕；按Alt+V,然后按Alt+X鍵。

5J3

24、把數學表達式后表示為正確的VB表達式應該是（）。

A、（5x+3）/（2y—6）

B、\-6

C、（5*-3）;（2*\-6）

D、（x*5+3）/（y*2—6）

標準答案：D

知識點解析：VB數學表達式中的乘用*表示，除用/表示，表示一個整體的可加括

號（）。故D選項正確。

25、在用菜單編輯器設計菜單時，必須輸入的項是

A、標題

B、快捷鍵

C、索引

D、名稱

標準答案：D

知識點解析：數據區用來輸入或修改菜單項、設置屬性。其中：標題項：在提供的

文本輸入框中可以輸入菜單名或命令名，故A項不是必須輸入的。索引項：當幾

個菜單項使用相同的名禰時，把它們組成控件數組，可指定一個數字值來確定每一

個菜單項在控件數組中的位置，故C項不是必須輸入的。快捷鍵項：允許為每個

菜單項選擇快捷鍵（熱健），故B項不是必須輸入的。名稱項：在文本輸入框中

可以為菜單名及各菜單項輸入控制名。控制名是標識符（相當于控件的Name屬

性），僅用于訪問代碼中的菜單項，它不會在菜單中出現。菜單名和每個菜單項都

是一個控件，都要為其取一個控制名，故D項是必須輸入的。

26>編寫如下程序：PrivateSubCommandl_Click()DimmAsInteger,nAs

Integerm=1：n=0DoWhilem<20n=m+nm=3*m

+1LoopPrintm,nEndSub程序運行后，單擊命令按鈕Command1，輸

出結果為()o

A、4018

B、4019

C、2064

D、2164

標準答案：A

知識點解析：循環中各變量值變化如下：n=m+n=l+0=l,m=

3*m+l=3+l=4,4小于20繼續循環；n=m+n=4+l=5,m=3*m+l=12+l=13,13

小于20繼續循環；n=m+n=13+5=18,m=3*m+1=39+1=40,40不小于20,循

環結束。此時m=40,n=18o

27、有如卜程序代碼：PrivateSubForm_Click()Dima(10)AsInteger,b(5)As

IntegerFori=1To10a(i)=iNextiForj=1To5b(j)=j*20Nextja(5)=b(2)Print

a(5)EndSub運行程序，單擊窗體，輸出結果是

A、40

B、20

C、10

D、5

標準答案：A

知識點解析：a(10)數組下標從。到10,a(5)被賦值5；b(5)數組下標從0

至l」5,b(2)被賦值40,題目中要求a(5)=b(2),即b(2)賦值給a(5)。故正

確答案為選項A。

28、下列敘述中正確的是

A、所謂算法就是計算方法

B、程序可以作為算法的一種描述方法

C、算法設計只需考慮得到計算結果

D、算法設計可以忽略算法的運算時間

標準答案：B

知識點解析：算法是指對解題方案的準確而完整的描述，算法不等于數學上的計算

方法，也不等于程序,A選項錯誤。算法設計需要考慮可行性、確定性、有窮性與

足夠的情報，不能只考慮計算結果，C選項錯誤。算法設計有窮性是指操作步驟有

限且能在有限時間內完成，如果一個算法執行耗費的時間太長，即使最終得出了正

確結果，也是沒有意義的，D選項錯誤。算法在實現時需要用具體的程序設計語言

描述，所以程序可以作為算法的一種描述方法，B選項正確。

29、一個棧的初始狀態為空。現將兀素1、2、3、4、5、A、B、C、D、E依次入

棧，然后再依次出棧，則元素出棧的順序是()。

A、12345ABCDE

B、EDCBA54321

C、ABCDE12345

D、54321EDCBA

標準答案：B

知識點解析：棧是先進后出的原則組織數據，所以入棧最早的最后出棧，所以選擇

Bo

30、在窗體上畫一個名稱為Combol的組合框，名稱為Textl的文本框，以及名稱

為Command1的命令按鈕，如圖所示。

運行程序，單擊命令按鈕，將文本框中被選中的文本添加到組合框中，若文本框中

沒有選中的文木，則將文本框中的文本全部添加到組合框中。命令按鈕的事件過程

如卜：PrivateSubCommandl_Click()IfTextl.SeiLengthoOThen

ElseCombo1.AdditemTextlEndIfEndSub程序中橫線處應該填寫的

是()。

A、ComboI.AddItemTex11.Tex1

B、Combo1.AdditemText1.SelStart

C、Combo1.AddItemTextl.SelText

D、ComboI.AddItemTextl.SelLength

標準答案：C

知識點解析：根據題意可知，橫線處應該是將文本框中選中文本添加到組合框中。

文本框Text屬性返回整個文本框中的文本，故A選項錯誤；SelSlarl屬性返回選中

文本的起始位置，故B選項錯誤；SelLength屬性返回選中文本的長度，故D選項

錯誤；SclText屬性返回選中的文本，故C選項正確。

31、在軟件設計中不使用的工具是()。

A、系統結構圖

B、PAD圖

C、數據流圖(DFD圖)

D、程序流程圖

標準答案：C

知識點解析：系統結構圖是對軟件系統結構的總體設計的圖形顯示。在需求分析階

段，已經從系統開發的角度出發，把系統按功能逐次分割成層次結構，是在概要設

計階段用到的。PAD圖是在詳細設計階段用到的。程序流程圖是對程序流程的圖

形表示，在詳細設計過程中用到。數據流圖是結構化分析方法中使用的工具，它以

圖形的方式描繪數據在系統中流動和處理的過程，由于它只反映系統必須完成的邏

輯功能，所以它是一種功能模型，是在可行性研究階段用到的而非軟件設計時用

到，所以選擇C。

32、編寫如下程序：OptionBase1PrivateSubCommandl_Click()Dimaa

=Array(l,2,3,4)s=0：j=lFori=4To1Step—1s=s+

a⑴*jj=j*10NexliPrimsEndSub程序運行后，單擊命令按鈕

Command1,輸出結果為（）。

A、110

B、123

C、1234

D、4321

標準答案：C

知識點解析：變量a初始化為含4個元素的數組，由于有OptionBase1語句，因

此數組下標下界為1,元素值a（l）?a（4）依次為1、2、3、4。For循環中從第4個

元素開始對4個元素值運算后累加，運算方法是第1個元素值乘10的0次方，第

2個元素值乘10的1次方，第3個元素值乘10的2次方，第4個元素值乘10的3

次方。即4+30+200+1000=1234。

33、以下不合法的VB變量名是

A、filename

B、read

c、_y

D、e5

標準答案：C

知識點解析：變量的命名規則是：①必須以字母開頭，由字母、漢字、數字或下

劃線組成；②不能在變量名中出現句點空格或者嵌入字符，例如！、@、#、

$、％、&等；③長度不得超過255個字符；④不能使用VB的關鍵字，關鍵字是

語言的組成部分，包括預定義語句（例如If、For等）、函數（Abs、Sqr等）和操作符

（Or、Mod等）。

34、設窗體名稱為frmTest,為了在程序代碼中將窗體的標題改為“等級考試”，其

代碼應該是

A、介mTesi.Caption="等級考試"

B、Fonnl.Caption="等級考試"

C、frmTest.Title="等級考試”

D、Form1.Title="等級考試”

標準答案：A

知識點解析：窗體的標題設置方法：窗體名Caplion二新設置的標題名，由題意知，

選項A正確。

35、窗體上有一個名稱為Sh叩el并顯示為圓的形狀控件（其Width和Height屬性

值相等），一個名稱為Timeri的計時器，并有下面程序代碼：DimrAsSingle,

flagAsIntegerPrivateSubForm_Load（）r=Shape1.WidthTimer1.Enabled=True

Timerl.Interval=500EndSubPrivateSubTimerl_Timer（）Ifflag=0Then

Shape1.Width=Shape1.Width-10IfShape1.Width<=100Thenflag=1EndIfElse

Shape1.Width=Shape1.Width+10IfShape1.Width>=rThenflag=0EndIfEndIf

EndSub運行程序后產生的結果是

A、圓逐漸縮小，再逐漸增大，然后再逐漸縮小，依此往復

B、圓一直在縮小

C、圓每隔0.5秒向右移動一次

D、圓每隔I秒向下移動一次

標準答案：A

知識點解析：Form_Load過程中設定timer事件定時觸發；在Timerl_Timcr過程

中，圓圈先變小后變大，然后退出。下一次timer事件觸發時繼續這個過程。因

此，選A)。

36、下列關于棧的敘述中，正確的是

A、棧底元素一定是最后入棧的元素

B、棧頂元素一定是最先入棧的元素

C、棧操作遵循先進后出的原則

D、以上說法均錯誤

標準答案：C

知識點解析：棧頂元素總是后被插入的元素，從而也是最先被刪除的元素；棧底元

素總是最先被插入的元素，從而也是最后才能被刪除的元素。棧的修改是按后進先

出的原則進行的。因此，棧稱為先進后出表，或“后進先出”表，所以選擇C。

37、設有如下一段程序：PrivateSubCommandl_Click()StaticaAsVariant

a=ArrayC'one","two,1,''three",“four"，"five")Printa(3)EndSub針對上述

事件過程，以下敘述中正確的是()。

A、變量聲明語句有錯，應改為Statica⑸AsVariant

B、變量聲明語句有錯，應改為Statica

C、可以正常運行，在窗體上顯示three

D、可以正常運行，在窗體上顯示four

標準答案：D

知識點解析：題目中變量a被定義為Variant類型,Variant是一種特殊的數據類

型，除了定長String數據及用戶定義類型外，可以包含任何種類的數據。變量a被

賦值為字符串數組，數組默認下標從0開始，因此元素a(3)的值為“four”。

38、有三個關系R、S和T如下：由關系R和S通過運算得到關系T,則所使用的

nT

ABC

ml□□rqm13

運算為()°LTJ

A、笛卡爾積

B、交

C、并

D、自然連接

標準答案：D

知識點解析：自然連接是一種特殊的等值連接，它要求兩個關系中進行比較的分量

必須是相同的屬性組，并且在結果中把重復的屬性列去掉，所以根據T關系中的

有序組可知R與S進行的是自然連接操作。

39、在窗體上畫一個名禰為Textl的文本框和一個名稱為Commandl的命令按鈕，

然后編寫如下事件過程：PrivateSubCommandl_Click()DimiAsInteger,n

AsIntegerFori=0To50i=i+3n=n+1

Ifi>10ThenExitForNextTextl.Text=Str(n)EndSub程序運行后，單擊

命令按鈕，在文本框中顯示的值是()。

A、2

B、3

C、4

D、5

標準答案：B

知識點解析?：程序中For循環的結束有兩種情況，一種是循環完指定的次數，一種

是達到一定的條件后直接退出循環。由于在循環體中循環變量i的值被修改：i=i

+3,因此，每次循環開始時i的取值為0,4,8,i為8時執行i=i+3=ll,n=n+l

=3,這時i的值大于10,退出For循環，因此For循環執行了3次，即n的值為

3。所以在文本框中會顯示3。

40、有下面程序代碼：PrirateSubCommand1_Click()DimaAsInteger,ba=2h=3

Printfun(a,b)；a；bEndSubPrivateFunctionfun(ByValxAsInteger,Y)AsInteger

y=x*yx=yfun=xEndFunotion執行Commandl_Click過程后的輸出結果是()。

A、623

B、666

C、622

D、626

標準答案：D

知識點解析：本題考查參數傳送相關知識，在程序中定義了一個Function函數過

程fun,并設置形參的傳遞方式為ByVai(傳值調用)，形參y的傳遞方式為默認傳

遞方式ByRef(傳引用調用)：在commandl_click事件過程市，使用print方法輸出

三個值，分別為fun函數的返回值，變量a和變量b,由于實參a值給形參x,傳

遞的方式為ByVai,fun函數中對x的任何改變都不會影響實參a,所以在

commandl_Click過程中變量a的值不會改變：實參b傳遞地址給形參y,fun函數

中對y的任何改變都會影響實參b,在Fun函數中執行y=x*y語句后，y的值為6,

執行x=y后，x的值為6,并且通過語句fun二x,將x的值作為函數的返回值返回

到過程commanal_click中，所以最終在過程commandi_click中輸出的單個值分別

為：6,2,6oD逐項正確。本題選擇D選項。

二、基本操作題(本題共2題，每題7.0分，共2分0)

請根據以下各小題的要求設計VisualBasic應用程序（包括界面和代碼）。

41、在名稱為Forml的窗體上畫一個名稱為CD1的通用對話框，通過屬性窗口設

置CD1的初始路徑為C：\,默認的文件名為None,標題為“保存等級考試”，如

傅春在Bc：）Ta2d￡3。

3

UI

K

it2

5。一—wc

Qimuj

???c

3”gFrfiltm

Jgwe?u

JCBH

53i

nc知UTDBWS

^38Cren

ciilttBMr?

LJU2

圖2所示。圖2注意:

存盤時必須存放在考生文件夾下，工程文件名為Sjll.vbp,窗體文件名為

sjtl.frm。

標準答案：［操作步驟］步驟1：新建一個“標準。EXE”工程，選擇［T程］一［部件］命

令，在彈出的“部件”對話框的列表中選中“MicrosoftCommonDiMogControl.0"

項目，單擊“確定”按鈕。步驟2：在窗體Forml上畫一個通用對話框，其相關屬

________-12?7_____________

?性設?伍

NameCDl

DialogTille保存警級考試

通用對話刖

FileNameNone

性設置如表12—7所示。----------InitDir——-----步驟3：編寫

Fomil的Iroad事件，加入下面的代碼：CDl.ShowSave步驟4：按要求將文件保

存至考生文件夾中。

知識點解析：通用對話框的InitDir屬性用于為打開或另存為對話指定初始的目

錄，如果此屬性沒有指定，則使用當前目錄。通用對話框的初始路徑由InitDir屬

性設置，默認文件名由FileName屬性設置，標題由DialogTille屬性設置。

42、在名稱為Forml的窗體上設計一個菜單。要求在窗體上添加名為menu。，標

題為“菜單命令”的主菜單，再添加兩個名稱分別為“mcnul"、“mcnu2”，標題分別

為“不可用菜單項”、“上一菜單項可用”的子菜單，并且使程序運行時，menul子菜

單不可用，menu2子菜單已經選中（運行時的效果如圖3所示）。

圖3再編寫適當的事件過程，使得程序運行時，單擊“上一

菜單項可用”，則“不可用菜單項”變為黑色（可用）。要求程序中不得使用變量，且只

有一條語句。注意：存盤時必須存放在考生文件夾卜，工程文件名為sit2.vbp,

窗體文件名為sit2.Frir.o

標準答案：［操作步驟］步驟1：新建一個“標準EXE”工程，打開VB菜單設計器設

計菜單，各菜單項及屬性設置如表12—8所示。

?12-8

標題名稱是否育效內?符號

菜單命令menuO有效0

不可用菜單項menu!無效1

上菜單項可用menu2有效1一步驟2：打開代碼編輯窗口，編

寫“上一菜單項可用“命令的Click事件過程。參考代碼：PrivateSubmenu2_Click（）

menu1.Enabled=TrueEndSub步驟3：按要求將文件保存至考生文件夾中。

知識點解析：①VB中的菜單是通過菜單編輯器來設計的。菜單編輯器中的基本設

置項有：“標題”項，對應出現在菜單中的顯示內容；“名稱”項，系統識別菜單項的

唯一關鍵字（不能重復）；“索引”項，用于設置菜單數組中各元素的索引號；“快捷

鍵''項，是一個下拉列表框，用于設置菜單項的快捷鍵；“幫助上下文”項，設置當

鼠標移動到某菜單項上校VF1＞鍵時顯示的幫助信息在幫助文件中的對應位置；

Visible（可見）項，用于設置控件或菜單項在程序運行時是否可見，值為True表示可

見，值為False表示不可見；Enabled（有效）項，用于設置控件或菜單項在程序運行

時是否有效，值為True時表示有效，值為False時表示無效（顯示為灰色）。通過編

輯按鈕區的七個按鈕可對菜單進行添加、插入、刪除、提升（設置為上一級菜單）、

縮進（設置為下一級菜單）、上移、下移等操作。②文本框的Texl屬性用于設置或

返回其顯示的文本內容。本題原程序設計思路：在“上一菜單項可用”命令的單擊

事件過程中，通過語句設置“不可用菜單項''命令的Enabled屬性值為True。

三、簡單應用題（本題共I題，每題1.0分，共1分C）

43、（1）在考生文件夾下有一個工程文件sjt3.vbp,窗體上已經有兩個文件框，名

稱分別為Texll、Text2；還有一個命令按鈕，名稱為C1,標題為“確定'請添加

兩個單選按鈕，名稱分別為Opl、Op2,標題分別為“男生”、“女生”，再添加兩個

復選框，名稱分別為Chi、Ch2,標題分別為“體育”、“音樂”。請編寫適當的事件

過程，使得程序在運行時，單擊“確定”按鈕后實現下面的操作：①根據選中的單

選按鈕，在Textl中顯示“我是男生”或“我是女生”。②根據選中的復選框，在

Text2中顯示“我的愛好是音樂”或“我的愛好是體育”或“我的愛好是體育音樂”。如

圖所示。注意：不得修改已經給出的程

序和已有控件的屬性。在結束程序運行之前，必須選中一個單選按鈕和軍少一個復

選框，井單擊“確定”按鈕。必須使用窗體右上角的關閉按鈕結束程序，否則無成

績。（2）在考生文件夾下有一個工程文件sjt4.vbpo窗體上有一個名稱為Timerl

的計時器，一個名稱為Listl的列表框和一個名稱為Labell的標簽，如圖所示，請

通過屬性窗口向列表框添加四個項目，分別是：“第一項”、“第二項”、"第三項”、

“第四項”。程序運行后，將計時器的時間間隔設置為1秒鐘，即每一秒鐘從列表框

中取出一個項目顯示在Labell的標簽中，首先顯示“第一項”，然后，依次顯示“第

二項”、“第三項”、“第四項”，如此循環。在給出的窗體文件中已經有了全部控件

和程序，但不完整，請添加Lisll中的項目，去掉程序中的注釋符，把程序中的?改

為正確的內容。注意：考生不得修改工程中己經存在的內容和控件屬性，最后將

修改后的文件按原文件名存盤。L-----------4-----------------

標準答案：（1）步驟1:打開本題工程文件，并設置控件的屬性。程序中用到的控件

表1

控件單選按鈕1單選按鈕2復選框1復選框2

屬性NameCaptionNameCaptionNameCaptionNameCaplion

設置值Opl男生0p2女生Chi體育Ch2音樂

及屬性見表lo步驟2：

分析并編寫程序代碼。程序提供代碼PrivateSubForm_Unload(CancclAsInteger)

OpenApp.Path&"\oui3.txt"ForOutputAs#1Print#1,Opl.Value,

Op2.Value,Textl.TextPrint#1,Chi.Value,Ch2.Value,Text2.TextClose

#1EndSub程序結束參考答案PrivateSubCl_Click()IfCh2.ValueAnd

Chi.丫@1配11^11丁。*12="我的愛好是體育音樂”￡尿汗(2112.ValHeAnd

Chi.Value=Fal8eThenText2二"我的愛好是音樂"EkelfChl.ValueAnd

Ch2.Valuc=FalseThenTcxt2="我的愛好是體育“ElseText2=',nEndIfIfOpl.Value

ThenTextl="我是男生"El$eIfOp2.ValueThenTextl="我是女生"Else。Textl='"'

EndIfEndSub步驟3：調試并運行程序，關閉程序后按題目要求存盤。(2)步驟

1：打開本題工程文件，通過屬性窗口向列表框添加四個項目，分別是：“第一

項”、“第二項”、“第三項”、“第四項”。步驟2：:分析并編寫程序代碼。程序提供

代碼DimiAsIntegerPrivateSubForm_Load()'i=?Timed.Interval?

Timerl.Enabled=TrueEndSubPrivateSubTimedTimer。'Label1.Caption=?Ifi=3

Theni=0Elsei=i+lEndIfEndSub程序結束參考答案第1個?處填入：0第2個?處

填入：1000第3個?處填入：Listl.List⑴步驟3：調試并運行程序，關閉程序后

按題目要求存盤。

知識點解析：（1）容器控件（如窗體和框架）中的單選按鈕組（OplionBullon）常用于提供

多個選項間的唯一性選擇，其Value屬性用于設置或返回每個單選按鈕的選中狀

態：值為False表示未選中，值為True表示選中。復選框（CheckBox）組常用于提供

多個選項間的多重選擇，Value屬性值決定每個復選框的選中狀態：0—

Unchecked為未選中，1―Checked為選中，2—Grayed為禁用。根據題意，可用

一個If...Then...EndIf語句對Opl和Op2的選中情況進行處理，在Textl中顯示對

應信息；用兩個IJ.Then語句依次對兩個復選框的選中情況進行處理，并在Tex12

中顯示對應信息。（2）列表框List屬性禽有“第一項”，第二項”，“第三項”，“第四

項”四個值,Timeri的Interval屬性設置為1000,表示變化的時間間隔為1s,并將

Timerl的Enabled屬性設:置.為True。通過【f語句和變量i的判斷實現每隔1秒鐘依

次顯示“第一項”、“第二項”、“第三項”、“第四項”，如此循環。

四、綜合應用題（本題共1題，每題1?0分，共/分0）

44、在考生目錄下有一個T程文件力工vbp?窗體左邊的圖片框名稱為Picmnd.

框中還有六個小圖片框，它們是一個數組，名稱為Pic,在窗體右邊從上到下有三

個顯示不同物品的圖片框，名稱分別為Picture2、Picture3、Picture%還有一個文

本框Textl以及四個標簽，如圖3.50（a）所示。程序運行時，可以用鼠標拖拽的方

法把右邊的物品放到左邊的圖片框中（右邊的物品不動），同時把該物品的價格素加

到Texll中，如圖3.50（b）所示。最多可放六個物品。實現此功能的方法是：程序

剛運行時，Picture1中的圖片框數組不顯示，當拖拽一次物品時，就顯示一個圖片

框數組元素，并在該圖片框數組元素中加載相應的圖片，產生物品被放入的效果。

文件中已經給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程

序中的，？，改為正確的內容。注意：不得修改已經存在的內容和控件屬性，最后把

修改后的文件按原文件名存盤。

(a)(b)

圖3?5O

標準答案：步驟1：打開考生文件夾下的工程文件sjt5.vbpo步驟2：在代碼編輯

窗口中，去掉程序中的注釋符二將問號“?”改為正確的內容。參考代碼：Select

CaseSource.NameFork=0To5IfPic(k).Visible=FalseThenPic(k).Visiblc=True

Textl=Textl+a步驟3：按要求將文件保存至考生文件夾中。

知識點解析：控件的DragDrop事件有三個主要參數，其中，“Source”參數是一個

對象變量，類型為“Control”，包含被拖動對象的屬性，“X”和“Y”參數是放下對象

時鼠標光標的位置。本題中為了判斷拖動的是哪一個圖片，因此需要判斷Source

參數的Name屬性。當拖動的圖片確定，則在控件數組中顯示的圖片以及需要累加

的價格也隨之確定。由于控件數組共有6個數組元素，因此應該在拖放事件中進

行一個6次的循環,在每次循環中判斷數組元素是否已經被顯示出來，如果沒有.被

顯示出來則令其Visible屬性為True,然后退出循環，這樣可以實現序號由小到大

每次顯示一個圖片的效果。

國家二級(VB)機試模擬試卷第2套

一、選擇題(本題共40題，每題1.0分，共4。分。)

1、下列工具中，不屬于結構化分析的常用工具的是()。

A、數據流圖

B、數據字典

C、判定樹

D、N-S圖

標準答案：D

知識點解析：結構化分析常用工具有數據流圖、數據字典、判定樹和判定表。

2、窗體上有一個如右圖所示的圖形控件，控件中顯示了如圖所示的文字，可以判

斷這個圖形控件()。

A、是圖像框(Image)

B、是圖片框(PictureBox)

C、是形狀控件

D、不是上述3種控件中的一種

標準答案：B

知識點解析：圖片框是“容器”控件，可以作為父控件，而圖像框不能。圖片框可以

通過Print方法接收文本，并可接收由像素組成的圖形，而圖像框不能接收Print方

法輸入的信息，也不能用繪圖方法在圖像框上繪制圖形。而形狀控件3D效果的樣

式，根據題目圖示顯然不是形狀控件。因此這個圖形控件是圖片框。

3、設有如下通用過程：PublicFunctionFun(xStrAsString)AsStringDimtStr

AsString,strLAsIntegertStr=""strL=Len(xStr)i=lDo

Whilei<=strL/2tStr=tStr&Mid(xStr,i,1)&Mid(xStr,strL—i-F1,

1)i=i+1LoopFun=tStrEndFunction在窗體上畫一個名稱為

Command1的命令按鈕。然后編寫如下的事件過程：PrivateSub

Commandl_Click()DimS1AsStringSI="abcdefPrint

UCase(卜un(Sl))EndSub程序運行后，單擊命令按鈕，輸出結果是()。

A、ABCDEF

abcdef

C、AFBECD

D、DEFABC

標準答案：C

知識點解析：通用過程Fun的主要功能在于tStr=tStr&Mid(xStr,i,1)&

Mid(xStr,strL-i+l,1)這一句。其中Mid(xStr,i,1)的意思是從字符串的左

邊開始依次取一個字符，Mid(xStr,strL-i+l,1)的意思是從串的右邊開始依次

取一個字符。整個這條一語句的用意就是從一個字符串兩端依次各取一對字符連成

一個字符串。因此當Fun過程的參數為“abcdef1'時，返回值為“afbecd”，

Ucase("afbecd”)結果為"AFBECD"，這就是輸出結果。

4、窗體上有一個圖片控件和一個按鈕控件，下列程序執行的結果是()。Private

SubCommandl_Click()Picture1.Picture=LoadPicture(4tc：\picture,jpg”)

Picture).CisPicture1.Printupicture,'EndSub

A、窗體無顯示，圖片框顯示圖片和文字picture

B、窗體上出現picture文本，圖片框無顯示

C、窗體卜出現picture文本,圖片框顯示圖片picture,jpg

D、窗體無顯示，圖片框只顯示picture文字

標準答案：A

知識點解析：本題考查圖片框屬性。單擊命令按鈕時，圖片框首先裝入圖片，然后

圖片框清空(注意，該方法只能清空在圖片框中輸出的文本信息和繪圖信息，而不

能清除有LoadPicture函數裝載的圖片)，最后圖片框顯示圖片和“picture”文字。全

部操作都是在圖片框中進行的，窗體上沒有任何顯示。

5、假定通過復制、粘貼操作建立了一個命令按鈕數組Command],以下說法中錯

誤的是()。

A、數組中每個命令按鈕的名稱(Name屬性)均為Command1

B、若未做修改，數組中每個命令按鈕的大小都一樣

C、數組中各個命令按鈕使用同一個Click事件過程

D、數組中每個命令按鈕的Index屬性值都相同

標準答案：D

知識點解析：命令按鈕控件數組中各控件用相同的名稱和同一Click事件過程，大

小也一樣，但是為了區分它們，各控件的Index屬性值是不同的。故D選項錯誤。

6、當窗體大小改變時，要使其中的控件也按比例發生變化，應使用窗體的()。

A、AutoSize屬性

B、Resize事件

C、AutoRedraw屬性

D、Stretch屬性

標準答案：B

知識點解析：本題考查竊體的屬性和事件。窗體沒有Stretch和AutoSize屬性，窗

體的AuloRedraw是在窗體上畫圖時受到影響的屬性。如果窗體的大小發生改變，

要使窗體上各種控件大小也要隨之進行改變，應該編寫Resize事件。

7^下列程序的執行結果為O。n=0j=lDoUntiln>2n=n+l：j=j+n*(n+l)Loop

Printn；j

A、01

B、37

C、321

D、313

標準答案：C

知識點解析：本題考查循環程序的分析。在DoUmil循環中如果n小于等于2,那

么把n*(n+l