【正文】
程序 B.不同的對象可以具有相同名稱的方法 C.對象的方法是執(zhí)行指定操作的過程 D.對象事件的名稱可以由編程者指定 (12)以下合法的Visual Basic標(biāo)識符是 A.ForLoop B.Const C.9abc D.a(chǎn)x (13)當(dāng)一個復(fù)選框被選中時,它的Value屬性的值是 A.3 B.2 C.1 D.0 (14)表達(dá)式 5 Mod 3+3\5*2的值是 A.0 B.2 C.4 D.6 (15)設(shè)x=4,y=8,z=7,以下表達(dá)式的值是 x z)Or z A.1 B.1 C.True D.False (16)在窗體上畫一個名稱為Command1的命令按鈕,然后編寫如下事件過程: Private Sub Command1_Click() a$=VisualBasic Print String(3,a$) End Sub 程序運(yùn)行后,單擊命令按鈕,在窗體上顯示的內(nèi)容是 A.VVV B.Vis C.sic D.11 (17)設(shè)有如下程序段: x=2 For i=1 To 10 Step 2 x=x+i Next 運(yùn)行以上程序后,x的值是 A.26 B.27 C.38 D.57 (18)以下敘述中錯誤的是 A.在KeyPress事件過程中不能識別鍵盤的按下與釋放 B.在KeyPress事件過程中不能識別回車鍵 C.在KeyDown和KeyUp事件過程中,將鍵盤輸入的A和a視作相同的字母 D.在KeyDown和KeyUp事件過程中,從大鍵盤上輸入的1和從右側(cè)小鍵盤上輸入的1被視作不同的字符 (19)執(zhí)行如下兩條語句,窗體上顯示的是 a= Print Format(a,$00,) A.0, B.$ C. D.$0, (20)在窗體上畫一個名稱為CommandDialog1的通用對話框,一個名稱為Command1的命令按鈕。10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b()As Integer,n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i)/2=b(i)\2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub 以下敘述中錯誤的是 A.?dāng)?shù)組b中的偶數(shù)被保存在數(shù)組c中 B.程序運(yùn)行結(jié)束后,在窗體上顯示的是c數(shù)組中元素的個數(shù) C.GetArray過程的參數(shù)n是按值傳送的 D.如果輸入的數(shù)據(jù)大于10,則窗體上不顯示任何顯示 (24)在窗體上畫一個名稱為Command1的命令按鈕,然后編寫如下事件過程: Option Base 1 Private Sub Command1_Click() Dim a a= Array(1,2,3,4,5) For i=1 To UBound(a) a(i)= a(i)+i1 Next Print a(3) End Sub 程序運(yùn)行后,單擊命令按鈕,則在窗體上顯示的內(nèi)容是 A.4 B.5 C.6 D.7 (25)閱讀程序 Option Base 1 Private 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 Sum End Sub 程序運(yùn)行后,單擊窗體,輸出結(jié)果為 A.13 B.14 C.27 D.15