1、二级 VISUAL+BASIC 笔试 37 及答案解析(总分：92.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.对于 n 个结点的单向链表(无表头结点)，需要指针单元的个数至少为 _。（分数：2.00）A.n-1B.nC.n+1D.2n2.不能触发滚动条 Change 事件的操作是 _。（分数：2.00）A.拖动滚动条中滑块B.单击滚动条中滑块C.单击滚动条两端箭头D.单击箭头与滑块之间的滚动条3.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() D
2、im a(3，3) For i=1 To 3 For j=1 To 3 If i=j Then a(i，j)=1 If ij Then a(i，j)=2 If ii Then a(i，j)=3 Next j Next i For i=1 To 3 For j=1 To 3 Print a(i，j)； Next j Print Next i End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 _。（分数：2.00）A.1 3 3B.1 2 2C.2 3 3D.2 1 1 2 1 3 3 1 2 1 2 3 3 2 1 2 2 1 3 3 1 1 1 2 3 3 24.在软件开发
3、过程中，软件结构设计是描述 _。（分数：2.00）A.数据存储结构B.软件体系结构C.软件结构测试D.软件控制过程5.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写 如下事件过程： Private Sub Command1_Click() Dim array1(10,10)As Integer Dim i As Integer ,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2，3)+array1(3，4) End Su
4、b 程序运行后，单击命令按钮，在文本框中显示的值是 _。（分数：2.00）A.15B.14C.13D.126.在窗体上画一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮，然后编写 如下事件过程和通用过程： Private Sub Command1_Click() n=Val(Text1.Text) If n/2=n/2 Then f=f1(n) Else f=f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(B
5、y Val x) x=x*x f2=x+x+x End Function 程序运行后，单击命令按钮，在窗体上显示的是 _。（分数：2.00）A.72 36B.108 36C.72 6D.108 67.在数据结构中，从逻辑上可以把数据结构分为 _。（分数：2.00）A.动态结构和静态结构B.紧凑结构和非紧凑结构C.线性结构和非线性结构D.内部结构和外部结构8.数据存储和数据流都是 _，仅仅是所处的状态不同。（分数：2.00）A.分析结果B.事件C.动作D.数据9.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写 如下事件过程： Private Sub
6、 Command1_Click() n=Val(Text1.Text) For i=2 To n For j=2 To Sqr(i) If i Mod j=0 Then Exit For Next j If jSqr(i) Then Print i Next i End Sub 该事件过程的功能是 _。（分数：2.00）A.输出 n 以内的奇数B.输出 n 以内的偶数C.输出 n 以内的素数D.输出 n 以内能被 j 整除的数10.以下关于图片框控件的说法中，错误的是 _。（分数：2.00）A.可以通过 Print 方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图
7、片框控件可以作为容器使用D.用 Stretch 属性可以自动调整图片框中图形的大小11.下面的四个 VB 6.0 表达式语法正确的是 _。（分数：2.00）A.aanbcB.abcC.ab ANDc，D.ab AND bc12.关系代数运算是以 _ 为基础的运算。（分数：2.00）A.关系运算B.谓词运算C.集合运算D.代数运算13.在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为 Text1(下标从 0 开始，依次增大)，然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In TeXt1 Text1(i)=Tex
8、t1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为 _。（分数：2.00）A.0 1 2 3B.1 2 3 4C.0 1 3 2D.出错信息14.以下关于变量作用域的叙述中，正确的是 _。（分数：2.00）A.窗体中凡被声明为 Private 的变量只能在某个指定的过程中使用B.全局变量必须在标准模块中声明C.模块级变量只能用 Private 关键字声明D.Static 类型变量的作用域是它所在的窗体或模块文件15.设有如下程序： Dim a()As Integer Private Sub Command1_Click() n=
9、-5:m=6 ReDim a(n To m) For i=LBound(a，1)To UBound(a，1) a(i)=i Next i Print a(LBound(a，1)；a(UBound(a，1) End Sub 程序运行后，单击命令按钮，则输出结果是 _。（分数：2.00）A.0 0B.-5 0C.-5 6D.0 616.在窗体上画一个名称为 List1 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为：（分数：2.00）A.For i=0 To List1.ListCount-1 NextB.For i=0 To List1.Count-1 NextC.For i
10、=0 To List1.ListCount NextD.For i=0 To List1.Count Next17.假定在窗体(名称为 Form1)的代码窗口中定义如下记录类型： Private Type animal animal Name As String * 20 aColor As String * 10 End Type 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim rec As animal Open “c：/vb Test.dat“For Random As # 1 Len=Len(
11、reC) rec.animalName=“cat“ rec.aColor=“White“ Put # 1，rec Close # 1 End Sub 则以下叙述中正确的是 _。 A) 记录类型 animal 不能在 Form1 中定义，必须在标准模块中定义 D) 如果文件 c:/vbTest.dat 不存在，则 Open 命令执行失败 C) 由于 Put 命令中没有指明记录号，因此每次都把记录写到文件的末尾 D) 语句“Put # 1，rec“将 animal 类型的两个数据元素写到文件中（分数：2.00）A.B.C.D.18.骰子是一个正六面体，用 16 这六个数分别代表这六面，掷一次骰子出
12、现的数可表示为 _。（分数：2.00）A.INT(RND(6)+1)B.INT(RND*6)C.INT(RND*7)D.INT(RND*6+1)19.数据的完整性是指数据的正确性、有效性和 _。（分数：2.00）A.可维护性B.独立性C.安全性D.相容性20.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() str Text=InputBox(“请输入“) Text1.Text=strText End Sub Private Sub Text1_Cha
13、nge() Label1.Caption=Right(Trim(Text1.Text)，3) End Sub 程序运行后，如果在对话框中输入 abcdef，则在标签中显示的内容是 _。（分数：2.00）A.空B.abcdefC.abcD.def21.以下叙述中错误的是 _。（分数：2.00）A.下拉式菜单和弹出式菜单都用菜单编辑器建立B.在多窗体程序中，每个窗休都可以建立自己的菜单系统C.除分隔线外，所有菜单项都能接收 Click 事件D.如果把一个菜单项的 Enabled 属性设置为 False，则该菜单项不可用22.在窗体上画一个名称为 Text1 的文本框，要求文本框只能接收大写字母的输
14、入。以下能实现该操作的事件过程是 _。（分数：2.00）A.Private Sub Text1_KeyPress(KeyAscii As Intege IfKeyAscii65 Or KeyAscii90 Then MsgBox“请输入大写字母” KeyAscii=0 End If End SubB.Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Intege If KeyCode65 Or KeyCode90 Then MsgBox“请输入大写字母” KeyCode=0 End If End SubC.Private Sub Tex
15、t1 MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Singl， If Asc(Text1.Tex65 Or Asc(Text1.Tex90 Then MsgBox“请输入大写字母” End If End SubD.Private Sub Text1_Change() If Asc(Text1.Tex64 And Asc(Text1.Tex91 Then MsgBox“请输入大写字母” End If End Sub23.排序方法中，将整个无序序列分割成若干小的子序列并分别进行插入排序的方法，称为 _。（分数：2.00
16、）A.希尔排序B.冒泡排序C.插入排序D.选择排序24.若进栈序列为 1，2，3，4，进栈过程中可以出栈，则下列不可能的一个出栈序列是 _。（分数：2.00）A.1，4，3，2B.2，3，4，1C.3，1，4，2D.3，4，2，125.在窗体上画一个名称为 Labell 的标签，然后编写如下事件过程： Option Base 1 Private Sub Form_Click() Dim a(20) As Integer For k=1 To 20 a(k)=k2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 _。（分数：2.0
17、0）A.400B.20C.441D.出错信息26.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2=0 Then f=m Else f=1 End If End Function Private Sub Command1 Click() Dim i As Integer s=0 For i=1 To 5 s=s+f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是 _。（分数：2.00）A.11B.10C.9D.827.
18、编写如下程序： Private Sub Form_Click() a$=“54321“:b$=“abcde“ For j=1 To 5 Print Mid$(a$，6-j，1)+Mid$(b$，j，1)； Next j Print End Sub 程序运行后，单击窗体，其输出结果为 _。（分数：2.00）A.a1b2c3d45eB.a5b4c3d2e1C.e1d2c3b4a5D.1a2b3c4d5e28.Print 方法可以输出多个表达式，若使用标准格式输出，各表达式的分隔符应是 _。（分数：2.00）A.空格B.逗号C.冒号D.分号29.编写如下事件过程： Private Sub Form_
19、Click() k=2 Ifk=1 Then A=3 Ifk=2 Then A=2 Ifk=3 Then A=1 Print A End Sub 程序运行后，单击窗体，输出的结果为 _。（分数：2.00）A.1B.2C.3D.出错30.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() x=-5 If Sgn(x) Then y=Sgn(x2) Else y=Sgn(x) End If Print y End Sub 程序运行后，单击命令按钮，其输出结果为 _。（分数：2.00）A.-5B.25C.-1D.131
20、.模块本身的内聚是模块独立性的重要性度量因素之一。在 7 类内聚中，具有最强内聚的一类是 _。（分数：2.00）A.顺序性内聚B.过程性内聚C.逻辑性内聚D.功能性内聚32.以下描述中正确的是 _。（分数：2.00）A.标准模块中的任何过程都可以在整个工程范围内被调用B.在一个窗体模块中可以调用在其他窗体中被定义为 Public 的通用过程C.如果工程中包含 Sub Main 过程，则程序将首先执行该过程D.如果工程中不包含 Sub Main 过程，则程序一定首先执行第一个建立的窗体33.在顺序表(3，6，8，10，12，15，16，18，21，25，30)中，用二分法查找关键码值 11，所需
21、的关键码比较次数为 _。（分数：2.00）A.2B.3C.4D.534.不能作为容器使用的对象是 _。（分数：2.00）A.窗体B.框架C.图片框D.图像框35.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim arr(5)As String For i=1 To 5 art(i)=Chr(Asc(“A“)+(i-1) Next i For Each b1 In arr Print b1； Next End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 _。（分数
22、：2.00）A.ABCDEB.abcdeC.出错信息D.1 2 34 5二、B填空题/B(总题数：11，分数：22.00)36.对于长度为 n 的顺序存储的线性表，当随机插入和删除一个元素时，需平均移动元素的个数为 【1】 。（分数：2.00）填空项 1:_37.注释说明了程序的功能，它分为 【2】 注释和功能性注释。（分数：2.00）填空项 1:_38.软件测试中路径覆盖测试是整个测试的基础，它是对软件 【3】 进行测试。（分数：2.00）填空项 1:_39.数据库技术的主要特点为数据的集成性、数据的高 【4】 和低冗余性、数据独立性和数据统一管理与控制。（分数：2.00）填空项 1:_40
23、.数据元素之间 【5】 的整体称为逻辑结构。（分数：2.00）填空项 1:_41.将 C 盘根目录下的图形文件 moon.jpg 装入图片框 Picture1 的语句是U 【6】 /U。（分数：2.00）填空项 1:_42.在菜单编辑器中建立一个菜单，其主菜单项的名称为 mnuEdit，Visible 属性为 False。程序运行后，如果用鼠标右键单击窗体，则弹出与 mnuEdit 对应的菜单。以下是实现上述功能的程序，请填空。 Private Sub FormU 【7】 /U(Button As Integer,Shift As Integer,X As Single,Y As Single
24、) If Button=2 Then U 【8】 /UmnuEdit End If End Sub（分数：2.00）填空项 1:_43.与数学表达式 cos (a+B) /3x+5 对应的 Visual Basic 表达式是 【9】 。（分数：2.00）填空项 1:_44.在窗体上画一个名称为 Text1 的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为 Option1。程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。请填空。 Private Sub Option1_Click(Index As Integer) Select CaseU
25、【10】 /U Case 0 a=“宋体” Case 1 a=“黑体” Case 2 a=“楷体 GB2312” End Select Text1.U 【11】 /U=a End Sub（分数：2.00）填空项 1:_45.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() n=5 f=1 s=0 For i=1 To n f=U 【12】 /U s=s+f Next Print s End Sub 该事件过程的功能是计算 （分数：2.00）填空项 1:_46.在窗体上画一个名称为 Command1 的命令按钮，
26、然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer For i=1 To 10 a(i)=i Next Call swap(U 【13】 /U) For i=1 To 10 Print a(i)； Next End Sub Sub swap(b()As Integer) n=U 【14】 /U For i=1 To n/2 t=b(i) b(i)=b(n) b(n)=t U 【15】 /U Next End Sub 上述程序的功能是，通过调用过程 swap，调换数组中数值的存放位置，即 a(1)与 a
27、(10)的值互换， a(2)与 a(9)的值互换，a(5)与 a(6)的值互换。请填空。（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 37 答案解析(总分：92.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.对于 n 个结点的单向链表(无表头结点)，需要指针单元的个数至少为 _。（分数：2.00）A.n-1B.nC.n+1 D.2n解析：评析 在 n 个结点的单向链表(无表头结点)中，每个结点都有一个指针单元(即指针域)，加上头指针，至少需要 n+1 个指针单元。2.不能触发滚动条 Change 事件的操作是 _。（分数：2.00）A
28、.拖动滚动条中滑块B.单击滚动条中滑块 C.单击滚动条两端箭头D.单击箭头与滑块之间的滚动条解析：评析 单击滚动条中滑块不会引起 ScrollBar 控件的 Value 属性值的变化，故不能触发 Change 事件。3.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a(3，3) For i=1 To 3 For j=1 To 3 If i=j Then a(i，j)=1 If ij Then a(i，j)=2 If ii Then a(i，j)=3 Next j Next i
29、 For i=1 To 3 For j=1 To 3 Print a(i，j)； Next j Print Next i End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 _。（分数：2.00）A.1 3 3B.1 2 2 C.2 3 3D.2 1 1 2 1 3 3 1 2 1 2 3 3 2 1 2 2 1 3 3 1 1 1 2 3 3 2解析：评析 本题程序在过程中定义了一个二维数组，该数组可容纳 9 个元素，在循环中给数组元素赋值，在每次循环中有 If i=j Then a (i，j)=1，表示主对角线置 1；If ij Then a(i，j)=2，表示主对角线以
30、上元素置 2;If i j Then a(i,j)=3，表示主对角线以下元素置 3。4.在软件开发过程中，软件结构设计是描述 _。（分数：2.00）A.数据存储结构B.软件体系结构 C.软件结构测试D.软件控制过程解析：评析 从工程管理角度来看，软件设计分两步完成：概要设计和详细设计。概要设计(又称结构设计)将软件需求转化为软件体系结构、确定系统级接口、全局数据结构或数据库模式。5.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写 如下事件过程： Private Sub Command1_Click() Dim array1(10,10)As In
31、teger Dim i As Integer ,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 _。（分数：2.00）A.15B.14C.13D.12 解析：评析 本题是通过一个 For 循环来给数组赋值。由 array1(i,j)=i+j 可知，array1(2，3)=2+3=5，array1(3,4)=3+4=7， array1(2,3)+array1(3,4)=5+7
32、=12，即文本框中的值为 12。6.在窗体上画一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮，然后编写 如下事件过程和通用过程： Private Sub Command1_Click() n=Val(Text1.Text) If n/2=n/2 Then f=f1(n) Else f=f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(By Val x) x=x*x f2=x+x+x End Function
33、程序运行后，单击命令按钮，在窗体上显示的是 _。（分数：2.00）A.72 36 B.108 36C.72 6D.108 6解析：评析 在本题中，文本框中输入的是 6，也就是 n=6，n/2=n/2 条件成立，所以执行 f=f1(n)语句，调用 f1 过程，得到 x=x*x=6*6=36，f1=36+36=72。由于函数 f1 中，参数是按地址传递的，故参数的值会返回，所以 n 的值为 36。7.在数据结构中，从逻辑上可以把数据结构分为 _。（分数：2.00）A.动态结构和静态结构B.紧凑结构和非紧凑结构C.线性结构和非线性结构 D.内部结构和外部结构解析：评析 逻辑结构反映数据元素之间的逻辑
34、关系，线性结构表示数据元素之间一对一的关系，非线性结构表示数据元素之间一对多或多对一的关系。线性结构和非线性结构是根据数据元素之间关系的不同特性加以分类的，即是从逻辑上加以分类的。8.数据存储和数据流都是 _，仅仅是所处的状态不同。（分数：2.00）A.分析结果B.事件C.动作D.数据 解析：评析 数据流图有 4 种成分：源点或终点、处理、数据存储和数据流。数据存储是处于静止状态的数据，数据流是处于运动小的数据。9.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写 如下事件过程： Private Sub Command1_Click() n=Val
35、(Text1.Text) For i=2 To n For j=2 To Sqr(i) If i Mod j=0 Then Exit For Next j If jSqr(i) Then Print i Next i End Sub 该事件过程的功能是 _。（分数：2.00）A.输出 n 以内的奇数B.输出 n 以内的偶数C.输出 n 以内的素数 D.输出 n 以内能被 j 整除的数解析：评析 素数只能被 1 和它本身整除(即不能被大于 1 且小于它本身的整数来整除)故要检查一个整数是不是素数，可以用大于 1 而小于它的所有整数来除它，如果可以整除，就不是素数，否则就是素数。为了缩短程序运行时
36、间，通常是用所有不小于该整数的平方根的整数来除它就可以。在本程序中，用从 2开始到小于等于被检测整数平方根的所有整数来对被检测整数取模，如果被检测整数可以被其中的某个整数整除，则不是素数。故本程序的功能是输出 n 以内的素数。10.以下关于图片框控件的说法中，错误的是 _。（分数：2.00）A.可以通过 Print 方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用 Stretch 属性可以自动调整图片框中图形的大小 解析：评析 图片框控件不提供滚动条，也不能伸展被装入的图形以适应控件尺寸，但可以用图片框的Autosize 属性调整图片
37、框大小以适应图形尺寸，所以选项 D 是错误的。11.下面的四个 VB 6.0 表达式语法正确的是 _。（分数：2.00）A.aanbcB.abcC.ab ANDc，D.ab AND bc 解析：评析 选项 A 的“与”运算符多了两个句点。选项 B 在变量 b 与 c 之间无运算符。选项 C 是关系运算符与逻辑运算符连用，它们都是错误的。选项 D 先计算关系表达式 ab 和 bc，然后再将两个逻辑值进行“与”运算。12.关系代数运算是以 _ 为基础的运算。（分数：2.00）A.关系运算B.谓词运算C.集合运算 D.代数运算解析：评析 关系代数足以集合代数为基础发展起来的，它是以关系代数作为运算对
38、象的一组高级运算的集合。它的基本操作是并、交、差、笛卡尔积，另外还包括针对数据库环境专门设计的操作，包括对关系进行垂直分割(投影)、水平分割(选择)、关系的结合(连接)等。13.在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为 Text1(下标从 0 开始，依次增大)，然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In TeXt1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为 _。（分数：2.00）A.0 1 2 3
39、 B.1 2 3 4C.0 1 3 2D.出错信息解析：评析 控件数组是由一组相同类型的控件组成。它们共用一个控件名。建立控件数组时，系统给每个元素赋一个惟一的索引号(Index)，通过属性窗口的 Index 属性，可以知道该控件的下标是多少。，第 1 个下标是 0，第 2 个下标是 1，第 3 个下标是 2，第 4 个下标是 3。故四个文本框中显示的内容分别为 0、1、2、3。14.以下关于变量作用域的叙述中，正确的是 _。（分数：2.00）A.窗体中凡被声明为 Private 的变量只能在某个指定的过程中使用B.全局变量必须在标准模块中声明C.模块级变量只能用 Private 关键字声明D
40、.Static 类型变量的作用域是它所在的窗体或模块文件 解析：评析 变量作用域分为：局部变量、窗体、模块级变量和全局变量。局部变量：指在过程内用Dim、Static 语句声明的变量，只能在本过程中使用的变量。窗体/模块级变量：指在一个窗体/模块的任何过程外，即在“通用声明”段中用 Dim 语句或用 Private 语句声明的变量，可被本窗体/模块的任何过程访问。全局变量：指只能在标准模块的任何过程或函数外，即在“通用声明”段中用 Public 语句声明的变量，可被应用程序的任何过程或函数访问。15.设有如下程序： Dim a()As Integer Private Sub Command1_
41、Click() n=-5:m=6 ReDim a(n To m) For i=LBound(a，1)To UBound(a，1) a(i)=i Next i Print a(LBound(a，1)；a(UBound(a，1) End Sub 程序运行后，单击命令按钮，则输出结果是 _。（分数：2.00）A.0 0B.-5 0C.-5 6 D.0 6解析：评析 ReDim a(n To m)指明动态数组 9 的下标和上标为-5 和 6；则 LBound(a，1)=-5、UBound(a，1)=6。故 Print a(LBound(a，1)；a(UBound(a，1)输出 a(-5)、a(6)的值
42、。16.在窗体上画一个名称为 List1 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为：（分数：2.00）A.For i=0 To List1.ListCount-1 Next B.For i=0 To List1.Count-1 NextC.For i=0 To List1.ListCount NextD.For i=0 To List1.Count Next解析：评析 ListCount 的值表示列表框中项目的数量。ListCount-1 表示列表中最后一项的序号。17.假定在窗体(名称为 Form1)的代码窗口中定义如下记录类型： Private Type anim
43、al animal Name As String * 20 aColor As String * 10 End Type 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim rec As animal Open “c：/vb Test.dat“For Random As # 1 Len=Len(reC) rec.animalName=“cat“ rec.aColor=“White“ Put # 1，rec Close # 1 End Sub 则以下叙述中正确的是 _。 A) 记录类型 animal 不能在
44、 Form1 中定义，必须在标准模块中定义 D) 如果文件 c:/vbTest.dat 不存在，则 Open 命令执行失败 C) 由于 Put 命令中没有指明记录号，因此每次都把记录写到文件的末尾 D) 语句“Put # 1，rec“将 animal 类型的两个数据元素写到文件中（分数：2.00）A.B.C.D. 解析：评析 记录类型可以在标准模块中定义，也可以在窗体模块中定义。如果文件 c:/vbTest.dat 不存在，Open 命令是可以执行的；随机访问模式中文件的写操作使用 Put 命令，其形式如下：Put#文件号，记录号，变量名。其中：记录号是大于 1 的整数，表示写入的是第几条记录
45、；如果忽略记录号，则表示在当前记录后插入一条记录。18.骰子是一个正六面体，用 16 这六个数分别代表这六面，掷一次骰子出现的数可表示为 _。（分数：2.00）A.INT(RND(6)+1)B.INT(RND*6)C.INT(RND*7)D.INT(RND*6+1) 解析：评析 RND 函数产生一个小于 1，大于等于 0 的随机数，INT 函数是求不大于参数的最大整数。选项 A 的最大数是 1，选项 B 的最大数是 5，选项 C 的最小数是 0，只有选项 D 能产生 1-6 之间的整数。19.数据的完整性是指数据的正确性、有效性和 _。（分数：2.00）A.可维护性B.独立性C.安全性D.相容
46、性 解析：评析 数据模型应该反映和规定本数据模型必须遵守的、基本的、通用的完整性约束条件。完整性规则是给定的数据模型中数据及其联系所具有的制约和依存规则，用以限定符合数据模型的数据库状态及其状态的变化，以保证数据的正确性、有效性和相容性。20.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() str Text=InputBox(“请输入“) Text1.Text=strText End Sub Private Sub Text1_Change() La
47、bel1.Caption=Right(Trim(Text1.Text)，3) End Sub 程序运行后，如果在对话框中输入 abcdef，则在标签中显示的内容是 _。（分数：2.00）A.空B.abcdefC.abcD.def 解析：评析 Trim 函数返回 Variant(String)类型，其中包含指定字符串的拷贝，但不包含前导和尾随空白。Right(字符串，n)：返回“字符串”的后 n 个字符。这里的“字符串”可以是字符串常量、字符串变量、字符串函数或字符串连接表达式。本题中输入的是 abcdef，返回后 3 个字符就是 def。21.以下叙述中错误的是 _。（分数：2.00）A.下拉式菜单和弹出式菜单都用菜单编辑器建立B.在多窗体程序中，每个窗休都可以建立自己的菜单系统C.除分隔线外，所有菜单项都能接收 Click 事件 D.如果把一个菜单项的 Enabled 属性设置为 False，则该菜单项不可用解析：评析 PopupMenu 方法的使用形式如下：对象.PopupMenu 菜单名，标志，x，y。其中，x，y：是快捷菜单显示的位置。标志：指定快捷菜单的行为。当标
