2003年9月全國計(jì)算機(jī)等級(jí)考試二級(jí)VB語言筆試試卷（含答案）一、 選擇題（1）（20）每小題2分，（21）（30）每小題3分，共70分）（1）以下敘述中錯(cuò)誤的是A）Visual Basic 是事件驅(qū)動(dòng)型可視化編程工具B）Visual Basic應(yīng)用程序不具有明顯的開始和結(jié)束語句C）Visual Basic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性D）Visual Basic中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置（2）以下敘述中錯(cuò)誤的是A）在工程資源管理器窗口中只能包含一個(gè)工程文件及屬于該工程的其他文件B）以.BAS為擴(kuò)展名的文件是標(biāo)準(zhǔn)模塊文件C）窗體文件包含該窗體及其控件的屬性D）一個(gè)工程中可以含有多個(gè)標(biāo)準(zhǔn)模塊文件（3）以下敘述中錯(cuò)誤的是A）雙擊鼠標(biāo)可以觸發(fā)DblClick事件B）窗體或控件的事件的名稱可以由編程人員確定C）移動(dòng)鼠標(biāo)時(shí)，會(huì)觸發(fā)MouseMove事件D）控件的名稱可以由編程人員設(shè)定（4）以下不屬于Visual Basic系統(tǒng)的文件類型是A）.frm B）.bat C）.vbg D）.vbp（5）以下敘述中錯(cuò)誤的是A）打開一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件B）保存Visual Basic程序時(shí)，應(yīng)分別保存窗體文件及工程文件C）Visual Basic應(yīng)用程序只能以解釋方式執(zhí)行D）事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)（6）以下能正確定義數(shù)據(jù)類型TelBook的代碼是（資料來源：東方教育網(wǎng) )A）Type TelBook B）Type TelBookName As String*10 Name As String*10TelNum As Integer TelNum As IntegerEnd Type End TelBookC）Type TelBook D）Typedef TelBookName String*10 Name String*10TelNum Integer TelNum IntegerEnd Type TelBook EndType（7）以下聲明語句中錯(cuò)誤的是A）Const var1=123 B）Dim var2 = 'ABC'C）DefInt a-z D）Static var3 As Integer（8）設(shè)窗體上有一個(gè)列表框控件Lis選中的列表項(xiàng)內(nèi)容的是t1，且其中含有若干列表項(xiàng)。則以下能表示當(dāng)前被A）List1.List B）List1.ListIndex C）List1.Index D）List1. Text（9）程序運(yùn)行后，在窗體上單擊鼠標(biāo)，此時(shí)窗體不會(huì)接收到的事件是A）MouseDown B）MouseUp C）Load D）Click（10）設(shè)a=10，b=5，c =1，執(zhí)行語句Print a > b > c后，窗體上顯示的是A）True B）False C）1 D）出錯(cuò)信息（11）如果要改變窗體的標(biāo)題，則需要設(shè)置的屬性是A）Caption B）Name C）BackColor D）BorderStyle（12）以下能判斷是否到達(dá)文件尾的函數(shù)是A）BOF B）LOC C）LOFD）EOF（13）如果一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是A）如果工程中含有Sub Main過程，則程序一定首先執(zhí)行該過程B）不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊C）用Hide方法只是隱藏一個(gè)窗體，不能從內(nèi)存中清除該窗體D）任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體（14）窗體的MouseDown事件過程Form_MouseDown (ButtSingle)on As Integer, Shift As Integer, X As Single, Y As 有4個(gè)參數(shù)，關(guān)于這些參數(shù)，正確的描述是A）通過Button參數(shù)判定當(dāng)前按下的是哪一個(gè)鼠標(biāo)鍵B）Shift參數(shù)只能用來確定是否按下Shift鍵C）Shift參數(shù)只能用來確定是否按下Alt和Ctrl鍵D）參數(shù)x,y用來設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo)（15）設(shè)組合框Combo1中有3個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語句是A）Combo1.RemoveItem TextB）Combo1.RemoveItem2C）Combo1.RemoveItem 3D）Combo1.RemoveItemCombo1.Listcount（16）以下關(guān)于焦點(diǎn)的敘述中，錯(cuò)誤的是A）如果文本框的TabStop屬性為False，則不能接收從鍵盤上輸入的數(shù)據(jù)B）當(dāng)文本框失去焦點(diǎn)時(shí)，觸發(fā)LostFocus事件C）當(dāng)文本框的Enabled屬性為False時(shí)，其Tab順序不起作用D）可以用TabIndex屬性改變Tab順序（17）如果要在菜單中添加一個(gè)分隔線，則應(yīng)將其Caption屬性設(shè)置為A）= B）* C）& D）-（18）執(zhí)行語句Open "數(shù)據(jù)能夠執(zhí)行的操作是Tel.dat" For Random As #1 Len = 50后，對(duì)文件Tel.dat中的A）只能寫，不能讀 B）只能讀，不能寫C）既可以讀，也可以寫 D）不能讀，不能寫（19）在窗體上畫一個(gè)本框，然后編寫如下事件過名稱為Command1的命令按鈕和兩程：個(gè)名稱分別為Text1、Text2的文Private Sub Command1_Click()n = Text1.TextSelect Case nCase 1 To 20x = 10Case 2, 4, 6x = 20Case Is < 10x = 30Case 10x = 40End SelectText2.Text = xEnd Sub程序運(yùn)行后，如果在文內(nèi)容是本框Text1中輸入10，然后單擊命令按鈕，則在Text2中顯示的A）10 B）20 C）30 D）40（20）設(shè)有以下循環(huán)結(jié)構(gòu)Do循環(huán)體Loop While <條件>則以下敘述中錯(cuò)誤的是A）若"條件"是一個(gè)為0的常數(shù)，則一次也不執(zhí)行循環(huán)體B）"條件"可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)C）循環(huán)體中可以使用Exit Do語句D）如果"條件"總是為True，則不停地執(zhí)行循環(huán)體（21）在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()Dim num As Integernum = 1Do Until num > 6Print num;num = num + 2.4LoopEnd Sub程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是A）1 3.4 5.8 B）1 3 5C）1 4 7 D）無數(shù)據(jù)輸出（22）在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()Dim a As Integer, sAs Integera = 8s = 1Dos = s + aa = a1Loop While a <= 0Print s; aEnd Sub程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是A） 7 9 B） 34 0C） 9 7 D）死循環(huán)（23）設(shè)有如下通用過程：Public Function f(x As Integer)Dim y As Integerx = 20y = 2f = x * yEnd Function在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()Static x As Integerx = 10y=5y = f(x)Print x; yEnd Sub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是A）10 5 B）20 5C）20 40 D）10 40（24）設(shè)有如下通用過程：Public Sub Fun(a(), ByVal x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub在窗體上畫一個(gè)名稱為Text1的文本下的事件過程：框和一個(gè)名稱為Command1的命令按鈕，然后編寫如Private Sub Command1_Click()Dim arr(5) As VariantFor i = 1 To 5arr(i) = iNextn = 10Call Fun(arr(), n)Text1.Text = nEnd Sub程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是A）10 B）15 C）25 D）24（25）在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下代碼：Option Base 1Private Sub Command1_Click()d = 0c = 10x = Array(10, 12, 21, 32, 24)For i = 1 To 5If x(i) > c Thend = d + x(i)c = x(i)Elsed = dcEnd IfNext iPrint dEnd Sub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上輸出的內(nèi)容為A）89 B）99 C）23 D）77（26）在窗體上畫兩個(gè)別為Label1、Label2、Labe顯示"A"、"B"、"A*B"等文Label3 顯示A*B的計(jì)算結(jié)果。當(dāng)單擊命令按鈕"計(jì)算"時(shí)Label3中。以下不能實(shí)現(xiàn)上滾動(dòng)條，名稱分別為Hscroll1l3、Label4、Label5、Label6，字信息，標(biāo)簽Label1、Label2分。如圖所示。當(dāng)移動(dòng)滾動(dòng)框時(shí)，對(duì)標(biāo)簽Label1、Label2中顯示述功能的事件過程是、Hscroll2；六個(gè)標(biāo)簽，名稱分其中標(biāo)簽Label 4 Label6分別別顯示其右側(cè)的滾動(dòng)條的數(shù)值，在相應(yīng)的標(biāo)簽中顯示滾動(dòng)條的值的兩個(gè)值求積，并將結(jié)果顯示在A）Private Sub Command1_Click()Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption)End SubB）Private Sub Command1_Click()Label3.Caption = HScroll1.Value * HScroll2.ValueEnd SubC）Private Sub Command1_Click()Label3.Caption = HScroll1 * HScroll2End SubD）Private Sub Command1_Click()Label3.Caption = HScroll1. Text * HScroll2.TextEnd Sub（27）在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()For n = 1 To 20If n Mod 3 <> 0 Thenm = m + n 3Next nPrint nEnd Sub程序運(yùn)行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是A）15 B）18 C）21 D）24（28）在窗體上畫一個(gè)名稱為Text1的文本框，并編寫如下程序：Private Sub Form_Load()ShowText1.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_MouY As Single)seUp(Button As Integer, Shift As Integer, X As Single, （資料來源：東方教育網(wǎng) )Print "程序設(shè)計(jì)"End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print "Visual Basic"End Sub程序運(yùn)行后，如果按"A"鍵，然后單擊窗體，則在窗體上顯示的內(nèi)容是A）Visual Basic B）程序設(shè)計(jì)C）A程序設(shè)計(jì) D）Visual Basic程序設(shè)計(jì)（29）設(shè)有如下程序：Private Sub Command1_Click()Dim sum As Double, xAs Doublesum = 0n = 0For i = 1 To 5x = n / in = n + 1sum = sum + xNextEnd Sub該程序通過For循環(huán)計(jì)算一個(gè)表達(dá)式的值，這個(gè)表達(dá)式是A）1+1/2+ 2/3+3/4+4/5 B）1+1/2+2/3+3/4C）1/2+2/3+3/4+4/5 D）1+1/2+1/3+1/4+1/5（30）以下有關(guān)數(shù)組定義的語句序列中，錯(cuò)誤的是A） Static arr1(3)arr1(1) = 100arr1(2) = "Hello"arr1(3) = 123.45B）Dim arr2() As IntegerDim size As IntegerPrivate Sub Command2_Click()size = InputBox("輸入：")ReDim arr2(size)End SubC）Option Base 1Private Sub Command3_Click()Dim arr3(3) As IntegerEnd SubD）Dim n As IntegerPrivate Sub Command4_Click()Dim arr4(n) As IntegerEnd Sub二、填空題（每空2分，共30分）（1）執(zhí)行下面的程序段后，i的值為1 ，s的值為 2 。s = 2For i = 3.2 To 4.9 Step 0.8s = s + 1Next i（2）把窗體的KeyPreview屬性設(shè)置為True，然后編寫如下兩個(gè)事件過程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub程序運(yùn)行后，如果直接分別是 3 和 4 。按鍵盤上的"A"鍵（即不按住Shift鍵），則在窗體上輸出的字符（3）在窗體上畫一個(gè)標(biāo)簽（名稱為L寫如下幾個(gè)事件過程：abel1）和一個(gè)計(jì)時(shí)器（名稱為Timer1），然后編Private Sub Form_Load()Timer1.Enabled = FalseTimer1.Interval = 5End SubPrivate Sub Form_Click()Timer1.Enabled = 6End SubPrivate Sub Timer1_Timer()Label1.Caption = 7End Sub程序運(yùn)行后，單擊窗體，將在標(biāo)簽中填空。顯示當(dāng)前時(shí)間，每隔1秒鐘變換一次（見圖）。請(qǐng)14：54：41（4）在窗體上畫一個(gè)Label1和Command1，然后編文本框、一個(gè)標(biāo)簽和一個(gè)命令按寫如下兩個(gè)事件過程：鈕，其名稱分別為Text1、Private Sub Command1_Click()S$ = InputBox("請(qǐng)輸入一個(gè)字符串")Text1.Text = S$End SubPrivate Sub Text1_Change()Label1.Caption = UCase(Mid(Text1.Text, 7)End Sub程序運(yùn)行后，單擊命令"VisualBasic"，則在標(biāo)簽按鈕，將顯示一個(gè)輸入對(duì)話框，中顯示的內(nèi)容是 8 。如果在該對(duì)話框中輸入字符串（5）在窗體上畫一個(gè)列表框、一個(gè)Command1和Label1，通過屬性窗口把列表、"第三個(gè)項(xiàng)目"、"第四個(gè)項(xiàng)目"。程序運(yùn)鈕，即可將所選擇的項(xiàng)目刪除，并在標(biāo)簽選擇"第三個(gè)項(xiàng)目"的情況)。下面是實(shí)現(xiàn)命令按鈕和一個(gè)標(biāo)簽，其名稱分別為List1、框中的項(xiàng)目設(shè)置為："第一個(gè)項(xiàng)目"、"第二個(gè)項(xiàng)目"行后，在列表框中選擇一個(gè)項(xiàng)目，然后單擊命令按中顯示列表框當(dāng)前的項(xiàng)目數(shù)，運(yùn)行情況如圖所示(上述功能的程序，請(qǐng)?zhí)羁?。Private Sub Command1 _Click()If List1.ListIndex >= 9 ThenList1.RemoveItem 10Label1.Caption = 11ElseMsgBox "請(qǐng)選擇要?jiǎng)h除的項(xiàng)目"End IfEnd Sub 第一個(gè)項(xiàng)目第二個(gè)項(xiàng)目 COMMAND1第三個(gè)項(xiàng)目 3（6）設(shè)有程序：Option Base 1Private Sub Command1_Click()Dim arr1, Max as Integerarr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)（資料來源：東方教育網(wǎng) )12 = arr1(1)For i = 1 To 8If arr1(i) > Max Then 13Next iPrint "最大值是: " MaxEnd Sub以上程序的功能是：用Array函數(shù)建組中元素的最大值。請(qǐng)?zhí)羁铡Ａ⒁粋€(gè)含有8個(gè)元素的數(shù)組，然后查找并輸出該數(shù)（7）以下程序的功能在文本框Text1中顯示出來是：把當(dāng)前目錄下的順序文件sm。請(qǐng)?zhí)羁?。text1.txt的內(nèi)容讀入內(nèi)存，并Private Sub Command1_Click()Dim inData As StringText1.Text = ""Open ".smtext1.txt"14 As #1Do While 15Input #1, inDataText1.Text = Text1.Text & inDataLoopClose #1End Sub2003年9月全國計(jì)算機(jī)等級(jí)考試二級(jí)VB語言筆試試卷參考答案一、 選擇題（1） C （2） A （3） B （4） B （5） C（6） A （7） B （8） D （9） C （10）B（11）A （12）D （13）A （14）A （15）B（16）A （17）D （18）C （19）A （20）A（21）B （22）C （23）C （24）A （25）C（26）D （27）C （28）D （29）C （30）D二、 填空題（1） 1 5.6 2 5（2） 3 A 4 a（3） 5 1000 6 True 7 Time（4） 8 BASIC（5） 9 0 10List1.ListIndex 11 List1.ListCount（6） 12 Max 13 Max = arr1(i)（7） 14 For Input 15 Not EOF(1)）2005年4月全國計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷及答案一、選擇題(1)(35)每小題2分，共70分)下列各題A)、B)、C)、D)四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的，請(qǐng)將正確選項(xiàng)涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。(1)數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)是指A) 存儲(chǔ)在外存中的數(shù)據(jù)B) 數(shù)據(jù)所占的存儲(chǔ)空間量C) 數(shù)據(jù)在計(jì)算機(jī)中的順序存儲(chǔ)方式D) 數(shù)據(jù)的邏輯結(jié)構(gòu)在計(jì)算機(jī)中的表示(2)下列關(guān)于棧的描述中錯(cuò)誤的是A)棧是先進(jìn)后出的線性表B) 棧只能順序存儲(chǔ)C) 棧具有記憶作用D) 對(duì)棧的插入與刪除操作中，不需要改變棧底指針(3)對(duì)于長度為n的線性表，在最壞情況下，下列各排序法所對(duì)應(yīng)的比較次數(shù)中正確的是A) 冒泡排序?yàn)閚/2B) 冒泡排序?yàn)閚C) 快速排序?yàn)閚D) 快速排序?yàn)閚(n-1)/2(4)對(duì)于長度為n的線性表進(jìn)行順序查找，在最壞情況下所需要的比較次數(shù)為A) log2nB) n/2C) nD) n1(5)下列對(duì)于線性鏈表的描述中正確的是A)存儲(chǔ)空間不一定是連續(xù)，且各元素的存儲(chǔ)順序是任意的B)存儲(chǔ)空間不一定是連續(xù)，且前件元素一定存儲(chǔ)在后件元素的前面C)存儲(chǔ)空間必須連續(xù)，且前件元素一定存儲(chǔ)在后件元素的前面D)存儲(chǔ)空間必須連續(xù)，且各元素的存儲(chǔ)順序是任意的(6)下列對(duì)于軟件測試的描述中正確的是A)軟件測試的目的是證明程序是否正確B)軟件測試的目的是使程序運(yùn)行結(jié)果正確C)軟件測試的目的是盡可能多地發(fā)現(xiàn)程序中的錯(cuò)誤D)軟件測試的目的是使程序符合結(jié)構(gòu)化原則(7)為了使模塊盡可能獨(dú)立，要求A)模塊的內(nèi)聚程度要盡量高，且各模塊間的耦合程度要盡量強(qiáng)B)模塊的內(nèi)聚程度要盡量高，且各模塊間的耦合程度要盡量弱C)模塊的內(nèi)聚程度要盡量低，且各模塊間的耦合程度要盡量弱D)模塊的內(nèi)聚程度要盡量低，且各模塊間的耦合程度要盡量強(qiáng)(8)下列描述中正確的是A) 程序就是軟件B) 軟件開發(fā)不受計(jì)算機(jī)系統(tǒng)的限制C) 軟件既是邏輯實(shí)體，又是物理實(shí)體D) 軟件是程序、數(shù)據(jù)與相關(guān)文檔的集合(9)數(shù)據(jù)獨(dú)立性是數(shù)據(jù)庫技術(shù)的重要特點(diǎn)之一。所謂數(shù)據(jù)獨(dú)立性是指A) 數(shù)據(jù)與程序獨(dú)立存放B) 不同的數(shù)據(jù)被存放在不同的文件中C) 不同的數(shù)據(jù)只能被對(duì)應(yīng)的應(yīng)用程序所使用D) 以上三種說法都不對(duì)(10) 用樹形結(jié)構(gòu)表示實(shí)體之間聯(lián)系的模型是A) 關(guān)系模型B) 網(wǎng)狀模型C) 層次模型D) 以上三個(gè)都是11、在窗體（名稱為Form1）上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫一個(gè)事件過程。程序運(yùn)行以后，如果在文本框中輸入一個(gè)字符，則把命令按鈕的標(biāo)題設(shè)置為“計(jì)算機(jī)等級(jí)考試”。以下能實(shí)現(xiàn)上述操作的事件過程是：A)Private Sub Text1_Change()Command1.Caption=”計(jì)算機(jī)等級(jí)考試”End SubB) Private Sub Command1_Click()Caption=”計(jì)算機(jī)等級(jí)考試”End SubC) Private Sub Form1_Click()Text1.Caption=”計(jì)算機(jī)等級(jí)考試”End SubD) Private Sub Command1_Click()Text1.Text=”計(jì)算機(jī)等級(jí)考試”End Sub(12)設(shè)a=5b=4c=3d=2，下列表達(dá)式的值是3>2*b Or a=c And b<>c Or c>dA)1B)TrueC)FalseD)2(13)設(shè)a=”MicrosoftVisualBasic” 則以下使變量b的值為”VisualBasic”的語句是A)b=Left(a10)B)b=Mid(a10)C)b=Right(a10)D)b=Mid(a1110)(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程序運(yùn)行后單擊窗體，則在彈出的信息框中的標(biāo)題欄中顯示的信息是：A)Microsoft VisualB)MicrosoftC)BasicD)5(15)設(shè)a=”a”b=”b”c=”c”d=”d”執(zhí)行語句x=Iif(ad)”A”B”)后，x的值為：A)”a”B)”b”C)”B”D)”A”(16)為了使命令按鈕(名稱為Command1)右移200，應(yīng)使用的語句是A)Command1.Move -200B) Command1.Move 200C) Command1.Left= Command1.Left200D) Command1.Left= Command1.Left-200(17)在窗體上畫一個(gè)文本框，然后編寫如下事件過程：Private Sub Form_Click()x = InputBox("請(qǐng)輸入一個(gè)整數(shù)")Print x Text1.TextEnd Sub程序運(yùn)行時(shí)，在文本框中輸入456，然后單擊窗體，在輸入對(duì)話框中輸入123，單擊“確定”按鈕后，在窗體上顯示的內(nèi)容是：A)123B)456C)579D)123456（18）在窗體上畫一個(gè)文本框和一個(gè)計(jì)時(shí)器控件，名稱分別為Text1和Timer1在屬性窗口中把計(jì)時(shí)器的Interval屬性設(shè)置為1000，Enabled屬性設(shè)置為False程序運(yùn)行后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當(dāng)前的時(shí)間。以下是實(shí)現(xiàn)上述操作的程序：Private Sub Command1_Click()Timer1._End SubPrivate Sub Timer1_Timer()Text1.Text = TimeEnd Sub在_處應(yīng)填入的內(nèi)容是A)Enabled=TrueB)Enabled=FalseC)Visible=TrueD)Visible=False(19)假定在圖片框Picture1中裝入了一個(gè)圖形，為了清除該圖形（不刪除圖片框），應(yīng)采用的正確方法是：A)選擇圖片框，然后按Del鍵B)執(zhí)行語句Picture1.Picture=LoadPicture(“”)C)執(zhí)行語句Picture1.Picture=”D)選擇圖片框，在屬性窗口中選擇Picture屬性，然后按回車鍵（20）在窗體上畫一個(gè)List1的列表框，一個(gè)名稱為Label1的標(biāo)簽，列表框中顯示若干個(gè)項(xiàng)目，當(dāng)單擊列表框中的某個(gè)項(xiàng)目時(shí)，在標(biāo)簽中顯示被選中的項(xiàng)目的名稱，下列能正確實(shí)現(xiàn)上述操作的程序是A) Private Sub List1_Click()Label1.Caption = List1.ListIndexEnd SubB) Private Sub List1_Click()Label1.Name = List1.ListIndexEnd SubC) Private Sub List1_Click()Label1.Name = List1.TextEnd SubD) Private Sub List1_Click()Label1.Caption = List1.TextEnd Sub（21）在窗體上畫一個(gè)命令按鈕，名稱為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程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為A)9B)6C)12D)15（22）在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()c = "ABCD"For n = 1 To 4Print _NextEnd Sub程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：DCDBCDABCD則在_處應(yīng)填入的內(nèi)容為A)Left(cn)B)Right(cn)C)Mid(cn1)D)Mid(cnn)(23)執(zhí)行以下程序段Dim x As Integer i As Integerx=0For i = 20 To 1 Step -2x = x i 5Next I后，x的值為A)16B)17C)18D)19（24）在Visual Basic工程中，可以作為啟動(dòng)對(duì)象的程序是A)任何窗體或標(biāo)準(zhǔn)模塊B)任何窗體或過程C)Sub Main過程或其他任何模塊D)Sub Main過程或任何窗體(25)假定建立了一個(gè)名為Command1的命令按鈕數(shù)組，則以下說法中錯(cuò)誤的是A)數(shù)組中每個(gè)命令按鈕的名稱(名稱屬性)均為Command1B)數(shù)組中每個(gè)命令按鈕的標(biāo)題(Caption屬性)都一樣C)數(shù)組中所有命令按鈕可以使用同一個(gè)時(shí)間過程D)用名稱Command1(下標(biāo))可以訪問數(shù)組中的每個(gè)命令按鈕(26)把窗體的KeyPreview屬性設(shè)置為True然后編寫如下事件過程:Private Sub Form_KeyPress(KeyAscii As Integer)Dim ch As Stringch = Chr(KeyAscii)KeyAscii = Asc(UCase(ch)Print Chr(KeyAscii 2)End Sub程序運(yùn)行后按鍵盤上的”A”鍵則在窗體上顯示的內(nèi)容是A)AB)BC)CD)D(27)在窗體上畫一個(gè)命令按鈕和一個(gè)文本框名稱分別為Command1和Text1然后編寫如下程序:Private Sub Command1_Click()a = InputBox("請(qǐng)輸入日期(131)")t = "旅游景點(diǎn):" _& IIf(a > 0 And a <= 10 "長城" "") _& IIf(a > 10 And a <= 20 "故宮" "") _& IIf(a > 20 And a <= 30 "頤和園" "")Text1.Text = tEnd Sub程序運(yùn)行后如果從鍵盤輸入16則在文本框中顯示的內(nèi)容是:A)旅游景點(diǎn)：長城故宮B)旅游景點(diǎn)：長城頤和園C)旅游景點(diǎn)：頤和園D)旅游景點(diǎn)：故宮(28)在窗體上畫一個(gè)名稱為Label1的標(biāo)簽然后編寫如下事件過程:Private Sub Form_Click()Dim arr(10 10) As IntegerDim i As Integer j As IntegerFor i = 2 To 4For j = 2 To 4arr(i j) = i * jNext jNext iLabel1.Caption = Str(arr(2 2) arr(3 3)End Sub程序運(yùn)行后單擊窗體在標(biāo)簽中顯示的內(nèi)容是A)12B)13C)14D)15(29) 在窗體上畫一個(gè)名稱為Comamnd1的命令按鈕然后編寫如下通用過程和命令按鈕的事件過程:Private Function fun(ByVal m As Integer)If m Mod 2 = 0 Thenfun = 2Elsefun = 1End IfEnd FunctionPrivate Sub Command1_Click()Dim i As Integer s As Integers = 0For i = 1 To 5s = s fun(i)NextPrint sEnd Sub程序運(yùn)行后單擊命令按鈕則窗體上顯示的是:A)6B)7C)8D)9(30)閱讀程序:Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer j As IntegerReDim arr(3 2)For i = 1 To 3For j = 1 To 2arr(i j) = i * 2 jNext jNext iReDim Preserve arr(3 4)For j = 3 To 4arr(3 j) = j 9Next jPrint arr(3 2) arr(3 4)End Sub程序運(yùn)行后單擊窗體輸出結(jié)果為:A)21B)13C)8D)25(31)在窗體上畫一個(gè)名稱為Command1的命令按鈕然后編寫如下程序:Option Base 1Private Sub Command1_Click()Dim c As Integer d As Integerd = 0c = 6x = Array(2 4 6 8 10 12)For i = 1 To 6If x(i) > c Thend = d x(i)c = x(i)Elsed = d - cEnd IfNext iPrint dEnd Sub程序運(yùn)行后如果單擊命令按鈕則在窗體上輸入的內(nèi)容為A)10B)16C)12D)20(32)設(shè)有如下程序:Private Sub Command1_Click()Dim c As Integer d As Integerc = 4d = InputBox("請(qǐng)輸入一個(gè)整數(shù)")Do While d > 0If d > c Thenc = c 1End Ifd = InputBox("請(qǐng)輸入一個(gè)整數(shù)")LoopPrint c dEnd Sub程序運(yùn)行后單擊命令按鈕如果在輸入對(duì)話框中依次輸入1、2、3、4、5、6、7、8、9、0則輸出結(jié)果是:A)12B)11C)10D)9(33)在窗體上畫一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為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" ThenPrint #1 LCase(c)End IfNext iCloseEnd Sub程序運(yùn)行后單擊命令按狃文件outf.txt中的內(nèi)容是:A)MVBPB)mvbpC)MVBPD)mvbp(34)在窗體上畫一個(gè)名稱為Command1的命令按鈕然后編寫如下程序:Dim SW As BooleanFunction func(X As Integer) As IntegerIf X < 20 ThenY = XElseY = 20 XEnd Iffunc = YEnd FunctionPrivate Sub Command1_Click()Dim intNum As IntegerintNum = InputBox("")If SW ThenPrint func(intNum)End IfEnd SubPrivate Sub Form_MouseDown(Button As Integer Shift As Integer X As Single Y As Single)SW = FalseEnd SubPrivate Sub Form_MouseUp(Button As Integer Shift As Integer X As Single Y As Single)SW = TrueEnd Sub程序運(yùn)行后單擊命令按鈕將顯示一個(gè)輸入對(duì)話框如果在對(duì)話框中輸入25則程序的執(zhí)行結(jié)果是:A)輸出0B)輸出25C)輸出45D)無任何輸出(35) 設(shè)有如下通用過程:Public Sub fun(a() As Integer x As Integer)F