【正文】 145 閱讀下面的程序段： x = 1 If IIf(1, 0, 1) Then x。 √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。 141 Format(5,%)%。139 Len(Str(123)+123)）的結(jié)果為6。 √137 MsgBox函數(shù)和InputBox函數(shù)都有一個可確定對話框中命令按鈕的個數(shù)和類型的參數(shù)。 135 產(chǎn)生消息對話框的MsgBox函數(shù)返回的值是數(shù)值型。Visual Basic的效果相同。 √133 Print Tab(3)。 131 一個符號常量可以賦同一類型的不同值。 √129 若X為偶數(shù)，則Not(X Mod 2)必然為真。 127 Len(等級考試)和LenB(等級考試)的結(jié)果相同。 125 Dim a As Boolean, b As Boolean a = 2 b = 0 Print a + b 執(zhí)行完第二條語句A的值為True。 123 Dim語句定義的變量可以為過程級變量。 121 ,不聲明而直接使用的變量,系統(tǒng)默認為變體型(Variant),其默認值為0。DA）3 B）4 C）5 D）6 二、判斷題（每套試卷有10個判斷題，每題1分）120 amp。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 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é)果分別是_______。分別輸入A,C,A,D,E sum = sum + checks(once, s) Next i Print s。 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 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)。AA）在工程資源管理器窗口中只能包含一個工程文件及屬于該工程的其他文件 B）C）窗體文件包含該窗體及其控件的屬性 D）一個工程中可以含有多個標準模塊文件111 關(guān)于VB中的監(jiān)視表達式，錯誤的敘述是_______。y=。 Ba=10:y=0 Do a=a+2 y=y+a If y20 Then Exit Do End If Loop While a=14Print a=。如果在Text1中輸入150，Text2中輸入數(shù)200，則執(zhí)行下列程序后，Text3中顯示的數(shù)為_______。 C A. DataMember B. Datafield C. DataSource D. DataFormat 107 窗體Form1上有兩個文本框TextText2和一個命令按鈕Command1，編寫如下兩個事件過程：Private Sub Command1_Click() a = + Print a End Sub Private Sub Form_Load() = 123 = 321 End Sub 程序運行時點擊Command1按鈕，窗體上顯示的運行結(jié)果是_______。 B A. a=b : b=a B. a=a+b : b=ab : a=ab C. a=c : c=b : b=a D. a=(a+b)/2 : b=(ab)/2 105 以下程序段執(zhí)行后，整型變量n的值為_______。 A A. Visual Basic程序運行時，總是等待事件被觸發(fā) B. Visual Basic程序設(shè)計就是編寫代碼 C. Visual Basic程序是以線性方式順序執(zhí)行的 D. Visual Basic的事件可以由用戶隨意定義，而事件過程是系統(tǒng)預(yù)先設(shè)置好的 103 保存文件時，窗體的所有數(shù)據(jù)以_______存儲。 C A. + B. C. _ D. … 101 VB (集成開發(fā)環(huán)境)中的_______窗口內(nèi)。 BPrivate Sub Form_Click() Dim f1 As Integer, f2 As Integer, f3 As Integer Open d:\ For Output As 1 f1 = 2 f2 = 3 f3 = f2 + f1 Write 1, f1 * f2, f2, f3 Close 1 End Sub A. 2，3，3 B. 6，3，5 C. 2，5，6 D. 無內(nèi)容 99 以下能判斷是否到達文件尾的函數(shù)是_______。A A. 顯示當前驅(qū)動器或指定驅(qū)動器上的路徑 B. 顯示當前驅(qū)動器或指定驅(qū)動器上的某個目錄下的文件名 C. 顯示根目錄下的文件 D. 只顯示當前路徑下的文件 97 為了使Drive1驅(qū)動器列表框、Dir1目錄路徑列表框和File1文件列表框同步協(xié)調(diào)工作，需要_______。 B A. Open For Input As 1 B. Open For Output As 1 Write 1, s Write 1, s Close 1 Close 1 C. Open For Random As 1 D. Open For Binary As 1 Write 1, s Write 1, s Close 1 Close 195 =*.dat程序代碼執(zhí)行后，會顯示_______。 D A. Put B. Print C. Write D. Output93 以下敘述中正確的是_______。 CA) 當用Write 語句寫順序文件時，文件必須以O(shè)utput或Append方式打開 B) 用Input方式打開一個文件時，對同一個文件可以用幾個不同的文件號打開 C) 用Output和Append方式打開文件時，不用將文件關(guān)閉，就能重新打開文件 D) 用Append方式打開文件時，進行寫操作，寫入文件的數(shù)據(jù)附加到原來文件的后面 91 下面幾個關(guān)鍵字均表示文件的打開方式，只能進行讀不能寫的是_______。C A. 以順序輸出模式打開文件 B. 如果文件不存在，則建立一個新文件 C. 如果文件已存在，則打開該文件，新寫入的的數(shù)據(jù)將添加到文件末尾 D. 如果文件已存在，則打開該文件，新寫入的的數(shù)據(jù)將覆蓋原來的數(shù)據(jù) 89 執(zhí)行語句Open For Random As 1 Len = 50 后，對文件中的數(shù)據(jù)能夠進行的操作是_______。在List1的單擊事件過程中能正確實現(xiàn)上述功能的語句是_______。列表框中顯示若干城市的名稱。 A A. 在文本框Text1中輸出55 B. 在文本框Text1中輸出0 C. 出錯 D. 在文本框Text1中輸出不定值 86 在窗體上添加一命令按鈕Command1，并將其Caption屬性設(shè)置為cmdAA、名稱屬性設(shè)置為cmdBB，則關(guān)于該控件的下列_______語句是正確的。 AA) Change B) Scroll C) KeyDown D) KeyUp 84 在窗體上添加一個列表框和一個文本框，然后編寫如下兩個事件過程： Private Sub Form_Load() 357 246 123 456End Sub Private Sub List1_DblClick() a = Print a + End Sub 程序運行后，在文本框中輸入789，然后雙擊列表框中的456，則輸出結(jié)果為_______。 B A. Text1= Command1 B. = C. = D. = CStr(Command1) 82 下列控件可以用作其他控件容器的有_______。A A. China, 0 B. China, 1 C. 0, China D. 1, China 80 假定時鐘控件的Interval屬性為1000，Enabled屬性為True，并且有下面的事件過程，計算機將發(fā)出_______次Beep聲。B A. Refresh B. SetFocus