【文章內(nèi)容簡(jiǎn)介】 nd1_Click() Dim city As Variant city = Array(北京 , 上海 , 天津 , 重慶 ) Print city(1) End Sub 程序運(yùn) 行后，單擊命令按鈕，輸出結(jié)果是 _______。 D A. 空白 B. 錯(cuò)誤提示 C. 北京 D. 上海 56 以下程序運(yùn)行的結(jié)果是 _______。 D Option Base 1 Private Sub Command1_Click() Dim a,b(3,3) a=array(1,2,3,4,5,6,7,8,9) For i=1 To 3 For j=1 To 3 b(i,j)=a(i*j) If (j=i) Then Print Tab(j*3)。Format(b(i,j), )。 Next j Print Next i End Sub A. 1 2 3 B. 1 C. 1 4 7 D. 1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 9 57 在窗體上畫一個(gè)命令按鈕 Command1，然后編寫如下代碼： Private Sub Command1_Click() Dim arr1(10), arr2(10) As Integer n = 3 For i = 1 To 5 arr1(i) = i arr2(n) = 2 * n + i Next i Print arr1(n),arr2(n)。 End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是 _______。 B A. 11 3B. 3 11 C. 13 3 D. 3 13 58 在窗體上畫一個(gè)命令按鈕 Command1，然后編寫如下代碼： Private Sub Command1_Click() Dim a(4, 4) For i = 1 To 4 數(shù)組 city（）的最小下標(biāo)為默認(rèn)值，就是 0 設(shè)置各個(gè)數(shù)組的默認(rèn)最小下標(biāo)值為 1 i 是數(shù)組元素的行 , j是數(shù)組元素的列， j=i時(shí)執(zhí)行 print（也就是輸出該數(shù)組元素值），則， ji 的時(shí)候 ,也就是列的號(hào)碼小于行的號(hào)碼時(shí)候 ,不輸出該元素 ,也就是只輸出二維數(shù)組對(duì)角線及上方的數(shù)組元素 n 一直都是 3,則 ,本語句就是對(duì)數(shù)組arr2 的下標(biāo)為 3 的元素賦值 。 輸出兩個(gè)數(shù)組的下標(biāo)為 3 的元素 。 Print 語句后面什么都不帶，就是輸出空行。 作用是換行 這里 i 在 j的前面， i 代表行號(hào)， j 代表列號(hào) 省二級(jí)考試 VB 試題匯總 第 8 頁 共 79 頁 For j = 1 To 4 a(i, j) = (i 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i)。 Next j Print Next i End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是 _______。 D A. 6 9 B. 7 10 C. 8 11 D. 9 12 7 10 8 11 9 12 10 13 59 有如下程序： Private Sub Form_Load() Dim arr1(10, 10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4 arr1(i, j) = i + j Next j Next i = arr1(2, 3) + arr1(3, 4) End Sub 程序運(yùn)行后，單擊窗體，在文本框顯示的值是 _______。 C A. 5 B. 7 C. 12 D. 20 60 在窗體上添加一個(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 = d c End If Next i Print d End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是 _______。 C A. 89 B. 99 C. 23 D. 77 i是數(shù)組元 素的行號(hào) ,j是數(shù)組元素的列號(hào) 。i和 j又分別為外層循環(huán)和內(nèi)層循環(huán)的循環(huán)變量 60題 這類試題沒有好方法，就是代入值，讀程序 i x(i)c （這個(gè)表達(dá)式的值決定了在if語句中到底執(zhí)行哪個(gè)分支） 在 if語句中執(zhí)行 的分支 c d x(i) 1 FALSE 部分 Else 10 10 10 2 TRUE 部分 Then 12 2 12 3 TRUE 部分 Then 21 23 21 4 TRUE 部分 Then 32 55 32 5 FALSE 部分 else 32 23 24 這里 i 在 j的后， j代表行號(hào)， i代表列號(hào) 省二級(jí)考試 VB 試題匯總 第 9 頁 共 79 頁 61 下列語句聲明的數(shù)組 a 包含的元素個(gè)數(shù)有 _______。 A Dim a(3 ， 2 to 2， 5) A. 120 B. 75 C. 60 D. 13 62 定義數(shù)組 Array(1 to 5 , 5)后，下列哪一個(gè)數(shù)組元素不存在 _______。 C A. Array(1,1) B. Array(1,0) C. Array(0,1) D. Array(5,5) 63 在 Visual Basic 應(yīng)用程序中，以下描述正確的是 _______。 B A. 過程的定義可以嵌套 ，但過程的調(diào)用不能嵌套 B. 過程的定義不可以嵌套，但過程的調(diào)用可以嵌套 C. 過程的定義和過程的調(diào)用均可以嵌套 D. 過程的定義和過程的調(diào)用均不可以嵌套 64 假定有如下的 Sub 過程： Sub swapp(x As Single, y As Single) t = x x = t / y y = t Mod y End Sub 在窗體上添加一個(gè)命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim a As Single Dim b As Single a = 5: b = 4 swapp a, b Print a, b End Sub 程序運(yùn)行時(shí)，單擊命令按鈕得到的結(jié)果是 _______。 D A. 5 4 B. 1 1 C. 4 D. 1 65 以下程序的運(yùn)行結(jié)果是 _______。 C Function fun(a As Integer) b = 0 Static c b = b + 1 c = c + 1 fun = a + b + c 39。 End Function Private Sub Command1_Click() Dim a As Integer a = 2 For i = 1 To 3 Sum = Sum + fun(a) Next i Print Sum End Sub A. 24 B. 12 C. 15 D. 32 66 閱讀程序： 因?yàn)槟J(rèn)的 最小下標(biāo) 為 0 這個(gè)三維數(shù)組可以認(rèn)為 ,有 4 個(gè)二維數(shù)組 。每個(gè)二維數(shù)組有 5 個(gè)一維數(shù)組 ,每個(gè)一維數(shù)組有 6 個(gè)元素 參數(shù)是按地址傳送 ,過程內(nèi)部如果對(duì)參數(shù)作了改動(dòng) ,會(huì)影響到 實(shí)參 變量 : 是分隔寫在一行中的多個(gè)語句 a 和 b 是實(shí)參 ,swapp 運(yùn)行時(shí) a 和 b 的值將被改變 按地址傳送參數(shù) c 是靜態(tài)變量 ,屬于過程級(jí)變量，但是過程執(zhí)行完畢的時(shí)候 ,其值仍被保留 ,直到程序運(yùn)行結(jié)束才會(huì)被清除 39。 第一次執(zhí)行本語句后 ,c=1。第 二次執(zhí)行本語句后 ,c=2。 第二次執(zhí)行完本語句 ,c=3 省二級(jí)考試 VB 試題匯總 第 10 頁 共 79 頁 Sub subp(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub Private Sub Command1_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 程序運(yùn)行時(shí)，單擊命令按鈕得到的結(jié)果是 _______。 A A. 2 4 6 8 B. 5 6 7 8 C. 10 12 14 16 D. 出錯(cuò) 67 假定有以下兩個(gè)過程： Sub s1(ByVal x As Integer, ByVal 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 A. 用過程 S1 可以實(shí)現(xiàn)交換兩個(gè)變