1、国家二级（ VB）机试模拟试卷 51及答案与解析 一、选择题 1 设有如下函数： Function DelSpace(ch As String)As Integer Dim n%， st$， c$ st “ n 0 For k 1 To Len(ch) c Mid(ch， k， 1) If c b And Not (c d) Or d c的值是 （ A） 1 （ B） 0 （ C） True （ D） False 12 设在一个工程的窗体中有如下代码： Public x As Integer Private Sub Form_Load() Dim y As Integer End Sub 在该
2、工程的标准模块的声明部分有如下代码： Public a As Integer Private b As Integer 关于上述代码，以下叙述中错误的是 （ A）变量 x的作用域是整个工程 （ B）变量 y的作用域是 Form_Load过程 （ C）变量 a的作用域是整个工程 （ D）变量 b的作用域是整个标准模块 13 以下关于文件的叙述中，错误的是 （ A）顺序文件有多种打开文件的方式 （ B）读取顺序文件的记录时，只能从头至尾逐记录进行 （ C）顺序文件中各记录的长度是固定的 （ D）随机文件一般占用空间比较小 14 以下不属于 VB控件的是 （ A）框架 （ B）点 （ C）直线 （
3、D）形状 15 窗体上有一个名称为 Command1的命令按钮，一个名称为 Text1的文本框，其Text属性值为 “VB Programming“。运行程序后，选中其中的 “VB“，并执行如下事件过程： Private Sub Command1_Click() Text1.SelText = “C+“ End Sub 则文本框中显示的内容为 （ A） VB （ B） VB Programming （ C）文本框被清空 （ D） C+ Programming 16 窗体上有一个名称为 VScroll1的垂直滚动条，为了设定单击滚动条两端箭头时的 Value增量值，应设置的属性是 （ A） La
4、rgeChange （ B） SmallChange （ C） Max （ D） Min 17 设窗体名称为 frmTest，为了在程序代码中将窗体的标题改为 “等 级考试 “，其代码应该是 （ A） frmTest.Caption = “等级考试 “ （ B） Form1.Caption = “等级考试 “ （ C） frmTest.Title = “等级考试 “ （ D） Form1.Title = “等级考试 “ 18 要将单选按钮 Opt1设为被选中，应设置的属性是 （ A） Value （ B） Selected （ C） Enabled （ D） SetFocus 19 窗体上有一
5、个名称为 Combo1的组合框，为了引用 Combo1中最后一个列表项，应使用的表达式是 （ A） Combo1.List(ListCount) （ B） Combo1.List(Combo1.ListCount - 1) （ C） Combo1.List(ListCount - 1) （ D） Combo1.List(Combo1.ListCount) 20 以下不合法的 VB变量名是 （ A） filename （ B） read （ C） _y （ D） e5 21 以下关于 VB的叙述中，错误的是 （ A） VB采用事件驱动的编程机制 （ B）如果程序中有 Sub_Main过程时，则一
6、定从该过程开始执行 （ C）工 程文件中包含多个窗体时，可以指定启动窗体 （ D） VB程序既可以编译执行，也可以解释执行 22 VB中，若没有显式声明变量的数据类型，则默认的类型是 （ A）整型 （ B）字符型 （ C）日期型 （ D）变体类型 23 设程序中有以下语句： MsgBox “Visual“, , “Basic“, “等级考试 “, 2 执行该语句后，显示一个信息框，以下关于该信息框的叙述中，正确的是 （ A）提示信息是 Visual （ B）提示信息是 Basic （ C）标题栏显示为 Visual （ D）标题栏显示为 “等 级考试 “ 24 设有如下声明语句 Option
7、Base 1 Dim arr(2, -1 To 5) As Integer 则数组 arr中数组元素的个数是 （ A） 10 （ B） 12 （ C） 14 （ D） 21 25 程序运行时，拖动滚动条上的滚动框，则所触发的事件是 （ A） Move （ B） Scroll （ C） Drag （ D） DragDrop 26 将窗体的 KeyPreview属性设为 True，然后编写如下程序： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Su
8、b Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 运行程序时，按下字母键 a，则窗体上显示的是 （ A） A A （ B） A a （ C） a A （ D） a a 27 窗体上有一个名称为 Command1的命令按钮，编写如 下事件过程： Private Sub Command1_Click() i = 0 Do While i “ “ Then t = t + c Else If foundhuiwen(t) Then word num = word num + 1 End If t = “ End If N
9、ext i Text1.Text = word num End Sub 以下 Function 过程用于判断字符串是否为回文 Function foundhuiwen(p As String) 考生编写 End Function Private Sub Form_Unload(Cancel As Integer) Open App.Path & “out5.dat“ For Output As #1 Print #1, Text1.Text Close #1 End Sub 程序结束 参考答案 Function foundhuiwen(p As String) If StrReverse(p) = p Then foundhuiwen = True End Function 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
