1、二级 VISUAL+BASIC-37 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.具有 3 个结点的二叉树有_。（分数：2.50）A.2 种形态B.4 种形态C.7 种形态D.5 种形态2.设有下列二叉树： （分数：2.50）A.ZBTYCPXAB.ATBZXCYPC.ZBTACYXPD.ATBZXCPY3.下列数据结构中，能用二分法进行查找的是_。（分数：2.50）A.顺序存储的有序线性表B.线性链表C.二叉链表D.有序线性链表4.结构化程序设计主要强调的是_。（分数：2.50）A.程序的规模B.程序的效率C.程序设计语言的先进性D
2、.程序易读性5.为了使模块尽可能独立，要求_。（分数：2.50）A.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强6.在结构化方法中，软件功能分解属于下列软件开发中的_阶段。（分数：2.50）A.详细设计B.需求分析C.总体设计D.编程调试7.在软件设计中，不属于过程设计工具的是_。（分数：2.50）A.PDL(过程设计语言)B.PAD 图C.N-S 图D.DFD 图8.用树形结构来表示实体之间联系的模型称为_。（分数：2
3、.50）A.关系模型B.层次模型C.网状模型D.数据模型9.关系数据库管理系统所管理的关系是_。（分数：2.50）A.若干个二维表B.一个 DBF 文件C.一个 DBC 文件D.若干个 DBC 文件10.设有如下三个关系表： R A B C 1 1 2 2 2 3 S A B C 3 1 3 T A B C 1 1 2 2 2 3 3 1 3 下列操作中正确的是_。（分数：2.50）A.T=RSB.T=RSC.T=RSD.T=R/S11.如果要在窗体上画一个标签，应在工具箱窗口中选择的图标是_。 A B C D （分数：2.50）A.B.C.D.12.如果在框架中画了 2 个复选框，且框架的
4、Enabled 属性被设置为 False，2 个复选框的 Enabled 属性被设置为 True，则下面叙述中正确的是_。（分数：2.50）A.2 个复选框可用B.2 个复选框不可用C.2 个复选框不显示D.上述都不对13.设窗体上有 2 个直线控件 Line1 和 Line2，若使两条直线相连接，需满足的条件是_。（分数：2.50）A.Line1.X1=Line2.X2 且 Line1.Y1=Line2.Y2B.Line1.X1=Line2.Y1 且 Line1.Y1=Line2.X1C.Line1.X2=Line2.X1 且 Line1.Y1=Line2.Y2D.Line1.X2=Line
5、2.X1 且 Line1.Y2=Line2.Y214.设在窗体上有一个名称为 Check1 的复选框数组，并有以下事件过程： Private Sub Check1_Click(Index As Integer) End Sub（分数：2.50）A.单击数组中的任何复选框都会调用此事件过程B.参数 Index 的值等于单击数组中某个复选框的 Index 属性的值C.上面的过程是数线中第 1 个复选框的事件过程D.从过程的首部(即第 1 行)无法确定数组中复选框的个数15.下面列表框属性中，是数组的是_。（分数：2.50）A.ListCountB.SelectedC.ListIndexD.Mult
6、iSelect16.如果要在窗体上使用 2 组单选按钮，每组都可以有一个被选中，则应该做的是_。（分数：2.50）A.把 1 组单选按钮画在窗体的左边，另 1 组画在右边B.先画 2 组单选按钮，再画 2 个框架控件把 2 组单选按钮分别框起来C.先画 2 个框架控件，再把 2 组单选按钮分别画在不同的框架中D.因为 1 个窗体中只有 1 个单选按钮可以被选中，所以需要使用 2 个窗体17.窗体上有一个 Text1 文本框，并编写了下面事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii=KeyAscii+3 End Su
7、b 程序运行时，在文本框中输入字符“A”，则在文本框中实际显示的是_。（分数：2.50）AABBCCDD18.设窗体上有一个水平滚动条 HScroll1 和一个命令按钮 Command1，及下面的事件过程： Private Sub Form_Load() HScroll1.Min=0 HScroll1.Max=100 End Sub Private Sub Command1_Click() HScroll1.Value=70 End Sub 程序运行时单击命令按钮，则滚动条上滚动块位置的图示是_。 A B C D （分数：2.50）A.B.C.D.19.窗体上有一个如图所示的图形控件，控件中显
8、示了如图所示的文字，可以判断这个图形的控件_。 （分数：2.50）A.是图像框(Image)B.是图片框(PictureBox)C.是形状控件D.不是上述 3 种控件中的一种20.窗体上有一个名称为 Combo1 的组合框，要求在其编辑区输入文本并按回车键后，编辑区中的文本被添加到列表中。下面能实现这一功能的是_。（分数：2.50）A.Private Sub Combo1_KeyDown(KeyCode As Integer,Shift As Integer)If KeyCode=13 ThenCombo1.AddItem Combo1.TextEnd IfEnd SubB.Private S
9、ub Combo1_KeyDown(KeyCode As Integer,Shift As Integer)If KeyCode=13 ThenComho1.AddItem Text1.TextEnd IfEnd SubC.Private Sub Combo1_Click()Combo1.AddItem Combo1.TextEnd SubD.Private Sub Combo1_Click()Combo1.AddItem Text1.TextEnd Sub21.设有如下事件过程： Private Sub Command1_Click() For i=1 To 5 j=i Do Print“*
10、“ j=j-1 Loop Until j=0 Next i End Sub 运行程序，输出“*“的个数是_。（分数：2.50）A.5B.15C.20D.2522.设有如下事件过程： Private Sub Command1_Click() Dim a a=Array(3,5,6,3,2,6,5,3,5,4,3,9,4,5,6,3,5) x=0 n=UBound(a) For i=0 To n m=0 For j=0 To n If a(i)=a(j)Then m=m+1 End If Next j If mx Then x=m:b=a(i) Next i Print b End Sub 运行程
11、序，输出结果是_。（分数：2.50）A.2B.3C.5D.923.设窗体上有 2 个文本框 Text1 和 Text2，并有下面的事件过程： Dim n Private Sub Text1_KeyPress(KeyAscii As Integer) If“A“=Chr(KeyAscii)And Chr(KeyAscii)=“Z“ Then n=n+1 End If If KeyAscii=13 Then Text2.Text=n End If End Sub 程序运行时，在文本框 Text1 中输入“Visual Basic 6.0”并按同车键后，在文本框 Text2 中显示的是_。（分数：2
12、.50）A.2B.9C.13D.1624.设有如下事件过程： Private Sub Command1_Click() Dim a a=Array(12,3,8,5,10,3,5,9,2,4) For k=1 To 9 Print fun(a(k-1)，a(k);“ “; Next k End Sub Private Function fun(x,y)As Integer DoWhile x=y x=x-y Loop fun=x End Function 程序运行时的输出结果是_。（分数：2.50）A.4 0 1 0 3 0 0 4 0B.0 3 3 5 1 3 5 1 2C.9-5 3-5
13、7-2-4 7-2D.9 3 3 5 7 3 5 7 225.设有下面的语句： Print IIf(x0，1，IIf(x0，-1，0) 与此语句输出结果不同的程序段是_。 A B C D （分数：2.50）A.B.C.D.26.下面的程序是利用公式：=4-4/3+4/5-4/7+4/9-4/11+计算 的近似值。 Pvivate Sub Command1_Click() Dim PI As Double，x As Double，k As Long，sign As Integer sign=1 k=1 PI=0 Do x=sign*4/(2*k-1) PI=PI+x k=k+1 sign=_ L
14、oop Until Abs(x)0.000001 Print PI End Sub 在“_”应填写的是_。（分数：2.50）A.sign+1B.-signCxDk27.要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为 Labell)中，如图所示，放开鼠标左键后，停止同步显示，下面可以实现此功能的程序是_。 （分数：2.50）A.Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If(Button=1 ThenLabel1=“
15、X=“ “; Next k End Sub Private Function fun(x,y)As Integer DoWhile x=y x=x-y Loop fun=x End Function 程序运行时的输出结果是_。（分数：2.50）A.4 0 1 0 3 0 0 4 0B.0 3 3 5 1 3 5 1 2 C.9-5 3-5 7-2-4 7-2D.9 3 3 5 7 3 5 7 2解析：解析 数组默认下标为 0，因此数组 a 中的元素 a(0)=12，a(1)=3，a(2)=8，a(3)=5，a(4)=10，a(5)=3，a(6)=5，a(7)=9，a(8)=2，a(9)=4。
16、k=1 时，fun(a(k-1)，a(k)即 fun(a(0)，a(1)，即 fun(12,3)，过程中 x=x-y=12-3=9-3=6-3=3-3=0，函数返回 0； k=2 时，fun(a(k-1)，a(k)即 fun(a(1),a(2)，即 fun(3,8)，x=y 不成立，函数直接返回 3； k=3 时，fun(a(k-1)，a(k)即 fun(a(2),a(3)，即 fun(8,5)，过程中 x=x-y=8-5=3，函数返回 3； k=4 时，fun(a(k-1)，a(k)即 fun(a(3),a(4)，即 fun(5,10)，x=y 不成立，函数直接返回 5； k=5 时，fun
17、(a(k-1)，a(k)即 fun(a(4),a(5)，即 fun(10,3)，过程中 x=x-y=10-3=7-3=4-3=1，函数返回 1； k=6 时，fun(a(k-1)，a(k)即 fun(a(5),a(6)，即 fun(3,5)，x=y 不成立，函数直接返回 3； k=7 时，fun(a(k-1)，a(k)即 fun(a(6),a(7)，即 fun(5,9)，x=y 不成立，函数直接返回 5； k=8 时，fun(a(k-1)，a(k)即 fun(a(7),a(8)，即 fun(9,2)，过程中 x=x-y=9-2=7-2=5-2=3-2=1，函数返回 1； k=9 时，fun(a
18、(k-1)，a(k)即 fun(a(8),a(9)，即 fun(2,4)，x=y 不成立，函数直接返回 2； 因此程序输出结果为 0 3 3 5 1 3 5 1 2，B 选项正确。25.设有下面的语句： Print IIf(x0，1，IIf(x0，-1，0) 与此语句输出结果不同的程序段是_。 A B C D （分数：2.50）A.B.C.D. 解析：解析 IIF 函数可用来执行简单的条件判断操作，它是 If.Then.Else 结构的简写版本，格式如下： Result=IIf(条件,True 部分,Flase 部分) 因此 Print IIf(x0,1,IIf(x0,-1,0)可描述为：x0
19、 时输出 1；x 不大于 0 时，如果 x0 则输出-1；否则输出 0。D 选项缺少 End If 语句，程序段无法正确运行，因此选 D。26.下面的程序是利用公式：=4-4/3+4/5-4/7+4/9-4/11+计算 的近似值。 Pvivate Sub Command1_Click() Dim PI As Double，x As Double，k As Long，sign As Integer sign=1 k=1 PI=0 Do x=sign*4/(2*k-1) PI=PI+x k=k+1 sign=_ Loop Until Abs(x)0.000001 Print PI End Sub
20、在“_”应填写的是_。（分数：2.50）A.sign+1B.-sign CxDk解析：解析 根据公式 =4-4/3+4/5-4/7+4/9-4/11+可知，sign 是作为符号翻转的变量，即一次“+”下一次就为“-”，因此空缺处应该填-sign，这样就可使符号循环一次翻转一次。27.要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为 Labell)中，如图所示，放开鼠标左键后，停止同步显示，下面可以实现此功能的程序是_。 （分数：2.50）A.Private Sub Form_MouseDown(Button As Integer,Shift A
21、s Integer,X As Single,Y As Single)If(Button=1 ThenLabel1=“X=“&X&”Y=“&YEnd IfEnd SubB.Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=1 ThenLabel1=“X=“&X&“Y=“&YEnd IfEnd SubC.Private Sub Form_MouseMove(Button As Integer,Shift As Imeger,X As Single,Y As Si
22、ngle)If Button=1 ThenLabel1=“X=“&X&“Y=“&YEnd IfEnd Sub D.Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)Label1=“X=“&X&“Y=“&YEnd Sub解析：解析 鼠标移动时产生的事件是 MouseMove 事件。MouseDown 事件过程的参数定义如下： Sub Form_MouseMove(Button As integer,Shift AsInteger,x As Single,y As single
23、) 其中 Button 表示被按下的鼠标键，按下左键时值为 1，按下右键时值为 2，按下中间键时值为 4。x，y 参数表示鼠标光标当前位置的坐标。 题目要求按住鼠标左键时移动显示鼠标位置，因此在事件过程中要判断是否按下了鼠标左键，若按下了鼠标左键，则在标签中显示鼠标位置，否则不显示。因此可用条件 If Button=1 来判断是否按下了鼠标左键及是否显示鼠标位置。因此应该选择 C 选项。28.窗体上有一个名为 List1 的列表框和一个名为 Command1 的命令按钮，并有下面的事件过程： Private Sub Command1_Click() n%=List1.ListIndex If
24、n0 Then ch$=List1.List(n) List1.List(n)=List1.List(n-1) List1.List(n-1)=ch End If End Sub 程序运行时，选中一个列表项，然后单击 Command1 按钮，则产生的结果是_。（分数：2.50）A.若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置 B.选中的列表项与它前面的列表项互换位置C.若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置D.选中的列表项与它后面的列表项互换位置解析：解析 当单击 Command1 按钮后，List1 列表框中被选中项的索引值赋给变量 n，如果
25、被选中项不为空也不是第 1 项时，将选中项的项目文字赋值给变量 ch，用选中项的上面一项的文字替换选中项的文字，再把变量 ch 中的文字替换成选中项上面一项的文字，简单说就是选中项和它上面一项的位置进行交换。因此 A 选项的说法正确。29.设有如下函数： Function DelSpace(ch As String)As Integer Dim n%,st$,c$ st=“ “ n=0 For k=1 To Len(ch) c=Mid(ch,k,1) If c“ “Then st=st & c Else n=n+1 End If Next k ch=st DelSpace=n End Func
26、tion 函数的功能是_。（分数：2.50）A.统计并返回字符串 ch 中字符的个数B.删除字符串 ch 中的空格符，返回删除字符的个数 C.统计并返回字符串 ch 中非空格字符数D.删除字符串 ch 中除空格符外的其他字符，返回删除字符的个数解析：解析 过程中对传入的字符串的字符逐个取出，判断如果不是空格则依次连接到一个字符串变量中，如果是空格则计数加 1。最后，返回不包含空格的字符串和空格的个数。因此选项 B 正确。30.设在当前目录下有一个名为“file.txt”的文本文件，其中有若干行文本。编写如下程序： Private Sub Command1_Click() Dim ch$,asc
27、ii As Integer Open“file.txt“For Input As #1 While Not EOF(1) Line Input #1.ch ascii=toascii(ch) Print ascii Wend Close #1 End Sub Private Function toascii(mystr As String)As Integer n=0 For k=1 To Len(mystr) n=n+Asc(Mid(mystr,k,1) Next k toascii=n End Function 程序的功能是_。（分数：2.50）A.按行计算文件中每行字符的 ASCII 码
28、之和，并显示在窗体上 B.计算文件中所有字符的 ASCII 码之和，并显示在窗体上C.把文件中的所有文本行按行显示在窗体上D.在窗体上显示文件中所有字符的 ASCII 码值解析：解析 过程 toascii 的功能是依次取出传入字符串中的每个字符，用 Asc 函数将这个字符转换为相应的 ASCII 码值，通过 For 循环将这些值累加。累加值由过程名返回。Click 事件中以顺序输入方式打开 file.txt 文件，即以读取方式打开文件。While 循环的结束条件是到达文件尾部，在循环体中，Line Input #语句读取文件中的一行数据存入变量 ch 中，然后以 ch 为参数调用过程 toas
29、cii，即计算这一行字符中所有字符的 ASCII 码值的和，返回值赋给变量 ascii，在窗体上输出 ascii 的值。所以 While 循环结束时，将在窗体上显示输出 file.txt 中每一行数据的 ASCII 码值的和。因此本题答案为 A。31.窗体在屏幕上显示后有_方法可以清除它。（分数：2.50）A.1 种B.2 种 C.3 种D.4 种解析：解析 可以用 Hide 方法，或者改变 Visble 属性为假。32.关系表中的每一横行称为一个_。（分数：2.50）A.元组 B.字段C.属性D码解析：解析 关系表中，每一行称为一个元组，对应表中的一条记录；每一列称为一个属性，对应表中的一个
30、字段；在二维表中凡能唯一标识元组的最小属性集称为该表的键或码。33.在 VB 中按文件的访问方式不同，可以将文件分为_。（分数：2.50）A.顺序文件、随机文件和二进制文件 B.文本文件和数据文件C.数据文件和可执行文件D.ASCII 文件和二进制文件解析：解析 根据访问方式不同文件可以分为顺序文件、随机文件和二进制文件。34.如果准备读文件，打开顺序文件“text.dat”的正确语句是_。（分数：2.50）A.Open “text.dat“ For Write As #1B.Open “text.dat“ For Binary As #1C.Open “text.dat“ For Input
31、 As #1 D.Open “text.dat“ For Random As #1解析：解析 Open 语句对文件输入/输出操作，语法如下： Open文件名For 模式As #文件号。 Input 模式：从打开的文件中写入数据。以该模式打开文件时，文件必须已经存在，否则将出现错误。35.以下语句用于打开一个顺序文件“Open“C:/MyFile.txt“For OutPut”，但是该语句的一个重要错误是没有_。（分数：2.50）A.指定打开方式B.指定文件号 C.指定打开文件名D.指定文件类型解析：解析 打开顺序文件时，一定要指定一个文件号才能打开，否则出错。36.如果在 C 盘当前文件夹下已
32、存在名称为 studata.dat 的顺序文件，那么执行语句“Open“C:/studata.dat“For Append As #1”之后，将_。（分数：2.50）A.删除文件中原有内容B.保留文件中原有内容，并在文件尾填加新内容 C.保留文件中原有内容，并在文件头填加新内容D.以上均不对解析：解析 Append 语句能向文件中继续加新的内容。37.在窗体上画一个名为 Command1 的命令按钮，其 Command1_Click 事件过程如下： Sub Command1_Click() Dim student As studtype Dim record no As Integer rec
33、ord no=1 With student .ino=12 .strname=“smith“ .strsex=“男“ .smark=89 End With _ Put #1,record_no,sludent Close #1 End Sub 要求在 C:/的随机文件 student.dat 写入一条记录。应在程序中空行处填入_，使该功能完整。（分数：2.50）A.Open “C:/student.dat“ For Input As#1 len=len(student)B.Open “C:/student.dat“ For random As#1 len=len(student) C.Open
34、 “C:/student.dat“ For Output As#1 len=len(student)D.Open “C:/student.dat“ For Append As#1 len=len(student)解析：解析 打开随机文件的一般格式为“Open”文件名”For Random As #文件号Len=记录长度”随机文件的读写操作通过 Put 语句来实现，其格式为： Put #文件号，记录号，变量38.执行语句“Open “C:/StuData.dat“ For Input As #2”后，系统_。（分数：2.50）A.将 C 盘当前文件夹下名为 StuData.dat 的文件的内容读
35、入内存 B.在 C 盘当前文件夹下建立名为 StuData.dat 的顺序文件C.将内存数据存放在 C 盘当前文件夹下名为 StuData.dat 的文件中D.将某个磁盘文件的内容写入 C 盘当前文件夹下名为 StuData.dat 的文件中解析：解析 Open 语句兼有打开文件和建立文件两种功能，Input 是指定顺序输入方式，题意为打开已存在的数据文件，以便从文件中读出记录。39.向顺序文件 Temp.txt 中写入 1，2，3 这 3 个数。在程序中加入_可以使程序功能完整。 Private Sub Command1_Click() Open“c:/Temp.tx1“ For Outpu
36、t As #1 For i=0 To 3 _ Next Close #1 End Sub（分数：2.50）A.Print #1，Temp.txtB.Get #1，iC.Print #1，i D.Unit #1，i解析：解析 向顺序文件中写入数据时用 Print 语句。40.在 Visual Basic 中，要将一个窗体从内存中释放，应使用的语句是_。（分数：2.50）A.HideB.Unload C.LoadD.Show解析：解析 Load 语句格式为：Load 窗体名称，其作用是把一个窗体装入内存，执行 Load 语句后，可以引用窗体中的控件及其各种属性，但此时窗体没有显示出来，“窗体名称”
37、是窗体的 Name 属性；Unload 语句格式为：Unload 窗体名称，该语句与 Load 语句的功能相反，它清除内存中指定的窗体；Show方法格式为：窗体名称.Show模式，其作用显示一个窗体。如果省略“窗体名称”，则显示当前窗体。参数“模式”用来确定窗体的状态，可以取两种值，即 0 和 1(不是 False 和 True)。当“模式”值为1(或常量 vbModa1)时，表示窗体是“模态型”窗体，在这种情况下鼠标只在此窗体内起作用，不能到其他窗口内操作，只有关闭该窗口才能对其他窗口进行操作；当“模式”值为 0(或省略参数“模式”值)时，表示窗体为“非模态型”窗体，不用关闭该窗体就可以对其他窗体进行操作；Hide 方法格式为：窗体名称.Hide，其作用是使窗体隐藏，即使不在屏幕上显示，也仍在内存中，因此它与 Unload 语句的作用不同。
