【正文】 then opt=Option1(i).Caption End If Next Select Case [4] Case” +” Result=Val()+Val() Case” ” Result=Val()Val() Case” *” Result=Val()*Val() Case” /” Result=Val()/Val() End Select [5] =Result End Sub (3) 在窗體上畫一個(gè)名稱為 Command1 的命令按鈕和一個(gè)名稱為 Text1 的文本框。要求當(dāng)執(zhí)行事件過(guò)程 Command1_Click 時(shí)，在順序文件 中寫入一條記錄。 Next J Print Next I End Sub 程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是 A) BB B) A C) B D) AA CC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD (16) 圖像框有一個(gè)屬性，可以自動(dòng)調(diào)整圖形的大小，以適應(yīng)圖像框的尺寸，這個(gè)屬性是 A) Autosize B) Stretch C) AutoRedraw D) Appearance (17) 在窗體上畫兩個(gè)名稱分別為 Text Texte2 的文本框和一個(gè)名稱為 Command1 的命令按鈕，然后編寫如下事件過(guò)程： Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0 Do While x20 x=x*3 n=n+1 Loop =Str(x) =Str(n) End Sub 程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別是 A) 15 和 1 B) 27 和 3 C) 195 和 3 D) 600 和 4 (18) 在窗體上畫一個(gè)名稱為 Text1 的文本框和一個(gè)名稱為 Command1 的命令按鈕，然后編寫如下事件過(guò)程： Private Sub Command1_Click() Dim i As Integer,n As Integer For I=0 To 50 i=i+3 n=n+1 If i10 Then xit for Next =Str(n) End Sub 程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是 A) 2 B) 3 D) 4 D) 5 (19) 在窗體上畫一個(gè)名稱為 Text1 的文本框和一個(gè)名稱為 Command1 的命令按鈕，然后編寫如下事件過(guò)程： Private Sub Command1_Click() Dim array1(10,10) As Integer Dim i,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next I =array1(2,3)+array1(3,4) End Sub 程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是 A) 12 B) 13 C) 14 D) 15 (20) (20) 在窗體上畫一個(gè)名稱為 Command1 的命令按鈕，然后編寫如下程序： Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i1)*3+j Print a(i,j)。 (1) 在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某個(gè)控件時(shí)，所打開(kāi)的窗口是 A) 工程資源管理器窗口 B) 工具箱窗口 C) 代碼窗口 D) 屬性窗口 (2) 以下敘述中正確的是 A) 窗體的 Name 屬性指定窗體的名稱， 用來(lái)標(biāo)識(shí)一個(gè)窗體 B) 窗體的 Name 屬性的值是顯示在窗體標(biāo)題欄中的文本 C) 可以在運(yùn)行期間改變對(duì)象的 Name 屬性的值 D) 對(duì)象的 Name 屬性值可以為空 (3) 剛建立一個(gè)新的標(biāo)準(zhǔn) EXE 工程后，不在工具箱中出現(xiàn)的控件是 A) 單選按鈕 B) 圖片框 C) 通用對(duì)話框 D) 文本框 (4) 設(shè)有如下變量聲明 Dim TestDate As Date 為變量 TestDate 正確賦值的表達(dá)方式是 A) TextDate=1/1/20xx B) TestDate=“ 1/1/20xx” C) TextDate=date(“ 1/1/20xx” ) D) TestDate=Format(“ m/d/yy” ,“ 1/1/20xx” ) (5) 設(shè)有如下聲明： Dim X As Integer 如果 Sgn(X) 的值為 1，則 X 的值是 A) 整數(shù) B) 大于 0 的整數(shù) C) 等于 0 的整數(shù) D) 小于 0 的數(shù) (6) 在窗體上畫一個(gè)名稱為 Commandl 的命令按鈕，然后編寫如下程序： Private Sub Command1_Click() Static X As Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X Print X,Y End Sub 程序運(yùn)行時(shí)，三次單擊命令按鈕 Commandl 后，窗體上顯示的結(jié)果為 A) 15 16 B) 15 6 C) 15 15 D) 5 6 (7) 設(shè) a=3,b=5，則以下表達(dá)式值為真的是 A) a=b And b10 B) (ab)Or(b0) C) (a0)Eqv(b0) D) (3+5a)And(b0) (8) 設(shè)有語(yǔ)句 x=InputBox(“輸入數(shù)值”，“ 0”，“示例” ) 程 序運(yùn)行后，如果從鍵盤上輸入數(shù)值 10 并按回車鍵，則下列敘述中正確的是 A) 變量 X 的值是數(shù)值 10 B) 在 InputBox 對(duì)話框標(biāo)題欄中顯示的是“示例” C) 0 是默認(rèn)值 D) 變量 X 的值是字符串“ 10” (9) 從鍵盤上輸入兩個(gè)字符串，分別保存在變量 str str2 中。程序運(yùn)行后，如果單擊命令按鈕，則顯示一個(gè)輸入對(duì)話框，在該對(duì)話框中輸入一個(gè)整數(shù)，并用這個(gè)整數(shù)作為實(shí)參調(diào)用函數(shù)過(guò)程 F1。程序運(yùn)行后，如果單擊滾動(dòng)條兩端的箭頭，則在標(biāo)簽 Lable2 中顯示滾動(dòng)條的值，如圖所示。請(qǐng)?jiān)? [6] 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。 (8) 為了改變計(jì)時(shí)器控件的時(shí)間間隔，應(yīng)該修改該控件的 [13] 屬性。列表框中顯示若干城市的名稱。運(yùn)行后的窗體外觀如圖所示。 (2) (2) Visual Basic 提供的對(duì)數(shù)據(jù)文件的三種訪問(wèn)方式為隨機(jī)訪問(wèn)方式、 【 2】 和二進(jìn)制該問(wèn)方式。b End Sub Sub p1(x As Inteer,ByVal y As Integer) x=x+10 y=y+20 End Sub Sub p2(ByVal x As Integer,y As Integer) x=x+10 y=y+20 End Sub Sub p3(ByVal x As Integer,y As Integer) x=x+10 y=y+20 End Sub 該程序運(yùn)行后，單擊窗體，則在窗體上顯示的內(nèi)容是： a= 【 9】 和 b= 【 10】 。則以下能表示當(dāng)前被選中的列表項(xiàng)內(nèi)容的是 A) B) C) D) (9) 程序運(yùn)行后，在窗體上單擊鼠標(biāo)，此時(shí)窗體不會(huì)接收到的事件 是 A) MouseDown B) MouseUp C) Load D) Click (10) 設(shè) a=10, b=5, c=1, 執(zhí)行語(yǔ)句 Print abc 后，窗體上顯示的是 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) LOF D) EOF (13) 如果一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是 A) 如果工種中含有 Sub Main 過(guò)程，則程序一定首先執(zhí)行該過(guò)程 B) 不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊 C) 用 Hide 方法只是隱藏一個(gè)窗體，不能從內(nèi)存中清除該窗體 D) 任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體 (14) 窗體的 MouseDown 事件過(guò)程 Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 有 4 個(gè)參數(shù)，關(guān)于這些參數(shù)，正確的描述是 A) 通過(guò) Button 參數(shù)判定當(dāng)前按下的是哪一個(gè)鼠標(biāo)鍵 B) Shift 參數(shù)只能用來(lái)確定是否按下 Shift 鍵 C) Shift 參數(shù)只能用來(lái)確定是否按下 Alt 和 Ctrl 鍵 D) 參數(shù) x， y 用來(lái)設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo) (15) 設(shè)組合框 Combol 中有 3 個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語(yǔ)句是 A) Text B) 2 C) 3 D) (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 順序不起作用 C D) 可以用 TabIndex 屬性改變 Tab 順序 (17) 如果要在菜單中添加一個(gè)分隔線，則應(yīng)將其 Caption 屬性設(shè)置為 A) = B) * C) amp。 (1) 執(zhí)行下面的程序段后， i 的值為 【 1】 ， s 的值為 【 2】 。y End Sub 程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是 A) 10 5 B) 20 5 C) 20 40 D) 10 40 (24) 設(shè)有如下通用過(guò)程 : Public Sub Fun (a(),ByVal x As Integer) For i =1 To 5 x=x+a(i) Next End Sub 在窗體上畫一個(gè)名稱為 Text1 的文本框和一個(gè)名稱為 Command1 的命令按鈕，然后編寫如下的事件過(guò)程： Private Sub Command1_ Click() Dim arr(5) As Variant For i=1 To 5 arr(i)=i Next n=10 Call Fun(arr(),n) =n End Sub 程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是 A) 10 B) 15 C) 25 D) 24 (25) 在窗體上畫一個(gè)名稱為 Command1 的命令按鈕，然后編寫如下代碼 : Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10, 12, 21, 32, 24) For i= 1 To 5 If x(i) c Then d=d+x(i) c=x(i) Else d=dc End If Next i Print d End Sub 程序運(yùn)行后，如果單擊命令按鈕，則在窗體上輸出的內(nèi)容為 A) 89 B) 99 C) 23 D) 77 (26) 在窗體上畫兩個(gè)滾動(dòng)條，名稱分別為 Hscroll Hscroll2；六個(gè)標(biāo)簽，名稱分別為 Labe11?Labe1 Labe1 Labe1 Labe1 Labe1其中標(biāo)簽 Labe14~Labe16 分別顯示“ A”、“ B”、“ A*B”等文字信息，標(biāo)簽 Labe1 Labe12 分別顯示其右側(cè)的滾動(dòng)條的數(shù)值，Labe13 顯示 A*B 的計(jì)算結(jié)果。請(qǐng)?jiān)?【 12】、【 13】和【 14】處將程序補(bǔ)充完整。 (6) (6) 以下程序的功能是：生成 20 個(gè) 200 到 300 之間的隨機(jī)整數(shù)，輸出其中能被５整除的數(shù)并求出它們的和。要求單擊命令按鈕時(shí)，打開(kāi)一個(gè)保存文件的通用對(duì)話框。為實(shí)現(xiàn)此 功能，省略號(hào)處的程序段應(yīng)該是 A) For i=0 to 51\2 tmp=b(i) b(i)=b(5i1) b(5i1)=tmp Next B) For i=0 to 5 tmp=b(i) b(i)=b(5i1) b(5i1