31.下列可以打開隨機文件的語句是( )。

　　A.Open"file 1.dat"For Input As#1

　　B.Open"file1.dat"For Append As#1

　　C.Open"file1.dat"For Output As#1

　　D.Open"file1.dat"For Randow As#1 Len=20

　　32.有彈出式菜單的結構如右表，程序運行時，單擊窗體則彈出如下圖所示的菜單。下面的事件過程中能正確實現這一功能的是( )。

　　A.Private Sub Vorm Click()

　　PopupMenu cut

　　End Sub

　　B.Private Sub Command1 Click()

　　PopupMenu edit

　　End Sub

　　C.Private Sub Form Click()

　　PopupMenu edit

　　End Sub

　　D.Private Sub Form Click()

　　PopupMenu cut

　　PopupMenu paste

　　End Sub

　　33.請閱讀程序.

　　0ption Base 1

　　Private Sub Fo,m Click()

　　Dim Arr(4，4)As Integer

　　For i=1 To 4

　　For j=1 To 4

　　Arr(i，j)=(i=1)*2+j

　　Next j

　　Next i

　　For i=3 To 4

　　For j=3 To 4

　　Print Arr(j，i);

　　Next j

　　Print

　　Next i

　　End Sub

　　程序運行后，單。旨窗體，則輸出結果是( )。

　　A. 5 7

　　6 8

　　B. 6 8

　　7 9

　　C. 7 9

　　8 10

　　D. 8 10

　　8 11

　　34.下面函數的功能應該是：刪除字符串str中所有與變量ch相同的字符，并返回刪除后的結果。例如：若str="ABCDABCD"，ch="B"，則函數的返回值為："ACDACD"

　　Function delchar(str As String，ch As String)As String

　　Dim k As Inlegcr，temp As String，ret As String

　　ret=""

　　For k=1 To Len(str)

　　temp=Mid(str，k，1)

　　If temp=ch Then

　　ret=ret&temp

　　End If

　　Next k

　　delchar=ret

　　En d Function

　　但實際上函數有錯誤，需要修改，下面的修改方案中正確的是( )。

　　A.把ret=ret&temp改為ret=temp

　　B.把If temp=ch Then改為If temp<>ch Then

　　C.把delchar=ret改為delchar=temp

　　D.把ret=""改為temp=""

　　35在窗體上畫一個命令按鈕和兩個文本框，其名稱分別為Command1、Text1和Text2，在屬性窗口中把窗體的KeyPreview屬性設置為True，然后編寫如下程序：

　　Diln S1 As String，S2 As String

　　Private Sub Form Load()

　　Text1.Text=""

　　Text2.Text=""

　　Text1.Enabled=False

　　Text2.Enabled=False

　　End Sub

　　Private Sub Form KeyDown(KeyCode As Integer，Shift As Integer)

　　S2=S2&Chr(KeyCode)

　　End Sub

　　Pri vate Sub Form KeyPress(KeyAscii As Integer)

　　S1=S1&Chr(KeyAscii)

　　End Sub

　　Private Sub Command1 Click()

　　Text1.Text=S1

　　Text2.Text=S2

　　S1=""

　　S2=""

　　End Sub

　　程序運行后，先后按“a”、“b”、“c”鍵，然后單擊命令按鈕，在文本框Text1和Text2中顯示的內容分別為( )。

　　A.abc和ABC

　　B.空白

　　C.ABC和abc

　　D.出錯

　　36.使用驅動器列表框Drive1、目錄列表框Dir1、文件列表框File1時，需要設置控件的

　　同步，以下能夠正確設置兩個控件同步的命令是( )。

　　A.Dir1.Path=Drive1.Path

　　B.File1.Path=Dri1.Path

　　C.File1.Path=Drive1.Path

　　D.Drive1.Drive=Dri1.Path

　　37.以下關于彈出式菜單的敘述中，錯誤的是( )。

　　A.一個窗體只能有一個彈出式菜單

　　B.彈出式菜單在菜單編輯器中建立

　　C.彈出式菜單的萊單名(主菜單項)的“可見”屬性通常設置為False

　　D.彈出式菜單通過窗體的PopupMenu方法顯示

　　38.有如下程序：

　　Private Type stu

　　X As String

　　Y As Integer

　　End Type

　　Private Sub Command1 Click()

　　Dim a As stu

　　a.X="ABCD"

　　a.Y=12345

　　Print a

　　End Sub

　　程序運行時出現錯誤，錯誤的原因是( )。

　　A.Type定義語句沒有放在標準模塊中

　　B.變量聲明語句有錯

　　C.賦值語句不對

　　D.輸出語句Print不對

　　39.在窗體上畫兩個名稱分別為Text1、Text2的文本框，一個名稱為Label1標簽，窗體

　　外觀如圖a所示，要求當改變任一個文本框的內容，就會將該文本框的內容顯示在標簽中，如圖b所示。實現上述功能的程序如下：

　　Private Sub Text1_Change()

　　Call ShowText(Text1)

　　End Sub

　　Private Sub Text2_Change()

　　Call ShowText(Text2)

　　End Sub

　　Private Sub ShowText(T As TextBox)

　　Labell.Caption="文本框中的內容是："&T.Text

　　End Sub

　　關于上述程序，以下敘述中錯誤的是( )。

　　A.ShowText過程的參數類型可以是Control

　　B.ShowText過程的參數類型可以是Variant

　　C.兩個過程調用語句有錯，應分別改為Call ShowText(Text1，Text)、Call Show Text

　　(Text2，Text)

　　D.ShowText過程中的T是控件變量

　　40.設有打開義件的語句如下：

　　Open"test_dat"For Random As#1

　　要求把變量a中的數據保存到該文件中，應該使用的語句是( )。

　　A.Input#1 a

　　B.Write#1 a

　　C.Put#1，a

　　D.Get#1，a

　　相關推薦：

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

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

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