1、二级 VISUAL+BASIC-35 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.下列叙述中正确的是_。（分数：2.50）A.循环队列是队列的一种链式存储结构B.循环队列是队列的一种顺序存储结构C.循环队列是非线性结构D.循环队列是一种逻辑结构2.下列关于线性链表的叙述中，正确的是_。（分数：2.50）A.各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致B.各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C.进行插入与删除时，不需要移动表中的元素D.各数据结点的存储顺序与逻辑顺序可以不一致，它们的存
2、储空间也可以不一致3.一棵二叉树共有 25 个结点，其中 5 个是叶子结点，则度为 1 的结点数为_。（分数：2.50）A.16B.10C.6D.44.在下列模式中，能够给出数据库物理存储结构与物理存取方法的是_。（分数：2.50）A.外模式B.内模式C.概念模式D.逻辑模式5.在满足实体完整性约束的条件下_。（分数：2.50）A.一个关系中应该有一个或多个候选关键字B.一个关系中只能有一个候选关键字C.一个关系中必须有多个候选关键字D.一个关系中可以没有候选关键字6.有三个关系 R，S 和 T 如下： R A B C a 1 2 b 2 1 c 3 1 S A B c 3 T C 1 则由关
3、系 R 和 S 得到关系 T 的操作是_。（分数：2.50）A.自然连接B交C除D并7.下面描述中，不属于软件危机表现的是_。（分数：2.50）A.软件过程不规范B.软件开发生产率低C.软件质量难以控制D.软件成本不断提高8.下面不属于需求分析阶段任务的是_。（分数：2.50）A.确定软件系统的功能需求B.确定软件系统的性能需求C.需求规格说明书评审D.制定软件集成测试计划9.在黑盒测试方法中，设计测试用例的主要根据是_。（分数：2.50）A.程序内部逻辑B.程序外部功能C.程序数据结构D.程序流程图10.在软件设计中不使用的工具是_。（分数：2.50）A.系统结构图B.PAD 图C.数据流图
4、(DFD 图)D.程序流程图11.在窗体上添加“控件”的正确的操作方式是_。（分数：2.50）A.先单击工具箱中的控件图标，再单击窗体上适当位置B.先单击工具箱中的控件图标，再双击窗体上适当位置C.直接双击工具箱中的控件图标，该控件将出现在窗体上D.直接将工具箱中的控件图标拖动到窗体上适当位置12.为了使标签控件在显示其内容时不覆盖其背景内容，需进行设置的属性为_。（分数：2.50）A.BackColorB.BorderStyleC.ForeColorD.BackStyle13.Visual Basic 控件一般都规定一个默认属性，在引用这样的属性时，只写对象名而不必给出属性名。默认属性为 C
5、aption 的控件是_。（分数：2.50）A.列表框(ListBox)B.标签(Label)C.文本框(TextBox)D.组合框(ComboBox)14.下列说法中，错误的是_。（分数：2.50）A.将焦点移至命令按钮上，按 Enter 键，则引发命令按钮的 Click 事件B.单击命令按钮，将引发命令按钮的 Click 事件C.命令按钮没有 Picture 属性D.命令按钮不支持 DblClick 事件15.为了将“联想电脑”作为数据项添加到列表框 List1 的最前面，可以使用语句_。（分数：2.50）A.List1.AddItem“联想电脑“，0B.List1.AddItem“联想电
6、脑“，1C.List1.AddItem 0，“联想电脑“D.List1.AddItem1,“联想电脑“16.下列关于利用通用对话框产生的文件对话框的相关属性的描述中，错误的是_。（分数：2.50）A.InitDir 属性用于设置对话框中显示的起始目录B.Filter 属性用于设置对话框默认的过滤器C.DefaultExt 属性用于设置对话框中默认的文件类型D.FileTitle 属性用于存放对话框中所选择的文件名17.下列事件的事件过程中，参数是输入字符 ASCII 码的是_。（分数：2.50）A.KeyDown 事件B.KeyUp 事件C.KeyPress 事件D.Change 事件18.已
7、知图片框 Picture1 中已装入一个图形，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是_。（分数：2.50）A.在设计阶段选择图片框 Picture1，并按 Delete 键B.在运行期间执行语句 Picture1.Picture=LoadPicture(“)C.在运行期间执行语句 Picture1.Piclure=“D.在设计阶段先选中图片框 Picture1，再在属性窗口中选择 Picture 属性，最后按 Enter 键19.窗体上有一个名称为 Text1 的文本框，一个名称为 Timer1 的计时器，且已在属性窗口将 Timer1 的Interval 属性设置为 20
8、00、Enabled 属性设置为 False。以下程序的功能是单击窗体时，则每隔 2 秒钟在Text1 中显示一次当前时间。 Private Sub Form_Click() Timer1_ End Sub Private Sub Timer1_Timer() Text1.Text=Time() End Sub 为了实现上述功能，应该在_处填入的内容为_。 （分数：2.50）A.B.C.D.20.窗体上已有的 3 个单选按钮组成了一个名为 ChkOpt1 的控件数组。用于区分控件数组 ChkOpt1 中每个元素的属性是_.（分数：2.50）A.CaptionB.ListCountC.ListI
9、ndexD.Index21.编写如下程序： Private sub Command1_Click() m=1:n=0 Do While m20 n=m+n m=3*m+1 Loop Print m,n End Sub 程序运行后，单击命令按钮 Command1，输出结果为_。（分数：2.50）A.40 18B.40 19C.20 64D.21 6422.下列循环中，可以正常结束的是_。 A B C D （分数：2.50）A.B.C.D.23.编写如下程序： Private Sub Command1_Click() Dim x As Integer,y As Integer x=InputBox
10、(“输入第一个数“) y=InputBox(“输入第二个数“) Call f(x,y) Print x,y End Sub Sub f(a As Integer,ByVal b As Integer) a=a*2 x=a+b b=b+100 End Sub 程序运行后，单击命令按钮 Command1，并输入数值 10 和 15，则输出结果为_。（分数：2.50）A.10 115B.20 115C.35 15D.20 1524.编写如下程序： Private Sub Command1_Click() Dim str1 As String,str2 As String str1=InputBox(
11、“输入一个字符串“) subf str1，str2 Print str2 End Sub Sub subf(s1 As String，s2 As String) Dim temp As String Static i As Integer i=i+1 temp=Mid(s1,i,1) If temp“Then subf s1.s2 s2=s2 Next m End Sub Function proc(i As Integer) Dim a As Integer Static b As Integer a=a+1 b=b+1 proc=a*b+i End Function 程序运行后，单击命令按
12、钮 Command1，输出结果为_。（分数：2.50）A.3 3 3B.3 4 5C.3 5 6D.1 2 328.编写如下程序： Private Sub Form_Click() Print“Welcome!“ End Sub Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) Print “欢迎!“ End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As S
13、ingle) Print“热烈欢迎!“ End Sub 程序运行后，单击窗体，输出结果为_。 A B C D （分数：2.50）A.B.C.D.29.编写如下程序： Private Sub Command1_Click() Dim i As Integer,j As Integer n=InputBox(“输入一个大于 1 的正整数“) 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.50）A.判断 n 是否
14、为素数B.输出 n 以内所有的奇数C.输出 n 以内所有的偶数D.输出 n 以内所有的素数30.以下程序的功能是随机产生 10 个两位的整数： Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim i As Integer Randomize For i=1 To 10 a(i)=Int(Rnd*100)+1 Print a(i) Next i End Sub 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是_。（分数：2.50）A.a(i)=Int(Rnd*100)B.a(i)=Int(
15、Rnd*90)+10C.a(i)=Int(Rnd*100)+10D.a(i)=Int(Rnd*101)31.设有数组定义语句：Dim a(5)As Integer，List1 为列表框控件。下列给数组元素赋值的语句错误的是_。（分数：2.50）A.a(3)=3B.a(3)=Inputbox(“inputdata“)C.a(3)=List1.ListIndexD.a=Array(1,2,3,4,5,6)32.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s=0
16、:j=1 a=Array(1,2,3,4) For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next Print s End Sub 运行上面的程序并单击命令按钮，其输出结果是_。（分数：2.50）A.4321B.1234C.34D.1233.下面程序运行后，单击命令按钮，输出的结果是_。 Private Sub Command1_Click() Dim a%(1 To 4)，b%(2 To 6)，i%，str1#，str2# For i=1 To 4 a(i)=i Next For i=2 To 6 b(i)=i Next str1=YAG(A) str2=YAG
17、(B) Print“str1=“;str1;“str2=“;str2 End Sub Function YAG(a()As Integer) Dim t#,i% For i=LBound(A)To UBound(A) t=t*a(i) Next YAG=t End Function（分数：2.50）A.str1=24 str2=720B.str1=12 str2=360C.str1=24 sir2=180D.str1=36 str2=72034.有如下一个函数过程： Function Fun(a As Integer) Static c b=0:b=b+1:c=c+1 Fun=a+b+c En
18、d Function 在窗体上添加一个命令按钮，事件过程如下： Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print Fun(a); Next End Sub 运行该程序，单击命令按钮，输出结果是_。（分数：2.50）A.4 4 4B.4 5 6C.6 7 8D.4 7 935.在窗体上画一个命令按钮 Command1 和两个文本框，名称分别为 Text1 和 Text2。编写如下两个事件过程： Dim Str1 As String，str2 As String Private Sub form_load()
19、Text1.Text=“ Text2.Text=“ Text1.Enabled=False Text2.Enabled=False End Sub Private Suh Form_KeyPress(KeyAscii As Integer) str1=str1 Next m End Sub Function proc(i As Integer) Dim a As Integer Static b As Integer a=a+1 b=b+1 proc=a*b+i End Function 程序运行后，单击命令按钮 Command1，输出结果为_。（分数：2.50）A.3 3 3B.3 4 5
20、C.3 5 6D.1 2 3解析：解析 变量 b 定义成 Static 即静态变量，特点是每次调用都会保留上次的值。程序 Click 事件中执行了 3 次 proc(n)，即 proc(2)： 第一次，a=a+1=0+1=1，b=b+1=0+1=1，proc=a*b+i=1*1+2=3； 第二次，a=a+1=0+1=1，b=b+1=1+1=2，proc=a*b+i=1*2+2=4； 第三次，a=a+1=0+1=1，b=b+1=2+1=3，proc=a*b+i=1*3+2=5； 输出的结果为 3 4 5。因此本题答案为 B。28.编写如下程序： Private Sub Form_Click()
21、Print“Welcome!“ End Sub Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) Print “欢迎!“ End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print“热烈欢迎!“ End Sub 程序运行后，单击窗体，输出结果为_。 A B C D （分数：2.50）A. B.C.D.解析：解析 在窗体事件中，鼠标按键按
22、下将触发 MouseDown 事件，鼠标按钮松开将触发 MouseUp 事件，当鼠标按下并松开后会触发 Click 事件，因此这 3 个事件的顺序应是 MouseDown，MouseUp，Click，所以输出文字的顺序是“欢迎!”、“热烈欢迎!”、“Welcome!”。因此本题答案应为 A。29.编写如下程序： Private Sub Command1_Click() Dim i As Integer,j As Integer n=InputBox(“输入一个大于 1 的正整数“) For i=2 To n For j=2 To Sqr(i) If i Mod j=0 Then Exit Fo
23、r Next j If jSqr(i)Then Print i Next i End Sub 该程序的功能是_。（分数：2.50）A.判断 n 是否为素数B.输出 n 以内所有的奇数C.输出 n 以内所有的偶数D.输出 n 以内所有的素数 解析：解析 假设输入 2，4，9 进行验证，当输入 2 时程序会输出 2，而输入 4 时，程序会输出 2，3，因此程序不是判断 n 是否为素数，所以 A 不对。由前面验证可知，程序也不是输出 n 以内的所有奇数或偶数，因此 B，C 也不对。如果输入 9 时，程序会输出 2，3，5，7，说明程序是输出 n 以内的所有素数，所以 D 正确。本题答案应为 D。30
24、.以下程序的功能是随机产生 10 个两位的整数： Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim i As Integer Randomize For i=1 To 10 a(i)=Int(Rnd*100)+1 Print a(i) Next i End Sub 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是_。（分数：2.50）A.a(i)=Int(Rnd*100)B.a(i)=Int(Rnd*90)+10 C.a(i)=Int(Rnd*100)+10D.a(i)=Int(Rnd
25、*101)解析：解析 由于 Rnd 函数生成的随机数在 01 之间，包括 0 但不包括 1，因此有可能产生 0，与题目两位整数的要求不相符。所以语句 a(i)=Int(Rnd*100)+1 需要修改为 a(i)=Int(Rnd*90)+10，这样才能正确产生两位的整数。因此本题答案应为 B。31.设有数组定义语句：Dim a(5)As Integer，List1 为列表框控件。下列给数组元素赋值的语句错误的是_。（分数：2.50）A.a(3)=3B.a(3)=Inputbox(“inputdata“)C.a(3)=List1.ListIndexD.a=Array(1,2,3,4,5,6) 解析
26、：解析 使用 Array()为数组初始化时，定义数组不应写明长度和类型，如下便是错误的定义： Dim a a=Array(.)32.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s=0:j=1 a=Array(1,2,3,4) For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next Print s End Sub 运行上面的程序并单击命令按钮，其输出结果是_。（分数：2.50）A.4321B.1234 C.34D.12解析：解析
27、 数组名 a 为变体型变量，用 Array 函数对其进行初始化，得到 a(1)=1，a(2)=2，a(3)=3和 a(4)=4。变量 j 在循环中每次计算后扩大 10 倍，变量 s 的计算过程为s=41+310+2100+11000=1234。33.下面程序运行后，单击命令按钮，输出的结果是_。 Private Sub Command1_Click() Dim a%(1 To 4)，b%(2 To 6)，i%，str1#，str2# For i=1 To 4 a(i)=i Next For i=2 To 6 b(i)=i Next str1=YAG(A) str2=YAG(B) Print“s
28、tr1=“;str1;“str2=“;str2 End Sub Function YAG(a()As Integer) Dim t#,i% For i=LBound(A)To UBound(A) t=t*a(i) Next YAG=t End Function（分数：2.50）A.str1=24 str2=720 B.str1=12 str2=360C.str1=24 sir2=180D.str1=36 str2=720解析：解析 程序首先调用循环语句为数组 a，b 赋值，其中 a(i)=i；b(i)=i，且数组 a 的上下界分别为 1 和 4，数组 b 的上下界分别为 2 和 6，接着将数组
29、 a 作为参数调用 YAG 过程。在 YAG 过程中，定义了两个变量 t 及 i，i 作为循环语句 For 的变量，它的初始值和终值分别为数组的上下界，循环体为t=t*a(i)，即将 a(i)的值乘以 t，然后再赋给 t，当循环结束后，程序返回的就是数组 a 中的各元素的积。同理程序将数组 b 作为参数传递给 YAG 过程后返回数组 b 中各元素的积，运行程序结束后，输出结果为：str1=24 str2=720。34.有如下一个函数过程： Function Fun(a As Integer) Static c b=0:b=b+1:c=c+1 Fun=a+b+c End Function 在窗体
30、上添加一个命令按钮，事件过程如下： Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print Fun(a); Next End Sub 运行该程序，单击命令按钮，输出结果是_。（分数：2.50）A.4 4 4B.4 5 6 C.6 7 8D.4 7 9解析：解析 题中 c 为静态变量，在每次对子过程进行调用时，其值始终保持原值。计算过程为Fun=2+1+1=4，Fun=2+2+1=5，Fun=2+3+1=6。35.在窗体上画一个命令按钮 Command1 和两个文本框，名称分别为 Text1 和 Text2。编写如
31、下两个事件过程： Dim Str1 As String，str2 As String Private Sub form_load() Text1.Text=“ Text2.Text=“ Text1.Enabled=False Text2.Enabled=False End Sub Private Suh Form_KeyPress(KeyAscii As Integer) str1=str1&Chr(KeyAscii) End Sub Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) str2=str2&Chr(KeyC
32、ode) End Sub Private Sub Command1_Click() Text1.Text=str1 Text2.Text=str2 str1=“ str2=“ End Sub 当在设计阶段的窗体的 KeyPreview 属性设置为 True 时，程序运行过程中，在键盘上输入小写字母 abc，然后单击命令按钮，则文本框 Text1 中显示的内容为_。（分数：2.50）A.abc B.不显示任何信息C.ABCD.出错解析：解析 在 Command1 的 Click 事件中将字符串变量 str 赋给 Text1，str 变量是在 KeyPress 事件中被赋值的，语句 str=str
33、&Chr(KeyAscii)将输入的字符存储并连接起来，此处是通过参数 KeyAscii 来得到输入字符的(因此要区分字母的大小写)，又因为在 Form 的 Load 事件中将 Text1 和 Text2 的 Enabled 属性设置成 False，所以当前拥有输入焦点的对象是窗体，为了使窗体能接收键盘事件，已经将窗体的KeyPreview 属性设置为 True，所以在输入小写字母 abe 后，单击 Command1，触发其 Click 事件，使得Text1 文体控件的值等于 str 字符串的值，即 abc。36.编写如下两个事件过程： Private Sub Form_keyDown(Key
34、Code As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住 Shift 键和锁定大写键时)运行程序，如果按 a 键，则程序输出的结果是_。 A B C D （分数：2.50）A.B.C. D.解析：解析 KeyCode 是按键的实际的字符(不区分大小写)，KeyAscii 是以字符为准，是所按键的ASCII 码。37.鼠标移动经过控件时，将触发控件的_。（分数：
35、2.50）A.MouseDown 事件B.MouseUp 事件C.MouseMove 事件 D.Click 事件解析：解析 当鼠标指针在屏幕上移动时，就会发生 MouseMove 事件。当鼠标指针处在窗体和控件的边框内时，窗体和控件均能识别 MouseMove 事件。38.下列事件过程运行后输出结果是_。 Private Sub Command1_Click() Print Format$(123.456,“#.#%“) End Sub（分数：2.50）A.123.46%B.123.45%C.123.456%D.12345.6% 解析：解析 Format$(数值表达式，格式字符串)的功能是按“
36、格式字符串”指定的格式输出数值表达式的值，将多余位数舍去。39.在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt 文件)，则正确的描述格式是_。（分数：2.50）A.“text(.txt)(*.txt)“ B.“文本文件(.txt)(.txt)“C.“text(.txt)FFFFF|(*.txt)“D.“text(.txt)(*.text)“解析：解析 Filter 属性用来指定在对话框中显示的文件类型，Filter 的属性值由一对或多对文本字符串组成，每对字符串用管道符“|”隔开，在“|”前面的部分称为描述符，后面的部分一般为
37、通配符和文件扩展名，称为“过滤器”，如*.txt 等。40.如果准备读文件，打开顺序文件“text.dat”的正确语句是_。（分数：2.50）A.Open “text.dat“ For Write As #1B.Open “text.dat“ For Binary As #1C.Open “text.dat“ For Input As #1 D.Open “text.dat“ For Random As #1解析：解析 Open 语句对文件进行输入输出操作，语法为“Open文件名For模式As#文件号input 模式”表示从打开文件时，文件必须存在。顺序文件的读操作由 Input 语句来实现。
