31.在窗體上畫一個命令按鈕和一個文本框(名稱分別為Command1和Text1)，并把窗體的KeyPreview屬性設置為True，然后編寫下列代碼：

　　Dim SaveAll As String

　　Private Sub Form Load()

　　Show

　　Text1.Text=""

　　Text1.SetFocus

　　End Sub

　　Private Sub Command1 Click()

　　Text1.Text=LCase(SaveAll)+SaveAll

　　End Sub

　　Private Sub Form KeyPress(KeyAscii As Integer)

　　SaveAll=SaveAll+Chr(KeyAscii)

　　End Sub

　　程序運行后，直接用鍵盤輸入VB，再單擊命令按鈕，則文本框中顯示的內容為( )。

　　A.vbVB

　　B.不顯示任何信息

　　C.VB

　　D.出錯

　　32.設有下列程序

　　Private Sub Form Click()

　　X=50

　　For i=1 T0 4

　　y=InputBox("請輸入一個整數")

　　y=Val(v)

　　If y Mod 5=0 Then

　　a=a+y

　　x=y

　　Else

　　a=a+x

　　End If

　　Next i

　　Print a

　　End Sub

　　程序運行后，單擊窗體，在輸入對話框中依次輸入15、24、35、46，輸出結果為( )。

　　A.100

　　B.50

　　C.120

　　D.70

　　33.下列關于菜單的敘述中，錯誤的是( )。

　　A.當窗體為活動窗體時，用鍵可以打開菜單編輯器

　　B.把菜單項的Enabled屬性設置為False，則可刪除該菜單項

　　C.彈出式菜單在菜單編輯器中設計

　　D.程序運行時。利用控件數組可以實現菜單項的增加或減少

　　34.下列敘述中錯誤的是( )。

　　A.在程序運行時，通用對話框控件是不可見的

　　B.調用同一個通用對話框控件的不同方法(如ShowOpen或ShowSave)，可以打開不同的對話框窗口

　　C.調用通用對話框控件的Showopen方法，能夠直接打開在該通用對話框中指定的文件

　　D.調用通用對話框控件的ShowColor方法，可以打開顏色對話框窗口

　　35.設在工程文件中有一個標準模塊，其中定義了下列記錄類型：

　　Type Books

　　Name As String*10

　　TelNum As String*20

　　End，Type

　　在窗體上畫一個名為Command1的命令按鈕，要求當執行事件過程Command1 Click 時，在順序文件Person.txt中寫入一條Books類型的記錄。下列能夠完成該操作的事件過程是

　　( )。

　　A. Private Sub Command1 Click()

　　Dim B AS Books

　　Open"Person txt"For Output As#1

　　B.Name=InputBox(”輸入姓名”)

　　B.relNum=lnputBox(”輸入電話號碼”)

　　Wlite#1 B Name，B TelNum

　　Ch,se#1

　　End Sub

　　B. Private Sub Command1 Click()

　　Dim B AS Books

　　Open"Person txt"For Input As#1

　　B.Name=InputBox("輸入姓名")

　　B.TelNum=InputBox("輸入電話號碼")

　　Print#1，B.Name，B.TelNam

　　Close#1

　　End Sub

　　C. Private Sub Command1 Click()

　　Dim BAS Books

　　Open"Person txt"For Output As#1

　　B.Name=InputBox("輸入姓名")

　　B.TelNum=InputBox("輸入電話號碼")

　　Write#1，B

　　Close#1

　　End Sub

　　D.Private Sub Commandl Click()

　　Open"Person txt"For Input As#1

　　Name=lnputBox("輸入姓名")

　　TelNum=lnputBox("輸入電話號碼")

　　Prim#1 Name TelNum

　　Close#1

　　End Sub

　　36.窗體上有一個名稱為Command1的命令按鈕，其單擊事件過程及有關函數過程如下：

　　Private Sub Command1 Click()

　　Dim n As Integer

　　n=add(5，10)

　　Print n

　　End Sub

　　Function add(v1 As Integer，v2 As Integer，Optiona1 v3)As Integer

　　If Not IsMissing(v3)Then

　　add=v1+v2+v3

　　Else

　　add=v1+v2

　　End If

　　End Function

　　運行程序，單擊命令按鈕，以下敘述中正確的是( )。

　　A.程序不能正常運行，因為函數add的參數定義有錯

　　B.程序不能正常運行，因為函數定義與函數調用語句的參數個數不匹配

　　C.程序能正常運行，結果是在窗體上顯示15

　　D.程序能正常運行，結果是在窗體上顯示510v3

　　37.目錄列表框Path屬性所表示的含義是( )。

　　A.當前驅動器或指定驅動器上的路徑

　　B.當前驅動器或指定驅動器上的某目錄下的文件列表

　　C.根目錄下的文件列表

　　D.指定路徑下的文件列表

　　38.以下關于函數過程的敘述中錯誤的是( )。

　　A.函數過程一定有返回值

　　B.函數過程一定有參數

　　C.函數過程可以在窗體模塊和標準模塊中定義

　　D.函數過程參數的類型與返回值的類型無關

　　39.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序：

　　Public Enum S

　　a=4

　　b=3

　　End Enum

　　Private Sub Command1 Click()

　　Dim x As Integer

　　x=a

　　If x>=3 Then MsgBox"Pass!"

　　End Sub

　　運行程序，其結果是( )。

　　A.運行錯誤.因為Enum定義有錯

　　B.運行錯誤.因為x=a類型不匹配

　　C.運行正常結束，不顯示任何信息

　　D.運行正常.顯示內容為“Pass!”的信息框

　　40.設有如下程序：

　　Option Base 1

　　Private Sub Form Click()

　　Dim a(5)As String，i As Integer

　　For i=1 To 5

　　a(i)=Chr(Asc("A")+i)

　　Call f(a，i)

　　Next i

　　End Sub

　　Sub f(ta()As String，n As.Integer)

　　Dim i As Integer

　　For i=1 To n

　　Print ta(i);

　　Next i

　　Print

　　End Sub

　　對上述程序.以下敘述中正確的是( )。

　　A.程序有錯，因為在過程f的定義中數組參數格式不正確

　　B.程序可正常運行，輸出內容的第一行是一個字母“A”

　　C.程序可正常運行，輸出內容的第一行是一個字母“B”

　　D.程序可正常運行，輸出內容的第一行是數字65

　　相關推薦：

　　2014年計算機等級考試時間調整通知

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

　　2014計算機等級《二級VB》上機預測題及答案匯總

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