VB试题及答案.doc

一、单选题（每题1分）（1）下面_是合法的变量名。A、X_yz B、123abc C、integer D、X-Y（2）InputBox函数返回值的类型为_。A、 字符串 B、 变体 C、数值 D、 不确定（3）使一个控件不可见，应设置其_属性。A、Enable B、Visible C、Font D、BackColor（4）要想从子过程调用后返回两个结果，下面子过程语句说明合法的是_、Sub f(ByVal a%, ByVal b%) 、Sub f(a%, b%) 、Sub f(ByVal a%, b%) 、Sub f(a%, ByVal b%)（5）窗体从加载到显示时，将会发生一系列的事件，最先发生的事件是。A、 Initialize B、LoadC、 Activate D、Resize（6）在窗体上画1个文本框，其名称为Text1，然后编写如下过程：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode)End SubPrivate Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode+2)End Sub程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为（ ）。A)A B)A C)A D)A A C B D（7）字符串x$中从第一个非空格字符开始数起，取第3个字符及其后所有字符构成的字符串的VB表达式 。A、Mid(x$,1,3) B、Mid(Trim(x$) ,3) C、Left(x$,3) D、Left(Trim(x$) ,3)（8）通用对话框控件的属性 Fiter 表示_.A、路径名 B、文件类型 C、文件主名 D、文件扩展名（9）通过文本框的_方法可以将焦点移到指定的对象上。A、 SetFocus B、KeyPress C、GotFocus D、LostFocus（10）假定已定义了一个过程Sub Add(a as single, b as single), 则正确的调用语句是_.A、Add 12, 12 B、Call Add 12, 12 C、Call Add x, y D、 Call Add(12,12,x)（11）以下哪个选项可用来获得列表框中最高项的索引值？_。A、 Sort B、 Count C、ListCount-1 D、 ListCount（12）如果用长整数&H000000FF&来表示颜色，则此颜色为_。A. 红色 B.黄色 C.蓝色 D.绿色（13）下列关系运算结果为“True”的是_。A“1”+2=“12” B“1”+“2”=“3”C“1” &2=“12” D“1” & “2”=“3”（14）在VB中，要将一个窗体从内存中释放，应使用的语句是。A. Show B. Hide C. Load D. Unload（15）在用通用对话框控件弹出“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件（即.txt文件），则正确的描述格式是。A、”text（*.txt）|*.txt”B、”文本文件（.txt）|.txt”C、”text（.txt）| |（*.txt）”D、”text（.txt）（*.txt）”（16）枚举的第l个常数的默认值是 A、1 B、0 C、True D、False（17）下列哪一种对象不具有Caption属性? （ ）A.Form B.PictureBox C.Label D.Frame（18）对于TextBox控件，哪一种事件可以测得KeyAskii值？ A.KeyUp B.KeyDown C.KeyPress D.Click（19）当文本框的ScrollBars属性设置了非零值，却没有显示滚动条，原因是_。A .文本框中没有内容 B.文本框的MultiLine属性为FalseC.文本框的MultiLine属性为Ture D.文本框的Locked属性为Ture（20）如果要制作菜单的分隔栏，应选用的字符是_。A. * B. C. - D. 二、填空题（每空2分，共20分）(1)下面的程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的结果，本程序在文本框中输入表达式，边输入，边统计，以输入回车符作为表达式输入结束，然后显示结果，界面如图1所示。图1 运行界面Dim count1%Private Sub Text1_KeyPress(KeyAscii As Integer)If （31） Then count1 = count1 + 1 ElseIf Chr(KeyAscii) = ) Then （32） End IfIf KeyAscii = 13 Then If （33） Then Print 左右括号配对 ElseIf （34） Then Print 左括号多于右括号; count1; 个 Else Print 右括号多于左括号; -count1; 个 End IfEnd IfEnd 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 imaxnum = maxEnd FunctionPrivate Sub ordernum(a() As Integer) 数组排序过程please insert the codes hereEnd SubPrivate 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 PrintEnd Sub一、单选题（每题1分，共30分）1A11C2A12A3B13C4B14D5A15A6B16B7D17B8B18C9A19B10A20C二、填空题（每题2分，共20分 31、ch