1、歷年計算機二級筆試試題匯編全國計算機考試二級筆試試卷Visual Basic語言程序設計（考試時間90分，滿分100分）2005年4月一、選擇題（每小題2分，共70分）下列各題A）、B）、C）、D）四個選項中，只有一個選項是正確的。請將正確選項填涂在答題卡相應位置上，答在試卷上不得分。（1）數據的存儲結構是指A）存儲在外存中的數據B）數據所占的存儲空間量C）數據在計算機中的順序存儲方式D）數據的邏輯結構在計算機中的表示（2）下列關于棧的描述中錯誤的是A）棧是先進后出的線性表B）棧只能順序存儲C）棧具有記憶作用D）對棧的插入與刪除操作中，不需要改變棧底指針（3）對于長度位n的線性表，在最壞情況下

2、，下列各排序法所對應的比較次數中正確的是A）冒泡排序為n/2B）冒泡排序為 nC）快速排序為 n D）快速排序為 n(n-1)/2（4）對長度為n的線性表進行順序查找，在最壞情況下所需要的比較次數為A）log2nB）n/2C）nD）n+1（5）下列對于線性鏈表的描述中正確的是A）存儲空間不一定是連續，且各元素的存儲順序是任意的B）存儲空間不一定是連續，且前件元素一定存儲在后件元素的前面C）存儲空間必須連續，且前件元素一定存儲在后件元素的前面D）存儲空間必須連續，且各元素的存儲順序是任意的（6）下列對于軟件測試的描述中正確的是A）軟件測試的目的是證明程序是否正確B）軟件測試的目的是使程序運行結果

3、正確C）軟件測試的目的是盡可能多地發現程序中的錯誤D）軟件測試的目的是使程序符合結構化原則（7）為了使模塊盡可能獨立，要求A）模塊的內聚程度要盡量高，且各模塊間的耦合程度要盡量強B）模塊的內聚程度要盡量高，且各模塊間的耦合程度要盡量弱C）模塊的內聚程度要盡量低，且各模塊間的耦合程度要盡量弱D）模塊的內聚程度要盡量低，且各模塊間的耦合程度要盡量強（8）下列描述中正確的是A）程序就是軟件B）軟件開發不受計算機系統的限制C）軟件既是邏輯實體，又是物理實體D）軟件是程序、數據與相關文檔的集合（9）數據獨立性是數據庫技術的重要特點之一。所謂數據獨立性是指A）數據與程序獨立存放B）不同的數據被存放在不同的

4、文件中C）不同的數據只能被對應的應用程序所使用D）以上三種說法都不對（10）用樹形結構表示實體之間聯系的模型是A）關系模型B）網狀模型 C）層次模型D）以上三個都是（11）在窗體（名稱為Form1）上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫一個事件過程。程序運行后，如果在文本框中輸入一個字符，則把命令按鈕的標題設置為“計算機等級考試”。以下能實現上述操作的事件過程是A）Private Sub Text1_Change ()Command1.Caption="計算機等級考試"End SubB）Private Sub Command1_Cl

5、ick ()Caption="計算機等級考試"End SubC）Private Sub Form1_Click ()Text1.Text="計算機等級考試"End SubD）Private Sub Command1_Click ()Text1.Text="計算機等級考試"End Sub（12）設a=5，b=4，c=3，d=2，下列表達式的值是3>2*b Or a=c And b<>c Or c>dA）1B）TrueC）FasleD）2（13）設a="MicrosoftVisualBasic"

6、，則以下變量b的值為"VisualBasic"的語句是A）b=Left(a,10)B）b=Mid(a,10)C）b=Right(a,10)D）b=Mid(a,11,10)（14）假定有如下的窗體事件代碼：Private Sub Form_Click ()a$="Microsoft Visual Basic"b$=Right(a$,5)c$=Mid(a$,1,9)MsgBox a$,34,b$,c$,5End Sub程序運行后，單擊窗體，則在彈出的信息框的標題欄中顯示的信息是A）Microsoft VisualB）MicrosoftC）BasicD）5（1

7、5）設a="a"，b="b"，c="c"，d="d"，執行語句x=IIF(a<B）Or (c>D）, "A","B")后，x的值為A）"a"B）"b"C）"B"D）"A"（16）為了使命令按鈕（名稱為Command1）右移200，應使用的語句是A）Comand1.Move -200B）Comand1.Move 200C）Command1.Left=Command1.Left+200D）

8、Command1.Left=Command1.Left-200（17）在窗體上畫一個文本框，然后編寫如下事件過程：Private Sub Form_Click ()x=InputBox(“請輸入一個整數”)Print x+Text1.textEnd Sub程序運行時，在文本框輸入456，然后單擊窗體，在輸入對話框中輸入123，單擊“確定”按鈕后，在窗體上顯示的內容為A）123 B）456C）579D）123456（18）在窗體上畫一個文本框和一個計時器控件，名稱分別為Text1和Timer1，在屬性窗口中把計時器的Interval屬性設置為1000，Enabled屬性設置為False。程序運行

9、后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當前的時間。以下是實現上述操作的程序：Private Sub Command1_Click ()Timer1.End SubPrivate Sub Timer1_Timer ()Text1.Text=TimeEnd Sub在處應填入的內容是A）Enabled=TrueB）Enabled=FalseC）Visible=TrueD）Visible=False（19）假定在圖片框Picture1中裝入一個圖形，為了清除該圖形（不刪除圖片框），應該用的正確方法是A）選擇圖片框，然后按Del鍵B）執行語句Picture1.Picture=LoadPic

10、ture (“”)C）執行語句Picture1.Picture=”D）選擇圖片框，在屬性窗口中選擇Picture屬性條，然后按回車鍵。（20）在窗體上畫一個名稱為List1的列表框，一個名稱為Label1的標簽，列表框中顯示若干個項目。當單擊列表框中的某個項目時，在標簽中顯示被選中項目的名稱。下列能正確實現上述操作的程序是A）Private Sub List1_Click () Label1.Caption=List1.ListIndexEnd SubB）Private Sub List1_Click () Label1.Name=List1.ListIndexEnd SubC）Private

11、 Sub List1_Click () Label1.Name=List1.TextEnd SubD）Private Sub List1_Click () Label1.Caption=List1.TextEnd Sub（21）在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下事件過程：Private Sub Command1_Click ()Dim i As Integer, x As IntegerFor i=1 To 6If i=1 Then x=iIf i<=4 Thenx=x+1Elsex=x+2End IfNext iPrint xEnd Sub程序運行后，單擊命

12、令按鈕，其輸出結果為A）9B）6C）12D）15（22）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click ()c=”ABCD”For n=1 To 4Print NextEnd Sub程序運行吼，單擊命令按鈕，要求在窗體上顯示如下內容：DCDBCDABCD則在處應填入的內容為A）Left(c,n)B）Right(c,n)C）Mid(c,n,1)D）Mid(c,n,n)（23）執行以下程序段 Dim x As Integer,i As Integer x=0 For i=20 To 1 Step -2 x=x+i5Next

13、 i后，x的值為A）16B）17C）18D）19（24）在Visual Bisic工程塊中，可以作為“啟動對象”的程序是A）任何窗體或標準模塊B）任何窗體或過程C）Sub Main過程或其他任何模塊D）Sub Main過程或任何窗體（25）假設建立了一個名為Command1的命令按鈕數組，則以下說法中錯誤的是A）數組中每個命令按鈕的名稱（Name屬性）均為Command1B）數組中每個命令按鈕的標題（Caption屬性）都一樣C）數組中所有命令按鈕可以使用同一個事件過程D）用名稱Command1（下標）可以訪問數組中的每個命令按鈕（26）把窗體的KeyPreview屬性設置為True，然后編寫

14、如下事件過程Private Sub Form_KeyPress(KeyAscii As Integer)Dim ch As StringCh=Chr(KeyAscii)KeyAscii=Asc(UCase(ch)Print Chr(KeyAscii+2)End Sub程序運行后，按鍵盤上的“A”鍵，則在窗體上顯示的內容是A）AB）BC）CD）D（27）在窗體上畫一個命令按鈕和一個文本框，名稱分別為Command1和Text1,然后編寫如下程序：Private Sub Command1_Click() a=InputBox(“請輸入日期（131）”) t=”旅游景點：”_ &IIf(a&

15、gt;0 And a<=10,”長城”，“)_ &IIf(a>10 And a<=20,”故宮”，“)_ &IIf(a>20 And a<=31,”頤和園”，“) Text1.Text=tEnd Sub程序運行后，如果從鍵盤上輸入16，則在文本框中顯示的內容是A）旅游景點：長城故宮B）旅游景點：長城頤和園C）旅游景點：頤和園D）旅游景點：故宮（28）在窗體上畫一個名稱為Label1的標簽，然后編寫如下事件過程：Private Sub Form_Click() Dim arr(10,10)As IntegerDim i As Integer,j As

16、 IntegerFor i=2 To 4For j=2 To 4 arr(i,j)=i*jNext jNext iLabel1.Caption=Str(arr(2,2)+arr(3,3)End Sub程序運行后，單擊窗體，在標簽中顯示的內容是A）12B）13C）14D）15（29）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下通用過程和命令按鈕 的事件過程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End IfEnd FunctionPrivate Sub Comman

17、d1_Click()Dim i As Integer,s As Integers=0For i=1 To 5 s=s+fun(i)NextPrint sEnd Sub程序運行后，單擊命令按鈕，在窗體上顯示的是A）6B）7C）8D）9（30）閱讀程序： Option Base 1 Dim arr() As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To2 arr(i,j)=i*2+j Next j Next i ReDim Preserve

18、arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2)+arr(3,4) End Sub程序運行后，單擊窗體，輸出結果為A）21B）13C）8D）25（31）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序： Option Base 1 Private Sub Command1_Click()Dim c As Integer,d As Integerd=0 c=6 x=Array(2,4,6,8,10,12) For i=1 To 6 If x(i)>c Then d=d+x(i) c=x(i) Else d=d-

19、c End If Next i Print d End Sub程序運行后，如果單擊命令按鈕，則在窗體上輸出的內容誒A）10B）16C）12D）20（32）設有如下程序 Private Sub Command1_Click() Dim c As Integer,d As Integer c=4 d=InputBox(“請輸入一個整數”) Do While d>0 If d>c Then c=c+1 End If d=InputBox(“請輸入一個整數”) loop Print c+d End Sub程序運行后，單擊命令按鈕，如果在輸入對話框中依次輸入1、2、3、4、5、6、7、8、9

20、、0，則輸出結果是A）12B）11C）10D）9（33）在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框，在文本框中輸入以下字符串：Microsoft Visual Basic Programming然后編寫如下事件過程：Private Sub Command1_Click()Open “d:tempoutf.txt” For Output As # 1For i=1 To Len(Text1.Text) c=Mid(Text1.Text,i,1) If c>=”A” And c<=”Z” Then Print # 1,LCase(C） End IfNe

21、xt iCloseEnd Sub程序運行后，單擊命令按鈕，文件outf.txt中的內容是A）MVBPB）mvbpC）MD）m V vB bP p（34）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序： Dim SW As Boolean Function func(X As Integer) As Integer If X<20 Then Y=X Else Y=20+X End If Func=YEnd FunctionPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y

22、As Single) SW=FalseEnd SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) SW=TrueEnd SubPrivate Sub Command1_Click()Dim intNum As Integer intNum=InputBox(“”)If SW Then print func(intNum) End IfEnd Sub程序運行后，單擊命令按鈕，將顯示一個輸入對話框，如果在對話框中輸入25，則程序的執行結果為A）輸出0B）輸出25C）輸出45D

23、）無任何輸出（35）設有如下通用過程：Private Sub Fun(a() As Integer,x As Integer) For i=1 To 5 x=x+a(i) NextEnd Sub在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下的事件過程：Private Sub Command1_Click() Dim arr(5) As Integer,n As Integer For i=1 To 5 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub程序運行后，單擊命令按鈕，則在文本框中顯示的內容

24、是A）30B）25C）20D）15二 填空題（每空2分，共30分） 將每空的正確答案寫在答題卡【1】【15】序號的橫線上，答在試卷上不得分。（1）某二叉樹中度為2的結點有18個，則該二叉樹中有 【1】 個葉子結點。（2）在面向對象方法中，類的實例稱為 【2】 。（3）診斷和改正程序中錯誤的工作通常稱為 【3】 。（4）在關系數據庫中，把數據表示成二維表，每一個二維表稱為 【4】 。（5）問題處理方案的正確而完整的描述稱為 【5】 。（6）以下語句的輸出結果是 【6】 。Print Int(12345.6789*100+0.5)/100(7) 在窗體上畫一個文本框和一個圖片框，然后編寫如下兩個事

25、件過程：Private Sub Form_Click() Text1.Text="VB程序設計"End SubPrivate Sub Text1_Change()Picture1.Print "VB Programming"End Sub程序運行后，單擊窗體，則在文本框中顯示的內容是 【7】 ，而在圖片框中顯示的內容是 【8】 。（8）閱讀下面程序： Private Sub Form_Click() Dim Check As Boolean,Counter As Integer Check=True Counter=5 Do Do While Count

26、er<20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End IfLoop Loop Until Check=False Print CounterEnd Sub程序運行后，單擊窗體，輸出結果為 【9】 。（9）設有如下程序：Private Sub Form_Click() Dim a As Integer n=8 s=0 Do s=s+n n=n-1 Loop While n>0Print sEnd Sub以上程序的功能是 【10】 。程序運行后，單擊窗體，輸出結果為 【11】 。（10）設有如果程序： Op

27、tion Base 1 Private Sub Command1_Click(0 Dim arr1 Dim Min As Integer,I As Integer arr1=Array(12,435,76,-24,78,54,866,43) Min= 【12】 For i=2 To 8 If arr1(i)<Min Then 【13】 Next i Print“最小值是：”；Min End Sub以上程序的功能是：用Array函數建立一個含有8個元素的數組，然后查找并輸出該數組值各元素的最小值。請填空。（11）在名稱為Form1的窗體上畫一個文本框，其名稱為Text1,在屬性窗口值把該文

28、本框的MultiLine屬性設置為True，然后編寫如下的事件過程： Private Sub Form_Click() Open "d:textsmtext1.txt" For Input As #1 Do While Not 【14】 Line Input #1,aspect$ Whole$=whole$+aspect$+Chr$(13)+Chr$(10)Loop Text1.Text=whole$ Close #1 Open "d:textsmtext2.txt" For Output As #1 Print#1, 【15】 Close #1 End

29、 Sub上述程序的功能是，把磁盤文件sntext1.txt的內容讀到內存并在文本框中顯示出來，然后把該文本框中的內容存入磁盤文件smtext2.txt.請填空。 全國計算機等級考試二級筆試試卷Visual Basic語言程序設計（考試時間90分，滿分100分）2005年9月一、選擇題（每小題2分，共70分）下列各題A）、B）、C）、D）四個選項中，只有一個選項正確的，請將正確選項填涂在答題卡相應位置上，答在試卷上不得分。（1）下列敘述中正確的是A）程序設計就是編制程序B）程序的測試必須由程序員自己去完成C）程序經調試改錯后還應進行再測試D）程序經調試改錯后不必進行再測試（2）下列數據結構中，能

30、用二分法進行查找的是A）順序存儲的有序線性表B）線性鏈表C）二叉鏈表D）有序線性鏈表（3）下列關于棧的描述正確的是A）在棧中只能插入元素而不能刪除元素B）在棧中只能刪除元素而不能插入元素C）棧是特殊的線性表，只能在一端插入或刪除元素D）棧是特殊的線性表，只能在一端插入元素，而在另一端刪除元素（4）下列敘述中正確的是A）一個邏輯數據結構只能有一種存儲結構B）數據的邏輯結構屬于線性結構，存儲結構屬于非線性結構C）一個邏輯數據結構可以有多種存儲結構，且各種存儲結構不影響數據處理的效率D）一個邏輯數據結構可以有多種存儲結構，且各種存儲結構影響數據處理的效率（5）下列描述中正確的是A）軟件工程只是解決軟

31、件項目的管理問題B）軟件工程主要解決軟件產品的生產率問題C）軟件工程的主要思想是強調在軟件開發過程中需要應用工程化原則D）軟件工程只是解決軟件開發中的技術問題（6）在軟件設計中，不屬于過程設計工具的是A）PDL（過程設計語言）B）PAD圖C）N-S圖D）DFD圖（7）下列敘述中正確的是A）軟件交付使用后還需要進行維護B）軟件一旦交付使用就不需要再進行維護C）軟件交付使用后其生命周期就結束D）軟件維護是指修復程序中被破壞的指令（8）數據庫設計的根本目標是要解決A）數據共享問題B）數據安全問題C）大量數據存儲問題D）簡化數據維護（9）設有如下關系表RABC112223SABC313TABC1122

32、23313則下列操作中正確的是A）T=RSB）T=RSC）T=R×SD）T=R/S（10）數據庫系統的核心是A）數據模型B）數據庫管理系統C）數據庫D）數據庫管理員（11）假定一個Visual Basic應用程序由一個窗體模塊和一個標準模塊構成。為了保存該應用程序，以下正確的操作是A）只保存窗體模塊文件B）分別保存窗體模塊、標準模塊和工程文件C）只保存窗體模塊和標準模塊文件D）只保存工程文件（12）為了清除窗體上的一個控件，下列正確的操作是A）按回車鍵B）按Esc鍵C）選擇（單擊）要清除的控件，然后按Del鍵D）選擇（單擊）要清除的控件，然后按回車鍵（13）以下敘述中錯誤的是A）打開

33、一個工程文件時，系統自動裝入與該工程有關的窗體、標準模塊等文件B）當程序運行時，雙擊一個窗體，則觸發該窗體的DblClick事件C）Visual Basic應用程序只能以解釋方式執行D）事件可以由用戶引發，也可以有系統引發（14）設a=2，b=3，c=4，d=5，下列表達式的值是Not a<=c Or 4*c=b2 And b<>a+cA）-1B）1C）TrueD）False（15）設a=5，b=10，則執行c=Int (b-A）* Rnd +A）+1后，c值的范圍為A）510B）69C）610D）59（16）在窗體上畫一個命令按鈕，名稱為Command1，然后編寫如下事件過

34、程：Private Sub Command1_Click() a$ = "software and hardware" b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, , b$, c$, 1End Sub運行程序，單擊命令按鈕，則在彈出的信息框的標題欄中顯示的是A）software and hardwareB）softwareC）hardwareD）1（17）在窗體上畫一個命令按鈕和一個文本框，其名稱分別為Command1和Text1，把文本框的Text屬性設置為空白，然后編寫如下事件過程：Private Sub Comman

35、d1_Click() a = InputBox("Enter an integer") b = InputBox("Enter an integer") Text1.Text = b + aEnd Sub程序運行后，單擊命令按鈕，如果在輸入對話框中分別輸入8和10，則文本框中顯示的內容是A）108B）18C）810D）出錯（18）在窗體上畫兩個文本框，其名稱分別為Text1和Text2，然后編寫如下程序：Private Sub Form_Load() Show Text1.Text = "" Text2.Text = "&q

36、uot; Text1.SetFocusEnd SubPrivate Sub Text1_Change() Text2.Text = Mid(Text1.Text, 8)End Sub程序運行后，如果在文本框Text1中輸入BeijingChina，則在文本框Text2中顯示的內容是A）BeijingChinaB）ChinaC）BeijingD）BeijingC（19）在窗體上畫一個列表框和一個命令按鈕，其名稱分別為List1和Command1，然后編寫如下事件過程：Private Sub Form_Load() List1.AddItem "Item 1" List1.Ad

37、dItem "Item 2" List1.AddItem "Item 3"End SubPrivate Sub Command1_Click() List1.List(List1.ListCount) = "AAAA"End Sub程序運行后，單擊命令按鈕，其結果為A）把字符串“AAAA”添加到列表框中，但位置不能確定B）把字符串“AAAA”添加到列表框的最后（即“Item3”的后面）C）把列表框中原有的最后一項改為“AAAA”D）把字符串“AAAA”插入到列表框的最前面（即“Item1”的前面）（20）假定有如下事件過程Privat

38、e Sub Form_Click() Dim x As Integer, n As Integer x = 1 n = 0Do While x < 28 x = x * 3n = n + 1 Loop Print x, nEnd Sub程序運行后，單擊窗體，輸出結果是A）81 4B）56 3C）28 1D）243 5（21）有如下程序：Private Sub Form_Click() Dim Check, Counter Check = True Counter = 0 Do Do While Counter < 20 Counter = Counter + 1 If Counte

39、r = 10 Then Check = False Exit Do End IfLoop Loop Until Check = False Print Counter, CheckEnd Sub程序運行后，單擊窗體，輸出結果為A）15 0B）20 -1C）10 TrueD）10 False（22）有如下程序：Private Sub Form_Click()Dim i As Integer, sum As Integersum = 0 For i = 2 To 10 If i Mod 2 <> 0 And i Mod 3 = 0 Then sum = sum + i End If N

40、ext i Print sumEnd Sub程序運行后，單擊窗體，輸出結果為A）12B）30C）24D）18（23）在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4

41、)End Sub程序運行后，單擊命令按鈕，在文本框中顯示的值是A）12B）13C）14D）15（24）在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下事件過程：Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4) For i = 1 To 4 For j = 1 To 4 a1(i, j) = i + j a2(i, j) = a1(i, j) + i + j Next j Next i Print a1(3, 3); a2(3, 3)End Sub程序運行后，單擊命令按鈕，在窗體上輸出的是A）6 6B）10 5C）7 21D）6

42、 12（25）有如下程序：Option Base 1Private Sub Form_Click() Dim arr, Sum Sum = 0 arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i = 1 To 10 If arr(i) / 3 = arr(i) 3 Then Sum = Sum + arr(i) End If Next i Print SumEnd Sub程序運行后，單擊窗體，輸出結果為A）25B）26C）27D）28（26）在窗體上畫一個命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click(

43、) Dim a(5) As String For i = 1 To 5 a(i) = Chr(Asc("A") + (i - 1) Next i For Each b In a Print b; NextEnd Sub程序運行后，單擊命令按鈕，輸出結果是A）ABCDEB）1 2 3 4 5C）abcdeD）出錯信息（27）以下關于函數過程的敘述中，正確的是A）如果不指明函數過程參數的類型，則該參數沒有數據類型B）函數過程的返回值可以有多個C）當數組作為函數過程的參數時，既能以傳值方式傳遞，也能以引用方式傳遞D）函數過程形參的類型與函數返回值的類型沒有關系（28）函數過程F1

44、的功能是：如果參數b為奇數，則返回值為1，否則返回值為0，以下能正確實現上述功能的代碼是A）Function F1(b As Integer)B）Function F1(b As Integer) If b Mod 2 = 0 Then If b Mod 2 = 0 Then Return 0 F1=0 Else Else Return 1 F1=1 End If End IfEnd Function End FunctionC）Function F1(b As Integer)D）Function F1(b As Integer) If b Mod 2 = 0 Then If b Mod 2

45、 = 0 Then F1=1 Return 0 Else Else F1=0 Return 1 End If End IfEnd Function End Function（29）以下關于KeyPress事件過程中參數KeyAscii的敘述中正確的是A）KeyAscii參數是所按鍵的ASCII碼B）KeyAscii參數的數據類型為字符串C）KeyAscii參數可以省略D）KeyAscii參數是所按鍵上標注的字符（30）設窗體上有一個名為Text1的文本框，并編寫如下程序：Private Sub Form_Load() Show Text1.Text = "" Text1.S

46、etFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print "程序設計"End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "Visual Basic"End Sub程序運行后，如果在文本框中輸入字母“a”，然后單擊窗體，則在窗體上顯示的內容是A）Visual BasicB）程序設計C）Visual

47、Basic程序設計D）a程序設計（31）假定有下表所列的菜單結構：標題 名稱 層次顯示 appear 1（主菜單）大圖標 bigicon 2（子菜單）小圖標 smallicon 3（子菜單）要求程序運行后，如果單擊菜單項“大圖標”，則在該菜單項前面添加一個“”，以下正確的事件過程是A）Private Sub bigicon_Click()B）Private Sub bigicon_Click() bigicon.Checked = Flase Me.appear.bigicon.Checked = FlaseEnd SubEnd SubC）Private Sub bigicon_Click()

48、D）Private Sub bigicon_Click() bigicon.Checked =True appear.bigicon.Checked = FlaseEnd SubEnd Sub（32）假定通用對話框的名稱為CommonDialog1，命令按鈕的名稱為Command1，則單擊命令按鈕后，能使打開的對話框的標題為“New Title”的事件過程是A）Private Sub Command1_Click() CommonDialog1.DialogTitle = "New Title" CommonDialog1.ShowPrinterEnd SubB）Priva

49、te Sub Command1_Click()CommonDialog1.DialogTitle = "New Title" CommonDialog1.ShowFontEnd SubC）Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title" CommonDialog1.ShowOpenEnd SubD）Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title" CommonDia

50、log1.ShowColorEnd Sub（33）如果一個工程含有多個窗體及標準模塊，則以下敘述中錯誤的是A）任何時刻最多只有一個窗體是活動窗體B）不能把標準模塊設置為啟動模塊C）用Hide方法只是隱藏一個窗體，不能從內存中清除該窗體D）如果工程中含有Sub Main過程，則程序一定首先執行該過程（34）假定在工程文件中有一個標準模塊，其中定義了如下記錄類型Type Books Name As String * 10 TelNum As String * 20End Type要求當執行事件過程Command1_Click時，在順序文件Person.txt中寫入一條記錄。下列能夠完成該操作的事件

51、過程是A）Private Sub Command1_Click() Dim B As Books Open "c:Person.txt" For Output As #1 B.Name = InputBox("輸入姓名") B.TelNum = InputBox("輸入電話號碼") Write #1, B.Name, B.TelNum Close #1End SubB）Private Sub Command1_Click() Dim B As Books Open "c:Person.txt" For Input

52、As #1 B.Name = InputBox("輸入姓名") B.TelNum = InputBox("輸入電話號碼") Print #1, B.Name, B.TelNum Close #1End SubC）Private Sub Command1_Click() Dim B As Books Open "c:Person.txt" For Output As #1 Name = InputBox("輸入姓名") TelNum = InputBox("輸入電話號碼") Write #1, B Close #1End SubD）Private Sub Command1_Click() Dim B As Books Open "c:Person.txt" For Input As