程序設計年月真題

07759VisualBasic20177

1、【單選題】下面不合法的常量是（）

Basic

“Basic”

A:

3.14

B:

96

C:

答D:案：A

2、【單選題】在visualBasic中，下列函數中值只為1,O，-l的是（）

INT(X)

ABS(X)

A:

SQR(X)

B:

SGN(X)

C:

答D:案：D

3、【單選題】表達式反Len(Trim(“1234”))的結果是（）

4

1234

A:

12

B:

34

C:

答D:案：A

4、【單選題】Cls方法的作用是（）

清除電腦屏幕顯示的內容

清除當前窗體的全部內容

A:

清除Print方法顯示的內容

B:

清除當前窗體的控件

C:

答D:案：C

解析：Cls方法用于清除窗體上用Print方法打印的字符或數值。例如Form1.Cls將當前

窗體清屏。Show方法用于顯示窗體。

5、【單選題】把文本框作為密碼輸入框并顯示*號，需要設置（）屬性。

Text

Name

A:

Password

B:

Enabled

C:

答D:案：C

解析：要將文本框作為密碼輸入框并顯示星號，需要將其`PasswordChar`屬性設置為

`*`或其他字符。`PasswordChar`屬性指定了在文本框中輸入字符時顯示的字符，通常用

于隱藏密碼等敏感信息。

6、【單選題】可以用來顯示圖像的控件是（）

Picture

Text

A:

Frame

B:

Label

C:

答D:案：A

7、【單選題】當光標從Textl進入到Text2時，Textl會發生（）事件。

Lost

LostFocus

A:

Got

B:

GotFocus

C:

答D:案：B

解析：當光標從`Text1`進入到`Text2`時，`Text1`會發生`LostFocus`事件。

`LostFocus`事件是`TextBox`控件的一個事件，當控件失去焦點時觸發。在Visual

Basic中，當用戶從一個控件移動到另一個控件時，會觸發一系列的事件，包括

`LostFocus`事件和`GotFocus`事件。當用戶從`Text1`控件移動到`Text2`控件

時，`Text1`控件會先觸發`LostFocus`事件，然后`Text2`控件會觸發`GotFocus`

事件。

8、【單選題】當需要在同一個窗體上建立幾組相互獨立的單選按鈕時，可以使用（）控件來

分組。

Label

Image

A:

Text

B:

Frame

C:

D:

答案：D

解析：當需要在同一個窗體中建立幾組相互獨立的單選按鈕時,就需要用框架(Frame)將每

一組單選按鈕框起來,這樣在一個框架內的單選按鈕為一組。

9、【單選題】數組定義語句DimData(2，-lTO3）共有（）個元素。

6

9

A:

12

B:

15

C:

答D:案：D

10、【單選題】在過程定義Subtryout(ByValxAsInteger）中，參數x的傳遞方式為

（）

傳地址

傳值

A:

傳參數

B:

引用

C:

答D:案：B

解析：在過程定義`Subtryout(ByValxAsInteger)`中，參數`x`的傳遞方式為

“傳值”（ByVal）。在VisualBasic中，參數的傳遞方式有兩種：傳值（ByVal）和傳

引用（ByRef）。當參數的傳遞方式為“傳值”時，函數或過程會接收參數的一個副本，

而不是參數本身。這意味著在函數或過程中修改參數的值不會影響到原始參數的值。在上

面的代碼中，`ByVal`關鍵字指定了參數`x`的傳遞方式為“傳值”。這意味著在調用

`tryout`過程時，會將參數`x`的值復制到一個新的變量中，并將該變量傳遞給

`tryout`過程。在`tryout`過程中修改參數`x`的值不會影響到原始參數的值。

11、【單選題】設置命令按鈕的標題文字時，應改變的屬性是（）

Text

Name

A:

Caption

B:

Value

C:

答D:案：C

解析：設置命令按鈕的標題文字時，應該改變的屬性是`Caption`。`Caption`屬性指定

了命令按鈕上顯示的文本，通常用于顯示按鈕的標簽或說明。

12、【單選題】要顯示一個“另存為”文件對話框，下列語句正確的是（）

CommonDialog1.ShowOpen

CommonDialogl.ShowSave

A:

CommonDialogl.ShowSaveAs

B:

CommonDiogl.GetFile

C:

答D:案：B

13、【單選題】裝載并顯示一個新的窗體，使用（）方法。

Load

Show

A:

Display

B:

Hide

C:

答D:案：B

解析：當需要顯示窗體時,則使用窗體的Show方法。

14、【單選題】要打開一個文件文本并讀人其內容，應該使用（）語句。

0penFileNameforInputAs#1

0penFileNameforOutputAs#1

A:

0penFileNameforAppendAs#1

B:

0penFileNameforWriteAs#l

C:

答D:案：A

15、【單選題】SelectCase語句屬于（）

順序結構

分支結構

A:

循環結構

B:

隨機結構

C:

答D:案：B

解析：SelectCase是計算機語言,是VB6.0條件控制語句之一,根據給定的條件判斷程序

的流程走向,屬于選擇結構,選擇結構其實就是分支結構。

16、【單選題】數學表達式1≤x≤5在VB中的邏輯表達式為（）

1<=x<=5

1<=xANDx<=5

A:

1<=xORx<=5

B:

C:

x<=1ANDx<=5

答D:案：B

17、【判斷題】在VB中通用過程分為兩類，即子程序過程和函數過程。

正確

錯誤

A:

答B:案：A

解析：對

18、【判斷題】在鼠標按下時會產生MouseDown事件，通過_Button_參數可知道按下的是

左鍵還是右鍵。

正確

錯誤

A:

答B:案：A

解析：對

19、【判斷題】VB內部函數sin(x),x的單位是弧度。

正確

錯誤

A:

答B:案：A

解析：對

20、【判斷題】可以使用_ExitFor_語句退出Do…While循環。

正確

錯誤

A:

答B:案：B

解析：Do或DoWhile語句的退出：使用ExitDo語句退出。

21、【判斷題】滾動條控件的主要事件是scroll和_Change_。

正確

錯誤

A:

B:

答案：A

解析：與滾動條控件相關的事件主要是Scroll與Change,當在滾動條內拖動滾動框時

會觸發Scroll事件。

22、【判斷題】定義數組時，_必須_聲明數據的大小。

正確

錯誤

A:

答B:案：B

解析：錯。可以不

23、【判斷題】MsgBox函數用于顯示一個消息框，提示用戶作出選擇，程序_可以_知道用

戶選擇了哪個選項。

正確

錯誤

A:

答B:案：A

解析：對

24、【判斷題】在窗體上用Print方法輸出數據時，可以用_Tab_函數來控制顯示的位

置。

正確

錯誤

A:

答B:案：A

解析：對

25、【判斷題】除菜單分隔線外，所有菜單項都可以接收_Click_事件。

正確

錯誤

A:

答B:案：A

解析：對

26、【判斷題】一個文件使用完畢，必須用_Close_來關閉。

正確

A:

錯誤

答B:案：A

解析：對

27、【問答題】什么是變量？什么是常量？變量命名有哪些規則？

答案：一個有名稱的內存位置稱為變量，變量的值在運行時可以改變。常量在程序執行期

間其值不發生變化。變量命名要遵循以下規則：（1）名字只能由字母和數字組成，名字

的第一個字符必須是英文字母。（2）不能用保留字做變量名，最多不能超過255個字

符。

28、【問答題】簡述文本框LostFocus事件，GotFocus事件和SetFocus方法的功能和使用

場合。

答案：LostFocus事件是在光標離開文本框時發生，GotFocus事件是在光標進入到文本

框時發生,SetFocus方法是通過程序的方式把光標移動到文本框內。程序中一般在

LostFocus事件對用戶輸入數據作判斷，很少使用GotFocus，事件，而SetFocus通常用

在程序初始化的場合。

29、【問答題】下面的程序用于根據輸入的內容進行以下處理：若X為1、3、4，則打印“X

的值為1、3、4”；若X在5到9之間，則打印“X的值為大于等于5小于等于9”；若X大

于10，則打印“X的值大于10”；否則，打印“X不在范圍內”。PrivateSub

Commandl_Click()DimxAsIntegerSelectCasexCase(l)_________Print“X的值為

l,3,4,”Case(2)_________Print“X的值為大于等于5小于等于9”CaseIs>10Print

“X的值大于10”Case(3)_________Print“X不在范圍內”EndselectEndSub下面的

程序用于根據輸入的內容進行以下處理：若X為1、3、4，則打印“X的值為1、3、4”；若

X在5到9之間，則打印“X的值為大于等于5小于等于9”；若X大于10，則打印“X的值

大于10”；否則，打印“X不在范圍內”。

答案：（1）1，3，4（2）5To9（3）Else

30、【問答題】窗體上有一個文本框（Text1）和一個列表框（List1）。下面的程序在按

Enter（回車）鍵后，將文本框的內容加到列表框，如果列表框已經有相同的項目則不添加。

PrivateSubText1_KeyPress（KeyAsciiAsInteger)DimIAsIntegerIfKeyAscii=13

Then‘查找是否有相同的項目ForI=OTo(l)________If(2)__________ThenExitSubEnd

IfNextList1.Addltem(3)________EndIfEndSub窗體上有一個文本框（Text1）和一個

列表框（List1）。下面的程序在按Enter（回車）鍵后，將文本框的內容加到列表框，如果

列表框已經有相同的項目則不添加。

答案：（1）List1.ListCount-1（2）List1.List（i）=Text1.Text（3）Text1.Text

31、【問答題】窗體上有一個命令按鈕(Command1)，編寫如下程序，當運行程序后，單擊命

令按鈕，窗體的輸出結果是___________。PrivateSubCommand1_Click()Dimi,j，sum

AsIntegerFori=1To5sum=0Forj=1To5sum=sum+i+jNextNextPrintsumEnd

Sub窗體上有一個命令按鈕(Command1)，編寫如下程序，當運行程序后，單擊命令按鈕，

窗體的輸出結果是___________。

答案：40

32、【問答題】窗體上有一個命令按鈕(Command1)，編寫如下程序，當運行程序后，單擊命

令按鈕，窗體的輸出結果是___________。PrivateSubCommand1_Click()Dimi,j,sum

AsIntegerDima(10)AsIntegerFori=lTo10a(i)=i*iMod5Nextsum=0Fori=1

To10Step2sum=sum+a(i)NextPrintsumEndSub窗體上有一個命令按鈕

(Command1)，編寫如下程序，當運行程序后，單擊命令按鈕，窗體的輸出結果是

___________。

答案：10

33、【問答題】窗體上有一個命令按鈕(Command1)，編寫如下程序，當運行程序后，單擊命

令按鈕，窗體上一共顯示了___________個星號。PrivateSubCommand1_Click()Dimi,j

AsIntegerFori=1To5Forj=1To6-iPrint“”;NextForj=1To2*i-

1Print“*”;NextPrintNextEndSub窗體上有一個命令按鈕(Command1)，編寫如下程

序，當運行程序后，單擊命令按鈕，窗體上一共顯示了___________個星號。

答案：25

34、【問答題】窗體上有一個命令按鈕(Command1)和一個文本框（Text1），編寫如下程

序，當運行程序后，連續單擊三次命令按鈕，文本框Text1顯示的內容是________。Private

SubCommand1_Click()Dima,iAsIntegerStaticbAsIntegera=a+1b=b+3i=

1DoWhileI<bi=i+1If(b+i)Mod2=0ThenExitDoLoopText1.Text=a*4+

b+iEndSub窗體上有一個命令按鈕(Command1)和一個文本框（Text1），編寫如下程

序，當運行程序后，連續單擊三次命令按鈕，文本框Text1顯示的內容是________。

答案：16

35、【問答題】從鍵盤上輸