以下關于文件及相關操作的敘述中錯誤的是(　　)。

　　A. 以Append 方式打開的文件可以進行讀寫操作

　　B. 文件記錄的各個字段的數據類型可以不同

　　C. 隨機文件各記錄的長度是相同的

　　D. 隨機文件可以通過記錄號直接訪問文件中的指定記錄

　　參考答案:A 系統解析:以Append 方式打開是以追加方式輸出，并不是進行讀寫操作。

　　12

　　下列程序代碼實現生成20個0~100之間的隨機整數，存于數組中，打印數組中大于50的數，并求這些數的和。請選擇正確的程序段(　　)，完成程序。

　　Private Sub Co mmand1Click(　　)

　　Di marr(1To 20)

　　For i =1To 20

　　arr(i)=_________

　　Textl .Text =Textl .Text &arr(i )&Chr(13)&Chr(10)

　　Next i

　　Sum=0

　　For Each X

　　If X>50Then

　　Print Tab(20);X

　　Sum=Sum+X

　　End If

　　Next X

　　Print Tab(20);"Sum=";Sum

　　End Sub

　　A. Int(Rnd*99+1)In arr

　　B. Int(Rnd)In arr

　　C. Int(Rnd*99+1)In arr(　　)

　　D. Int(Rnd)In arr(　　)

　　參考答案:A 系統解析:Rnd 函數用于產生一個小于1但大于或等于0的實數，題中要求0~100之間的隨機整數，所以需要對Rnd 產生的實數進行計算處理Int(Rnd*99+1)。使用For Each…Next 語句處理數組元素時，Each 后只需寫出數組名，不能使用小括號。

　　13

　　在窗體上畫1個命令按鈕，并編寫如下事件過程：

　　Private Sub Command1_Click()

　　Dim a(3,3)

　　For m=1 To 3

　　For n=1 To 3

　　If n=m or n=4-m Then

　　a(m,n)=m+n

　　Else

　　a(m,n)=0

　　End If

　　Print a(m,n);

　　Next n

　　Print

　　Next m

　　End Sub

　　運行程序，單擊命令按鈕，窗體上顯示的內容為(　　)。

　　A. 200

　　040

　　006

　　B. 204

　　040

　　406

　　C. 230

　　340

　　006

　　D. 200

　　045

　　056

　　參考答案:B 系統解析:本題考查了嵌套的For循環，答案為B選項。

　　14

　　最簡單的交換排序方法是(　　)。

　　A. 快速排序

　　B. 選擇排序

　　C. 堆排序

　　D. 冒泡排序

　　參考答案:D 系統解析:交換排序方法是指借助數據元素之間的互相交換進行排序的一種方法，包括冒泡排序和快速排序。冒泡排序是一種最簡單的交換排序方法，它通過相鄰元素的交換，逐步將線性表變成有序。

　　15

　　窗體上有兩個名稱分別為Text1、Text2的文本框。Text1的KeyUp 的事件過程如下：

　　Private Sub Text1_KeyUp(KeyCode As Integer ，shiftAs Integer)

　　Di m CAs stri ng

　　Text2.Text =Chr(Asc(c)+2)

　　End Sub

　　當向文本框Text1中輸入小寫字母a 時，文本框Text2中顯示的是(　　)。

　　A. A

　　B. a

　　C. C

　　D. c

　　參考答案:C 系統解析:Asc(c)函數表示c 對應的ASCII 碼值，而Chr()函數是將AscII 碼值轉換為對應的字符，當輸入a時，先轉換為AscII 碼值為97，加上2，變為99，最后轉換為對應的字符，即C。

　　16

　　假定有下列程序段：

　　For i =1TO 3

　　For j=5To 1Step -1

　　Print i*j

　　Next j

　　Next i

　　則語句Print i*j 的執行次數是(　　)。

　　A. 15

　　B. 16

　　C. 17

　　D. 18

　　參考答案:A 系統解析:For…Next 循環語句可提供一個重復執行的語句序列，遵循"先檢查，后執行"的規則，執行過程中，循環次數=Int(終值-初值)/步長+1。本題代碼是一個嵌套的For 循環，其中每次執行內循環時的循環次數=(Int(1-5)/-1)+1=5，外循環的循環次數為3，因此執行循環體語句：PrintI*J的次數為15次。

　　17

　　下列描述中正確的是(　　)。

　　A. 程序就是軟件

　　B. 軟件開發不受計算機系統的限制

　　C. 軟件既是邏輯實體，又是物理實體

　　D. 軟件是程序、數據與相關文檔的集合

　　參考答案:D 系統解析:軟件是程序、數據與相關文檔的集合，它是一個邏輯實體。軟件的開發要受計算機系統的限制，例如硬件系統的限制、軟件操作系統的限制等。

　　18

　　窗體上有1個名稱為Text1的文本框和1個名稱為Co mmand1.的命令按鈕。要求程序運行時，單擊命令按鈕，就可把文本框中的內容寫到文件out .txt 中，每次寫入的內容附加到文件原有內容之后。下列能夠正確實現以上功能的程序是(　　)。

　　A. Private Sub Co mmand1_Click()

　　Open "out .txt"For Input As #1

　　Print #1，Text1.Text

　　Close #1

　　End Sub

　　B. Private Sub Co mmand1_Click()

　　Open "out .txt"For Output As #1

　　Print #1，Text1.Text

　　Close #1

　　End Sub

　　C. Private Sub Co mmand1_Click()

　　Open "out .txt"For Append As #1

　　Print #1，Text1.Text

　　Close #1

　　End Sub

　　D. Private Sub Co mmand1_Click()

　　Open "out .txt"For Rando m As #1

　　Print #1，Text1.Text

　　Close #1

　　End Sub

　　參考答案:C 系統解析:文件的輸入/輸出方式：Output 是順序輸出方式，Input 是順序輸入方式，Apend 也是指定順序輸出方式，與Output 不同的是當用Append 方式打開文件時，文件指針被定位在文件末尾，若對文件執行寫操作，則寫入的數據附加到原來的文件的后面，即Append 是追加方式寫入數據。Rando m 是指定隨機存取方式，也是默認方式。結合題目要求，易知應該選C。

　　19

　　設已經在"菜單編輯器"中設計了窗體的快捷菜單，其頂級菜單為Bs ，取消其"可見"屬性，運行時，在以下事件過程中，可以使快捷菜單響應鼠標右鍵菜單的是(　　)。

　　A. Private Sub Form_MouseDown(Button As Integer ，Shift As Integer ，X As Si ngle ，Y As Si ngle) If Button =2Then Popup Menu Bs ，2

　　End Sub

　　B. Private Sub Form_MouseDown(Button As Integer ，ShiftAs Integer ，X As Single ，Y As Single) Popup Menu Bs

　　End Sub

　　C. Private Sub Form_MouseDown(Button As Integer ，ShiftAs Integer ，X As Single ，Y As Single) Popup Menu Bs ，0

　　End Sub

　　D. Private Sub Form_MouseDown(Button As Integer ，ShiftAs Integer ，X As Single ，Y As Single) If (Button =vbLeftButton)Or (Button =vbRightButton)Then Popup Menu Bs

　　End Sub

　　參考答案:A 系統解析:Popup Menu 方法用來顯示彈出式菜單，其格式為：[對象.]Popup Menu 菜單名[，Flags][，X，Y ，][BoldCo mmand]。其中，[，Flags][，X，Y ，]用來設置菜單的顯示位置。為了顯示菜單，通常把Popup Menu 方法放到MouseDown 事件中，按照慣例，一般通過單擊右鍵顯示菜單，這可以用Button 參數來實現，鼠標右鍵的參數為2，因此選項A 正確。

　　20

　　為了使命令按鈕(名稱為Co mmand1)右移200，應使用的語句是(　　)。

　　A. Co mmand1.Move -200

　　B. Co mmand1.Move 200

　　C. Co mmand1.Left =Co mmand1.Left +200

　　D. Co mmand1.Left =Co mmand1.Left -200

　　參考答案:C 系統解析:本題考查Visual Basic 控件的Left 屬性。為了使Co mmand1右移200，只需將其Left 屬性值加上200。選項A、B為錯誤用法，Co mmand 沒有Move 屬性。

　　相關推薦：

　　2014年全國計算機二級VB上機考試試題匯總

　　考試吧考后首發2014年3月計算機等考真題及答案通知

　　考試吧推薦：2014年3月計算機二級考前沖刺備考專題