VB试题及答案

一 单选题 每题一 单选题 每题 1 分 分 1 下面 A 是合法的变量名 A X yz B 123abc C integer D X Y 2 InputBox 函数返回值的类型为 A A 字符串 B 变体 C 数值 D 不确定 3 使一个控件不可见 应设置其 B 属性 A Enable B Visible C Font D BackColor 4 要想从子过程调用后返回两个结果 下面子过程语句说明合法的是 B Sub f ByVal a ByVal b Sub f a b Sub f ByVal a b Sub f a ByVal b 5 窗体从加载到显示时 将会发生一系列的事件 最先发生的事件是 A A Initialize B Load C Activate D Resize 6 在窗体上画 1 个文本框 其名称为 Text1 然后编写如下过程 Private Sub Text1 KeyDown KeyCode As Integer Shift As Integer Print Chr KeyCode End Sub Private Sub Text1 KeyUp KeyCode As Integer Shift As Integer Print Chr KeyCode 2 End Sub 程序运行后 把焦点移到文本框中 此时如果敲击 A 键 则输出结果为 B A A B A C A D A A C B D 7 字符串 x 中从第一个非空格字符开始数起 取第 3 个字符及其后所有字符构成的字符串 的 VB 表达式 D A Mid x 1 3 B Mid Trim x 3 C Left x 3 D Left Trim x 3 8 通用对话框控件的属性 Fiter 表示 B A 路径名 B 文件类型 C 文件主名 D 文件扩展名 9 通过文本框的 A 方法可以将焦点移到指定的对象上 A SetFocus B KeyPress C GotFocus D LostFocus 10 假定已定义了一个过程 Sub Add a as single b as single 则正确的调用语句是 A A Add 12 12 B Call Add 12 12 C Call Add x y D Call Add 12 12 x 11 以下哪个选项可用来获得列表框中最高项的索引值 C A Sort B Count C ListCount 1 D ListCount 12 如果用长整数 count1 个 Else Print 右括号多于左括号 count1 个 End If End If End Sub 2 如下程序是编一模拟数据库记录输入 显示和查询的程序 按 新增 按钮 将文本框输人的学生信息加到数组中 按 前一个 或 后一个 按钮 显示当前元素的前或后的记录 按 最高 按钮 则显示总分最高的记录 任何时候在窗体上 显示数组中输入的记录数和当前数组元素位置 一个学生记录类型 由姓名 专业 总分组成 声明了一个最多存放 100 个学生的数组 根据题目要求 在窗体上有 5 个标签 其中第 5 个标签显示总记录数和当前元素位置 命令按 钮为数组控件 还有 3 个文本框 程序运行界面如图 2 所示 在标准模块自定义类型如下 Type StudType Name As String 10 姓名 Special As String 10 性别 Total As Single 总分 End Type 图 2 程序运行界面 窗体模块的代码如下 Option Base 1 Dim n i Dim stud 1 To 100 As StudType Private Sub Command1 Click Index As Integer Select Case Index Case 0 新增 If n 1 Then i i 1 With stud i Text1 Name Text2 Special Text3 Total End With Case 2 后一条 If i max Then max a i Next i maxnum max End Function Private Sub ordernum a As Integer 数组排序过程 please insert the codes here End Sub Private Sub Form Click 在窗体单击事件中调用 Dim a 10 As Integer Dim max ave Call inputdate a max maxnum a ave Avenum a Print max max ave ave Call ordernum a Print 排序后的数据 For i 1 To 10 Print a i Next i Print End Sub 一 单选题 每题一 单选题 每题 1 分 共分 共 30 分 分 1 A11 C 2 A12 A 3 B13 C 4 B14 D 5 A15 A 6 B16 B 7 D17 B 8 B18 C 9 A19 B 10 A20 C 二 填空题 每题二 填空题 每题 2 分 共分 共 20 分分 31 chr keyascii 32 count count 1 33 count 0 34 count 0 35 i i 1 36 i i 1 3