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

　　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月计算机等考真题及答案通