【文章內容簡介】 3 27第83題:下列程序段的執(zhí)行結果為( C )。Dim M(2)For i=1 To 2 M(i)=0Next iK=2For I =1 To k For j=1 To k M(j)=M(i)+1 Print M(k)。 Next jNext IA）1 2 2 3 B）1 2 3 4 C)0 2 2 3 D)0 1 2 3 第84題:有如下程序Dim arr (3,3)For j=1 To 3 For k=1 To 3 arr(j,k)=(j1)*3+k Next kNext jFor j=2 To 3 For k=2 To 3 Print arr(k,j)。Next kPrintNext j運行后，輸出的結果是( B )。A）2 5 3 6B）5 8 6 9C）4 7 5 8D）5 9 6 8第85題:語句Dim abc(2 To 4,0 To 4,5)As Long 定義的三維數組，其數組元素有( D )。A）96個 B）112個 C）140個 D）210個第86題:下列程序段的執(zhí)行結果為( B )。Dim A(4)n=3A(1)=1For k =0 To n1 For l=1 To k+1 X=k+21 A(X)=A(X)+A(X1) If kn1 Then Exit For Print A(X)。 Next lNext kA）1 2 1 B）1 2 3 C)2 4 6 D)1 3 1第87題:有如下程序，運行后輸出的是( D )。Option Base 1Private Sub Command1_click() Dim aj(1 To 10) For j=6 To 10 Aj(j)=j*2 Next j Print aj(1)+aj(j)End SubA)5 B)20 C)22 D)顯示出錯信息第88題:下列程序的輸出結果為( A )。Private Sub Command1_click() Dim a(20) For j=1 To 20 Step 2 A(j)=j Next j Print a(1)+a(2)+a(3)End SubA)4 B)5 C)6 D)7第89題:使用Redim Preserve可以改變數組的( A )。A）最后一維的大小 B）第一維的大小 C）所有維的大小 D）改變維數和所有維的大小第90題:以下程序的輸出結果是( C )Private Sub Command1_click() Dim a(5 To 6) For i=Lbound (a,1) To UBound (a,1) A(i)=i Next i Print a(Lbound(a,1) )。a(Ubound(a,1))End SubA)0 0 B)5 0 C)5 6 D)0 6第91題:以下正確的描述是 B在visual basic應用程序中 ，但過程的調用不能嵌套 ，但過程的調用可以嵌套 第92題:閱讀程序 function f(a as integer) b=0 static c b=b+1 c=c+1 f=a+b+c end function private sub mand1_click() dim a as integer a=2 for i=1 to 3 print f(a) next i end sub 運行上面的程序，單擊命令按鈕，輸出結果為 B 4 5 6 7 4 6 8 9 第93題:閱讀程序： sub subp(b() as integer) for i=1 to 4 b(i) = 2 * i next i end sub private sub mand1_click() dim a(1 to 4) as integer a(1) = 5 a(2) = 6 a(3) = 7 a(4) = 8 subp a() for i= 1 to 4 print a(i) next i end sub 運行上面的程序，單擊命令按鈕，輸出結果為 A 4 6 12 6 7 14 8 8 16 第94題:假定有以下兩個過程： sub s1 (by val x as integer, by val y as integer) dim t as integer t=x x=y y=t end sub sub s2(x as integer, y as integer) dim t as integer t=x x=y y=t end sub 則以下說法中正確的是 B，s2不能實現 ，s1不能實現 第95題:假定有下面的過程： function func(a as integer, b as integer) as integer static m as integer, i as integer m=0 i=2 i=i+m+1 m=i+a+b func=m end function 在窗體上畫一個命令按鈕，然后編寫如下事件過程： private sub mand1_click() dim k as integer,m as integer dim p as integer k=4 m=1 p=func(k,m) print p。 p = func(k, m) print p end sub 程序運行后，單擊命令按鈕，輸出結果為 D 17 16 20 8第96題:在窗體上畫一個名稱為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程序運行后,單擊命令按鈕,則窗體上顯示的是:BA)6B)7C)8D)9第97題:設有如下通用過程：Public Sub Fun(a(), ByVal x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下的事件過程：Private Sub Command1_Click()Dim arr(5) As VariantFor i = 1 To 5arr(i) = iNextn = 10Call Fun(arr(), n) = nEnd Sub程序運行后，單擊命令按鈕，則在文本框中顯示的內容是AA）10 B）15 C）25 D）24第98題:編寫如下兩個事件過程：　　 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)　　　　　 Print Chr(KeyCode)　　 End Sub　　 Private Sub Form_KeyPress(KeyAscii As Integer)　　　　　 Print Chr(KeyAscii)　　 End Sub　　在一般情況下(即不按住Shift鍵和鎖定大寫)，運行程序，如果按“A”鍵，則程序的輸出是A 　　 　　 　　 a 　　　 A 　　 　A　　 　a第99題:在窗體上畫一個命令按鈕和一個文本框，并把窗體的KeyPreview屬性設置為True，然后編寫如下代碼：　　　Dim SaveAll As String　　　Private Sub Form_Load()　　　　　　Show　　　　　　 = 　　　　　　　　　End Sub　　　　　Private Sub Command1_Click()　　　　　　 = UCase(SaveAll)　　　End Sub　　　　 Private Sub Form_KeyPress(KeyAscii As Integer)　　　　　SaveAll = SaveAll + Chr(KeyAscii)　　 End Sub　　程序運行后，在鍵盤上輸入 abcdefg，單擊命令按鈕，則文本框中顯示的內容為C 第100題:在上題中，如果把窗體的KeyPreview屬性設置為False，則文本框中顯示的內容為B 　 第101題:在窗體上畫一個文本框，然后編寫如下事件過程：　　　Private Sub Text1_KeyPress(KeyAscii As Integer)　　　　　　Dim char As String　　　　　　char = Chr(KeyAscii)　　　　　　KeyAscii = Asc(UCase(char))　　　　　　 = String(6, KeyAscii)　　　End Sub　　程序運行后，如果在鍵盤上輸入字母“a”，則文本框中顯示的內容為D 第102題:把窗體的KeyPreview屬性設置為True，然后編寫如下過程：　　 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)　　　　　 Print Chr(KeyCode)　　 End Sub　　　　 Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)　　　　　 Print Chr(KeyCode + 2)　　 End Sub程序運行后，如果按“A”鍵，則輸出結果為 C 　　 　　 　　 　 A 　　 　 B　　 　　C 　　　D第103題:假定編寫了如下事件過程：　Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)　　　If(Button And 3) = 3 Then　　　　　Print \AAAA\　　　End If　End Sub　　程序運行后，為了在窗體上輸出“AAAA”，應按下的鼠標鍵為 C 、右 第104題:假定編寫了如下事件過程：　Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)　　　　If(Button And 3) = 3 Then　　　　　　Print \AAAA\　　　　End If　End Sub　　程序運行后，為了在窗體上輸出“AAAA”，應按下的鼠標鍵為 C 、右 第105題:編寫如下事件過程：　　　Private Sub Form_MouseDown(Button As Integer, _　　　　　　　　　　　　　　　 Shift As Integer, X As Single, Y As Single)　　　　　　If Shift = 6 And Button = 2 Then　　　　　　　　　 Print \BBBB\　　　　　　End If　　　End Sub　　程序運行后，為了在窗體上輸出“BBBB”，應執(zhí)行的操作為 B 、Alt鍵和鼠標右鍵 、Alt鍵和鼠標左鍵第106題:在窗體（名稱為Form1）上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫一個事件過程。程序運行以后，如果在文本框中輸入一個字符，則把命令按鈕的標題設置為“計算機等級考試”。以下能實現上述操作的事件過程是：A 　　A)Private Sub Text1_Change() 　　 =”計算機等級考試” 　　 End Sub 　　B) Private Sub Command