2014年计算机二级考试VB专家预测试卷及答案4

　　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月计算机二级考前冲刺备考专题