【正文】 。 B A. 444 B. 123321 C. 321123 D. 132231108 在窗體上添加三個文本框，名稱分別為TextTextText3，一個命令按鈕Command1。如果在Text1中輸入150，Text2中輸入數(shù)200，則執(zhí)行下列程序后，Text3中顯示的數(shù)為_______。 DPrivate Sub Command1_Click() Dim m As Integer, n As Integer m = Val() n = Val() If m n Then t = m: m = n: n = t End If Do r = m Mod n m = n n = r Loop While r 0 = Str(m)End Sub A. 200 B. 150 C. 100 D. 50109 以下程序段的執(zhí)行結(jié)果是_______。 Ba=10:y=0 Do a=a+2 y=y+a If y20 Then Exit Do End If Loop While a=14Print a=。a。y=。y A. a=18 y=24 B. a=14 y=26 C. a=14 y=24 D. a=12 y=12 110 以下敘述中錯誤的是_______。AA）在工程資源管理器窗口中只能包含一個工程文件及屬于該工程的其他文件 B）C）窗體文件包含該窗體及其控件的屬性 D）一個工程中可以含有多個標準模塊文件111 關(guān)于VB中的監(jiān)視表達式，錯誤的敘述是_______。 AA）監(jiān)視表達式不能引起中斷 B）可使監(jiān)視表達式為真時引起中斷 C）可使監(jiān)視表達式的值變化時引起中斷 D）監(jiān)視表達式可以監(jiān)視對象 112 以下程序段的運行結(jié)果是_______。 CPrivate Sub Form_Click() Dim x() As String a = How are you! n = Len(a) ReDim x(1 To n) For i = n To 1 Step 1 x(i) = Mid(a, i, 1) Next I For i = 1 To n Print x(i)。 Next i End Sub A. !uoy era woH B. !uoy era woh C. How are you! D. how are you! 113 以下程序段的運行結(jié)果是_______。 DPrivate Sub Form_Click() Dim nsum As Integer nsum = 1 For i = 2 To 4 nsum = nsum + factor(i) Next i Print nsum End Sub Function factor(ByVal n As Integer) As Integer Dim temp As Integer temp = 1 For i = 1 To n temp = temp * i Next i factor = temp End Function A. 10 B. 13 C. 23 114 以下程序段的運行結(jié)果是_______。 CPrivate Sub Form_Click() Dim s As String, once As String, sum As Integer For i = 1 To 5 once = InputBox(請輸入一個字符) 39。分別輸入A,C,A,D,E sum = sum + checks(once, s) Next i Print s。 sumEnd Sub Private Function checks(ByVal x As String, y As String) As Integer If x A Then y = y + x checks = 1 End If End Function A. ACA 3 B. ACA 5 C. CDE 3 5 115 以下程序段的運行結(jié)果是_______。 BPrivate Sub Form_Click() Dim i As Integer, y As Integer i = 0 Do While i = 4 y = fa(i + 1) i = i + 1 Loop Print y End Sub Function fa(x As Integer) As Integer Dim term As Integer, i As Integer term = 1 For i = 1 To x term = term * i Next i fa = term End Function A. 110 B. 120 C. 130 D. 140 116 運行下列程序時，如果連擊3次cmd1，且輸入9，3，16，獲得的運行結(jié)果分別是_______。 CPrivate Sub Cmd1_Click() Dim x As Integer Dim y As Integer x = Val(InputBox(輸入數(shù)據(jù))) If Int(Sqr(x)) Sqr(x) Then y = x * x Else y = Sqr(x) End If = Str(y) End Sub A. 4 B. 8256 C. 4 D. 16 117 設(shè)輸入的數(shù)據(jù)分別為13時，標簽Label1中顯示的值分別是_______。APrivate Sub Form_Click() Dim a As Integer a = Val(InputBox(請輸入一個數(shù))) Select Case a Mod 5 Case Is 2 w = a + 10 Case Is 4 w = a * 2 Case Elsew = a 10 End Select = Str(w)End Sub A. 6 B. 4 C. 26 D. 24 118 下列程序段的運行結(jié)果是_______。 BPrivate Sub Command1_Click() Dim a(3) As Long a(0) = 1: a(1) = 2: a(2) = 3: a(3) = 4 j = 1 For i = 3 To 0 Step 1 s = s + a(i) * j j = j * 10 Next i Print s End Sub A. 4321 B. 1234 C. 34 D. 12 119 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim x%,n%,i%,j% n = InputBox() For i = 1 To n For j = 1 To i x = x + 1 Next j Next i Print x End Sub 程序運行后，單擊命令按鈕，如果輸入3，則在窗體上顯示的內(nèi)容是_______。DA）3 B）4 C）5 D）6 二、判斷題（每套試卷有10個判斷題，每題1分）120 amp。H12是8進制的數(shù)值常數(shù)。 121 ,不聲明而直接使用的變量,系統(tǒng)默認為變體型(Variant),其默認值為0。 122 用Private定義的變量是過程級變量，所以其作用范圍是定義它的過程所在的窗體（或標準模塊）中的所有過程。 123 Dim語句定義的變量可以為過程級變量。 √124 執(zhí)行Dim X,Y AS Integer 語句后則X,Y的默認值均為0。 125 Dim a As Boolean, b As Boolean a = 2 b = 0 Print a + b 執(zhí)行完第二條語句A的值為True。 √126 Dim a As Boolean, b As Boolean a = 2 b = 0 Print a + b 執(zhí)行完程序段，程序輸出結(jié)果為2。 127 Len(等級考試)和LenB(等級考試)的結(jié)果相同。 128 Len(等級考試)和Len(VB考試)的結(jié)果相同。 √129 若X為偶數(shù)，則Not(X Mod 2)必然為真。 √130 表達式a%*bd\2+C!的結(jié)果的數(shù)據(jù)類型為雙 √精度型。 131 一個符號常量可以賦同一類型的不同值。 132 “”號將其括起來。 √133 Print Tab(3)。Visual Basic 和 Print Space(3)。Visual Basic的效果相同。 134 為了使下一個輸出語句的輸出項不換行輸出，則應在本Print語句的尾部加“；”，且只能加“；”。 135 產(chǎn)生消息對話框的MsgBox函數(shù)返回的值是數(shù)值型。 √136 x = InputBox(請輸入數(shù)X:) y = InputBox(請輸入數(shù)Y:) If x=10 Then y=x^2 Else y=2*x End If Print y 執(zhí)行上面程序段,輸入X的值時從鍵盤輸入3；輸入Y的值時從鍵盤輸入10,則輸出結(jié)果為6。 √137 MsgBox函數(shù)和InputBox函數(shù)都有一個可確定對話框中命令按鈕的個數(shù)和類型的參數(shù)。 138 Rnd函數(shù)產(chǎn)生的是（0,1）之間不包括0、1的隨機小數(shù)。139 Len(Str(123)+123)）的結(jié)果為6。 140 表達式Val(.123E2AB)。 141 Format(5,%)%。 √142 If xy Then Max=x Else Max=y 程序段是求兩個數(shù)中的最大數(shù)。 √143 閱讀下面的程序段： For i=1 To 3 For j=i To 3 For k=1 To 3 a=a+i Next k Next j Next i執(zhí)行上面的3重循環(huán)后，a的值為14。 144 若同時為x,y,z變量賦值5，可以如右操作： x=y=z=5。 145 閱讀下面的程序段： x = 1 If IIf(1, 0, 1) Then