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

　　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.有彈出式菜單的結(jié)構(gòu)如右表，程序運(yùn)行時(shí)，單擊窗體則彈出如下圖所示的菜單。下面的事件過程中能正確實(shí)現(xiàn)這一功能的是( )。

　　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.請(qǐng)閱讀程序.

　　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

　　程序運(yùn)行后，單。旨窗體，則輸出結(jié)果是( )。

　　A. 5 7

　　6 8

　　B. 6 8

　　7 9

　　C. 7 9

　　8 10

　　D. 8 10

　　8 11

　　34.下面函數(shù)的功能應(yīng)該是：刪除字符串str中所有與變量ch相同的字符，并返回刪除后的結(jié)果。例如：若str="ABCDABCD"，ch="B"，則函數(shù)的返回值為："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

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

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

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

　　C.把delchar=ret改為delchar=temp

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

　　35在窗體上畫一個(gè)命令按鈕和兩個(gè)文本框，其名稱分別為Command1、Text1和Text2，在屬性窗口中把窗體的KeyPreview屬性設(shè)置為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

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

　　A.abc和ABC

　　B.空白

　　C.ABC和abc

　　D.出錯(cuò)

　　36.使用驅(qū)動(dòng)器列表框Drive1、目錄列表框Dir1、文件列表框File1時(shí)，需要設(shè)置控件的

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

　　A.Dir1.Path=Drive1.Path

　　B.File1.Path=Dri1.Path

　　C.File1.Path=Drive1.Path

　　D.Drive1.Drive=Dri1.Path

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

　　A.一個(gè)窗體只能有一個(gè)彈出式菜單

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

　　C.彈出式菜單的萊單名(主菜單項(xiàng))的“可見”屬性通常設(shè)置為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

　　程序運(yùn)行時(shí)出現(xiàn)錯(cuò)誤，錯(cuò)誤的原因是( )。

　　A.Type定義語句沒有放在標(biāo)準(zhǔn)模塊中

　　B.變量聲明語句有錯(cuò)

　　C.賦值語句不對(duì)

　　D.輸出語句Print不對(duì)

　　39.在窗體上畫兩個(gè)名稱分別為Text1、Text2的文本框，一個(gè)名稱為Label1標(biāo)簽，窗體

　　外觀如圖a所示，要求當(dāng)改變?nèi)我粋�(gè)文本框的內(nèi)容，就會(huì)將該文本框的內(nèi)容顯示在標(biāo)簽中，如圖b所示。實(shí)現(xiàn)上述功能的程序如下：

　　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="文本框中的內(nèi)容是："&T.Text

　　End Sub

　　關(guān)于上述程序，以下敘述中錯(cuò)誤的是( )。

　　A.ShowText過程的參數(shù)類型可以是Control

　　B.ShowText過程的參數(shù)類型可以是Variant

　　C.兩個(gè)過程調(diào)用語句有錯(cuò)，應(yīng)分別改為Call ShowText(Text1，Text)、Call Show Text

　　(Text2，Text)

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

　　40.設(shè)有打開義件的語句如下：

　　Open"test_dat"For Random As#1

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

　　A.Input#1 a

　　B.Write#1 a

　　C.Put#1，a

　　D.Get#1，a

　　相關(guān)推薦：

　　2014年全國計(jì)算機(jī)二級(jí)VB上機(jī)考試試題匯總

　　考試吧考后首發(fā)2014年3月計(jì)算機(jī)等考真題及答案通知

　　考試吧推薦：2014年3月計(jì)算機(jī)二級(jí)考前沖刺備考專題