1、二级 VISUAL+BASIC 笔试-202 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.当窗体最小化时缩小为一个图标，设置这个图标的属性是_。（分数：2.00）A.MouseIconB.IconC.PictureD.MousePointer2.设关系 R 和 S 的元组个数分别为 100 和 300，关系 T 是 R 与 S 的笛卡尔积，则 T 的元组个数是_。（分数：2.00）A.400B.10000C.30000D.900003.在数据库的三级模式结构中，外模式有_。（分数：2.00）A.1 个B.2 个C.3 个D.任意多个4.
2、在窗体上画一个名称为 Command1 的命令按钮和一个名称为 List1 的列表框。如图 1 所示程序的功能是：单击命令按钮后，程序用“筛选法“求出 1100 之间的全部素数。将其素数在列表框中显示出来。根据题意，填空处应该选择_。（分数：2.00）A.B.C.D.5.要想不使用 Shift 或 Ctrl 键就能在列表框中同时选择多个项目，则应把该列表框的 MultiSelect 属性设置为_。（分数：2.00）A.0B.1C.2D.其他6.窗体上画了两个按钮按钮 Command1 和 Command2，有如下程序： Private Sub Command1_Click( )Print “V
3、isual“;End SubPrivate Sub Command2_Click( )Print “Basic“;End SubPrivate Sub Form_Load( )Command2.Cancel = TrueCommand1.Cancel = TrueEnd Sub执行程序后，按键盘 Cancel 键，在窗体上输出结果是_。（分数：2.00）A.BasicB.VisualC.CancelD.True7.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim a As Integer, b As In
4、teger, c As Integera = 1: b = 2: c = 3Print fun2(c, b, a)End SubPrivate Function fun1(x As Integer, y As Integer, z As Integer)fun1 = 2 * x + y + 3 * zEnd FunctionPrivate Function fun2(x As Integer, y As Integer, z As Integer)fun2 = fun1(z, x, y)+ xEnd Function程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.7B.
5、14C.17D.308.设有如下变量声明：Dim TestDate As Date为变量 TestDate 正确赋值的表达方式是_。（分数：2.00）A.TestDate = #1/1/2002#B.TestDate = #“1/1/2002“#C.TestDate = Date(“1/1/2002“)D.TestDate = Format(m / d / yy, “1/1/2002“)9.对长度为 n 的有序单链表，若搜索每个元素的概率相等，则顺序搜索到表中任一元素的平均搜索长度为_。（分数：2.00）A.n/2B.(n+1)/2C.(n-1)/2D.n/410.决定窗体标题条上显示内容的属
6、性是_。（分数：2.00）A.TextB.NameC.CaptionD.BackStyle11.下列语句用来设置窗体 Form1 的属性，其中在运行时不能正确操作的语句是_。（分数：2.00）A.Form1.Captin = “Form Test“B.Form1.Name = “Form Test“C.Form1.MaxButton = FalseD.Form1.MinButton = False12.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )x = 5: y = 2Call sub1(x), y)Pri
7、nt x; yEnd SubPrivate Sub sub1(m, n)t = m : m = n : n = tEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.2 5B.5 4C.1 4D.5 513.运行下列程序：Private Sub Form_Click( )Sum = 0For i = 1 To 100If Mid(CStr(i)， 1， 1)= “1“ ThenSum = Sum + 1End IfNext iPrint SumEnd Sub单击窗体后，则在窗体上显示的结果是_。（分数：2.00）A.12B.13C.14D.1514.当改变目录
8、列表框控件 Dir1 中的当前目录时，希望同步改变文件列表框 File1 中显示的文件，在Dir1_change 事件过程中使用的命令是_。（分数：2.00）A.File1.Path = Dir1.PathB.Dir1.Path = File 1 .PathC.File1.Path = Dir1.DriveD.Dir1.Drive = File1.Path15.为了获得当前未被使用的文件号，可以利用 VB 提供的_函数来实现。（分数：2.00）A.FreeFileB.OpenC.InputD.Path16.VB 集成开发环境有三种工作状态，不属于三种工作状态之一的是_。（分数：2.00）A.设
9、计状态B.编写代码状态C.运行状态D.中断状态17.数据结构中，与所使用的计算机无关的是数据的_。（分数：2.00）A.存储结构B.物理结构C.逻辑结构D.物理和存储结构18.以下关于图片框控件的说法中，错误的是_。（分数：2.00）A.可以通过 Print 方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用 Stretch 属性可以自动调整图片框中图形的大小19.窗体是 Visual Basic 中的对象，具有自己的属性、方法和_。（分数：2.00）A.控件参考答案与分析B.函数C.事件D.公用过程20.以下能够触发文本框 Chang
10、e 事件的操作是_。（分数：2.00）A.文本框失去焦点B.文本框获得焦点C.当文本框不可用时D.改变文本框的内容21.运行以下程序后，输出结果是_。for i = 1 to 3clsprint “i = “，i;Next（分数：2.00）A.123B.3C.i = 1i = 2i = 3D.i = 322.栈和队列的共同点是_。（分数：2.00）A.都是先进先出B.都是先进后出C.只允许在端点处插入和删除元素D.没有共同点23.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )
11、Dim iAsInteger， n As IntegerFor i = 0 To 50i = i + 3n = n + 1If i 10 Then Exit ForNextText1.Text = Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：2.00）A.2B.3C.4D.524.以下测试方法是白盒测试方法的是_。（分数：2.00）A.判定覆盖和边界值分析法B.等价类划分和错误推测法C.路径覆盖和判定/条件覆盖法D.条件覆盖和错误推测法25.下列语句正确的是_。（分数：2.00）A.If X 3 * Y And X Y Then Y = X 3B.If
12、X 3 * Y And X Y Then Y = X3C.If X 3 * Y : X Y Then Y = X 3D.If X 3 * Y And X Y Then Y = X * * 326.在窗体上画一个命令按钮(名称为 Command1)，然后编写如下事件过程：Private Sub Command1_Click()A = 4 : b = 5 : c = 6Print a = b + cEnd Sub程序运行后，单击命令按钮，其结果为_。（分数：2.00）A.a = 11B.a = b+cC.FalseD.出错27.为使标题栏上的这两个按钮消失，而保留其他按钮，设置窗体属性时，正确的是
13、_。（分数：2.00）A.ControlBox = True、 MaxButton = False、 MinButton = TrueB.ControlBox = False、 MaxButton = True、 MinButton = TrueC.ControlBox = True、 MaxButton = False、 MinButton = FalseD.ControlBox = False、 MaxButton = False、 MinButton = False28.如果将 PasswordChar 属性设置为一个字符，如星号(*)，运行时，在文本框中输入的字符仍然显示出来，而不显示
14、星号，原因可能是_。（分数：2.00）A.文本框的 MultiLine 属性值为 TrueB.文本框的 Locked 属性值为 TrueC.文本框的 MultiLine 属性值为 FalseD.文本框的 Locked 属性值为 False29.在软件生命周期中，能准确确定软件系统必须做什么和必须具备的功能的阶段是_。（分数：2.00）A.概要设计B.详细设计C.可行性分析D.需求分析30.在设计程序时，应采纳的原则之一是_。（分数：2.00）A.程序结构应有助于读者理解B.不限制 goto 语句的使用C.减少或取消注解行D.程序越短越好31.Randomize 语句的功能是_。（分数：2.00
15、）A.产生一个(0，1)之间的随机小数B.产生一个1，10之间的随机整数C.产生一个(-1，1)之间的随机小数D.产生新的随机整数32.对于如下图所示的二叉树，其后序遍历序列是_。（分数：2.00）A.B.C.D.33.阅读程序：Private Sub Form_Click()Dim num As Integer， digit As Integernum = InputBox(“输入数据“)Do While num 0digit = num Mod 10num = num / 10Print digit;LoopEnd Sub程序运行后，如果从键盘上输入 12345，则输出结果为_。（分数：2
16、.00）A.1 3 7 5 9B.5 4 3 2 1C.2 4 6 8 10D.1 2 3 4 534.以下关于变量作用域的叙述中，正确的是_。（分数：2.00）A.窗体中凡被声明为 Private 的变量只能在某个指定的过程中使用B.窗体中凡被声明为 Private 的变量只能在某个指定的过程中使用C.模块级变量只能用 private 关键字声明D.Static 类型变量的作用域是它所在的窗体或模块文件35.用某种排序方法对序列(25，84，21，47，15，27，68，35，20)进行排序，记录序列的变化情况如下：15，20，21，25，47，27，68，35，8415，20，21，25，
17、35，27，47，68，8415，20，21，25，27，35，47，68，84则采取的排序方法是_。（分数：2.00）A.直接选择排序B.冒泡排序C.快速排序D.希尔排序二、填空题(总题数：11，分数：30.00)36.线性表是最简单的一种数据结构，有顺序和链接两种存储方式。线性表按链接方式存储时，每个结点的存储包括 1 两部分。（分数：2.00）填空项 1:_37.具有 88 个结点的二叉树，其深度至少为 1。（分数：2.00）填空项 1:_38.在面象对象程序设计中，从外面看只能看到对象的外部特征，而不知道也无需知道数据的具体结构以及实现操作的算法，这称为对象的 1。（分数：2.00）填
18、空项 1:_39.概要设计说明书是软件 1 阶段的主要成果。（分数：2.00）填空项 1:_40.RS 用基本的关系代数运算可以表示为 1。（分数：2.00）填空项 1:_Visual Basic6.0 的集成开发环境有两种方式，第一种方式是 (6) ，第二种方式是 (7) 。（分数：4.00）填空项 1:_填空项 1:_41.在 VB 中，当改变目录列表框的 path 属性值时，改变了当前驱动器的 1。（分数：2.00）填空项 1:_在窗体上画一个文本框和一个命令按钮，如图 2 所示。（分数：4.00）填空项 1:_填空项 1:_42.为了使一个标签透明且没有边框，必须把它的 1 属性设置为
19、 0，并把 BackStyle 属性设置为 0。（分数：2.00）填空项 1:_在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图 6-1 所示。下面是实现上述功能的程序，请填空。Private Sub Form_Load( )List1.AddItem “AAAAA“List1.AddItem “BBBBB“List1.AddItem “CCCCC“List1 .AddItem “DDDDD“End SubPrivate Sub Command1_Click( )Dim L
20、1 As IntegerL1 = (12) If L1 = 0 ThenList1.RemoveItem (13) Label1.Caption = (14) ElseMsgBox“请选择要删除的项目“End IfEnd Sub（分数：6.00）填空项 1:_填空项 1:_填空项 1:_43.以下程序的功能是：程序运行后，单击命令按钮，输出结果为：1 4 72 5 83 6 9请填空。Private Sub Command1_Click( )Dim Arr(3，3)As IntegerFor i = 1 To 3For j = 1 To 3Arr(i， j)= _Print Arr(i， j)
21、;Next jPrintNext iEnd Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-202 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.当窗体最小化时缩小为一个图标，设置这个图标的属性是_。（分数：2.00）A.MouseIconB.Icon C.PictureD.MousePointer解析：2.设关系 R 和 S 的元组个数分别为 100 和 300，关系 T 是 R 与 S 的笛卡尔积，则 T 的元组个数是_。（分数：2.00）A.400B.10000C.30000 D.90000解析：3.在数据
22、库的三级模式结构中，外模式有_。（分数：2.00）A.1 个B.2 个C.3 个D.任意多个 解析：4.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 List1 的列表框。如图 1 所示程序的功能是：单击命令按钮后，程序用“筛选法“求出 1100 之间的全部素数。将其素数在列表框中显示出来。根据题意，填空处应该选择_。（分数：2.00）A.B.C. D.解析：5.要想不使用 Shift 或 Ctrl 键就能在列表框中同时选择多个项目，则应把该列表框的 MultiSelect 属性设置为_。（分数：2.00）A.0B.1C.2 D.其他解析：6.窗体上画了两个按钮按钮 Comm
23、and1 和 Command2，有如下程序： Private Sub Command1_Click( )Print “Visual“;End SubPrivate Sub Command2_Click( )Print “Basic“;End SubPrivate Sub Form_Load( )Command2.Cancel = TrueCommand1.Cancel = TrueEnd Sub执行程序后，按键盘 Cancel 键，在窗体上输出结果是_。（分数：2.00）A.BasicB.Visual C.CancelD.True解析：7.在窗体上画一个名称为 Command1 的命令按钮，然
24、后编写如下事件过程：Private Sub Command1_Click( )Dim a As Integer, b As Integer, c As Integera = 1: b = 2: c = 3Print fun2(c, b, a)End SubPrivate Function fun1(x As Integer, y As Integer, z As Integer)fun1 = 2 * x + y + 3 * zEnd FunctionPrivate Function fun2(x As Integer, y As Integer, z As Integer)fun2 = fun
25、1(z, x, y)+ xEnd Function程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.7B.14 C.17D.30解析：8.设有如下变量声明：Dim TestDate As Date为变量 TestDate 正确赋值的表达方式是_。（分数：2.00）A.TestDate = #1/1/2002# B.TestDate = #“1/1/2002“#C.TestDate = Date(“1/1/2002“)D.TestDate = Format(m / d / yy, “1/1/2002“)解析：9.对长度为 n 的有序单链表，若搜索每个元素的概率相等，则顺序搜
26、索到表中任一元素的平均搜索长度为_。（分数：2.00）A.n/2B.(n+1)/2C.(n-1)/2 D.n/4解析：10.决定窗体标题条上显示内容的属性是_。（分数：2.00）A.TextB.NameC.Caption D.BackStyle解析：11.下列语句用来设置窗体 Form1 的属性，其中在运行时不能正确操作的语句是_。（分数：2.00）A.Form1.Captin = “Form Test“B.Form1.Name = “Form Test“ C.Form1.MaxButton = FalseD.Form1.MinButton = False解析：12.在窗体上画一个名称为 Co
27、mmand1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )x = 5: y = 2Call sub1(x), y)Print x; yEnd SubPrivate Sub sub1(m, n)t = m : m = n : n = tEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.2 5B.5 4C.1 4D.5 5 解析：13.运行下列程序：Private Sub Form_Click( )Sum = 0For i = 1 To 100If Mid(CStr(i)， 1， 1)= “1“ ThenSum =
28、 Sum + 1End IfNext iPrint SumEnd Sub单击窗体后，则在窗体上显示的结果是_。（分数：2.00）A.12 B.13C.14D.15解析：14.当改变目录列表框控件 Dir1 中的当前目录时，希望同步改变文件列表框 File1 中显示的文件，在Dir1_change 事件过程中使用的命令是_。（分数：2.00）A.File1.Path = Dir1.Path B.Dir1.Path = File 1 .PathC.File1.Path = Dir1.DriveD.Dir1.Drive = File1.Path解析：15.为了获得当前未被使用的文件号，可以利用 VB
29、 提供的_函数来实现。（分数：2.00）A.FreeFile B.OpenC.InputD.Path解析：16.VB 集成开发环境有三种工作状态，不属于三种工作状态之一的是_。（分数：2.00）A.设计状态B.编写代码状态 C.运行状态D.中断状态解析：17.数据结构中，与所使用的计算机无关的是数据的_。（分数：2.00）A.存储结构B.物理结构C.逻辑结构 D.物理和存储结构解析：18.以下关于图片框控件的说法中，错误的是_。（分数：2.00）A.可以通过 Print 方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用 Stretch
30、 属性可以自动调整图片框中图形的大小 解析：19.窗体是 Visual Basic 中的对象，具有自己的属性、方法和_。（分数：2.00）A.控件参考答案与分析B.函数C.事件 D.公用过程解析：20.以下能够触发文本框 Change 事件的操作是_。（分数：2.00）A.文本框失去焦点B.文本框获得焦点C.当文本框不可用时D.改变文本框的内容 解析：21.运行以下程序后，输出结果是_。for i = 1 to 3clsprint “i = “，i;Next（分数：2.00）A.123B.3C.i = 1i = 2i = 3D.i = 3 解析：22.栈和队列的共同点是_。（分数：2.00）A
31、.都是先进先出B.都是先进后出C.只允许在端点处插入和删除元素 D.没有共同点解析：23.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim iAsInteger， n As IntegerFor i = 0 To 50i = i + 3n = n + 1If i 10 Then Exit ForNextText1.Text = Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：2.00）A.2B.3 C.4D.5解析：24.以下测试方法是
32、白盒测试方法的是_。（分数：2.00）A.判定覆盖和边界值分析法B.等价类划分和错误推测法C.路径覆盖和判定/条件覆盖法 D.条件覆盖和错误推测法解析：25.下列语句正确的是_。（分数：2.00）A.If X 3 * Y And X Y Then Y = X 3 B.If X 3 * Y And X Y Then Y = X3C.If X 3 * Y : X Y Then Y = X 3D.If X 3 * Y And X Y Then Y = X * * 3解析：26.在窗体上画一个命令按钮(名称为 Command1)，然后编写如下事件过程：Private Sub Command1_Clic
33、k()A = 4 : b = 5 : c = 6Print a = b + cEnd Sub程序运行后，单击命令按钮，其结果为_。（分数：2.00）A.a = 11B.a = b+cC.False D.出错解析：27.为使标题栏上的这两个按钮消失，而保留其他按钮，设置窗体属性时，正确的是_。（分数：2.00）A.ControlBox = True、 MaxButton = False、 MinButton = TrueB.ControlBox = False、 MaxButton = True、 MinButton = TrueC.ControlBox = True、 MaxButton =
34、False、 MinButton = False D.ControlBox = False、 MaxButton = False、 MinButton = False解析：28.如果将 PasswordChar 属性设置为一个字符，如星号(*)，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是_。（分数：2.00）A.文本框的 MultiLine 属性值为 True B.文本框的 Locked 属性值为 TrueC.文本框的 MultiLine 属性值为 FalseD.文本框的 Locked 属性值为 False解析：29.在软件生命周期中，能准确确定软件系统必须做什么和必须
35、具备的功能的阶段是_。（分数：2.00）A.概要设计B.详细设计C.可行性分析D.需求分析 解析：30.在设计程序时，应采纳的原则之一是_。（分数：2.00）A.程序结构应有助于读者理解 B.不限制 goto 语句的使用C.减少或取消注解行D.程序越短越好解析：31.Randomize 语句的功能是_。（分数：2.00）A.产生一个(0，1)之间的随机小数B.产生一个1，10之间的随机整数C.产生一个(-1，1)之间的随机小数D.产生新的随机整数 解析：32.对于如下图所示的二叉树，其后序遍历序列是_。（分数：2.00）A.B.C. D.解析：33.阅读程序：Private Sub Form_
36、Click()Dim num As Integer， digit As Integernum = InputBox(“输入数据“)Do While num 0digit = num Mod 10num = num / 10Print digit;LoopEnd Sub程序运行后，如果从键盘上输入 12345，则输出结果为_。（分数：2.00）A.1 3 7 5 9B.5 4 3 2 1 C.2 4 6 8 10D.1 2 3 4 5解析：34.以下关于变量作用域的叙述中，正确的是_。（分数：2.00）A.窗体中凡被声明为 Private 的变量只能在某个指定的过程中使用B.窗体中凡被声明为 P
37、rivate 的变量只能在某个指定的过程中使用 C.模块级变量只能用 private 关键字声明D.Static 类型变量的作用域是它所在的窗体或模块文件解析：35.用某种排序方法对序列(25，84，21，47，15，27，68，35，20)进行排序，记录序列的变化情况如下：15，20，21，25，47，27，68，35，8415，20，21，25，35，27，47，68，8415，20，21，25，27，35，47，68，84则采取的排序方法是_。（分数：2.00）A.直接选择排序B.冒泡排序C.快速排序 D.希尔排序解析：二、填空题(总题数：11，分数：30.00)36.线性表是最简单的一
38、种数据结构，有顺序和链接两种存储方式。线性表按链接方式存储时，每个结点的存储包括 1 两部分。（分数：2.00）填空项 1:_ （正确答案：数据和指针）解析：37.具有 88 个结点的二叉树，其深度至少为 1。（分数：2.00）填空项 1:_ （正确答案：7）解析：38.在面象对象程序设计中，从外面看只能看到对象的外部特征，而不知道也无需知道数据的具体结构以及实现操作的算法，这称为对象的 1。（分数：2.00）填空项 1:_ （正确答案：封装性）解析：39.概要设计说明书是软件 1 阶段的主要成果。（分数：2.00）填空项 1:_ （正确答案：概要设计）解析：40.RS 用基本的关系代数运算可
39、以表示为 1。（分数：2.00）填空项 1:_ （正确答案：R-(R-S)）解析：Visual Basic6.0 的集成开发环境有两种方式，第一种方式是 (6) ，第二种方式是 (7) 。（分数：4.00）填空项 1:_ （正确答案：多文档界面MDI）解析：填空项 1:_ （正确答案：单文档界面SD）解析：41.在 VB 中，当改变目录列表框的 path 属性值时，改变了当前驱动器的 1。（分数：2.00）填空项 1:_ （正确答案：当前路径）解析：在窗体上画一个文本框和一个命令按钮，如图 2 所示。（分数：4.00）填空项 1:_ （正确答案：Cde）解析：填空项 1:_ （正确答案：BCD
40、）解析：42.为了使一个标签透明且没有边框，必须把它的 1 属性设置为 0，并把 BackStyle 属性设置为 0。（分数：2.00）填空项 1:_ （正确答案：BorderStyle）解析：在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图 6-1 所示。下面是实现上述功能的程序，请填空。Private Sub Form_Load( )List1.AddItem “AAAAA“List1.AddItem “BBBBB“List1.AddItem “CCCCC“List1
41、.AddItem “DDDDD“End SubPrivate Sub Command1_Click( )Dim L1 As IntegerL1 = (12) If L1 = 0 ThenList1.RemoveItem (13) Label1.Caption = (14) ElseMsgBox“请选择要删除的项目“End IfEnd Sub（分数：6.00）填空项 1:_ （正确答案：List1.ListIndex）解析：填空项 1:_ （正确答案：L1）解析：填空项 1:_ （正确答案：List1.ListCount）解析：43.以下程序的功能是：程序运行后，单击命令按钮，输出结果为：1 4 72 5 83 6 9请填空。Private Sub Command1_Click( )Dim Arr(3，3)As IntegerFor i = 1 To 3For j = 1 To 3Arr(i， j)= _Print Arr(i， j);Next jPrintNext iEnd Sub（分数：2.00）填空项 1:_ （正确答案：i+(j-1)*3(i-1)+j*3-2）解析：
