1、二级 VISUAL+BASIC 笔试 327 及答案解析(总分：88.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.数据库技术采用分级方法将其结构划分成多个层次，是为了提高数据库的_。（分数：2.00）A.数据规范性和逻辑独立性B.数据规范性和管理规范性C.逻辑独立性和物理独立性D.数据的共享2.软件系统生命周期的第一个阶段是_。（分数：2.00）A.软件分析阶段B.软件设计阶段C.软件运行阶段D.软件维护阶段3.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim nu
2、m As Integer num=1 Do Until num6 Print num; num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.13. 45. 8B.135C.1 4 7D.无数据输出4.以下关系表达式中，其值为 False 的是_。（分数：2.00）A.“ABC“AbC“B.“the“they“C.“VISUAL“=UCase(“Visual“)D.“Integer“Int“5.在窗体画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写如下事件过程： Private Sub C
3、ommand1_Click() n=Val(Text1. Text) For i=2 To n For j=2 To Sqr(i) If i Hod 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 整除的数6.关于使用 goto 语句的说法正确的是_。（分数：2.00）A.禁止使用B.随意使用C.限制使用D.无所谓7.设窗体上有一个名为 Text1 的文本框，并编写如下程序： P
4、rivate Sub Form_Load() Show Text1. Text=“ Text1. SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Sinqle) Print“程序设计“ End Sub Private Sub Text1_Keynown(KeyCode As Integer, Shift As Integer) Print “Visual Basic“; End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体
5、上最示的内容是（分数：2.00）A.Visual BasicB.程序设计C.Visual Basic 程序设计D.a 程序设计8.设 a=5，b=10，则执行 c=Int(b-a)*Rnd+a)+1 后，c 值的范围为_。（分数：2.00）A.510B.69C.610D.599.假定在窗体(名称为 Form1)的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 aColor As String*10 End Type 在窗体上面一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Comma
6、nd1_Click() Dim rec As animal Open “c:/vbTest. dat“ For Random As #1 Len=Len(rec) rec. animalName=“Cat“ rec. aColor=“White“ Put #1, , rec End Sub 则以下叙述中正确的是_。（分数：2.00）A.记录类型 animal 不能在 Form1 中定义，必须在标准模块中定义B.如果文件“c:/vbTes dat“不存在，则 Open 命令执行失败C.由于 Put 命令中没有指明记录号，因此每次都把记录写到文件的末尾D.语句“Put #1, , rec”将 an
7、imal 类型的两个数据元素写到文件中10.假定有如下事件过程： Private Sub Form Click() Dim x As Integer, n As Integer x=1 n=0 Do While x28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是_。（分数：2.00）A.81 4B.56 3C.28 1D.243 511.有如下程序： Private Sub Form_Click() Dim Check, Counter Check=True Counter=0 Do Do While Counter20 Count
8、er=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.00）A.15 0B.20 -1C.10 TrueD.10 False12.表示滚动条控件取值范围最大值的属性是_。（分数：2.00）A.MaxB.LargeChangeC.ValueD.Max-Min13.在深度为 5 的满二叉树中，叶子结点的个数为_。（分数：2.00）A.32B.31C.16D.1514.软件工程
9、管理包括：_、软件工程经济学、软件心理学等内容。（分数：2.00）A.软件规划学B.软件管理学C.软件设计学D.软件分析学15.软件开发的结构化设计方法，全面指导模块划分的最重要的原则应该是_。（分数：2.00）A.模块高内聚B.模块低耦合C.模块独立性D.程序模块化16.在窗体上画一个名称为 Text1 的文本框然后画一个名称为 HScroll1 的滚动条，其 Min 和 Max 属性分别为 0 和 100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图 16-6 所示。 以下能实现上述操作的程序段是_。 （分数：2.00）A.Private Sub HScroll1_Ch
10、ange() Text1.Text=HScroll1. Value End SubB.Private Sub HScroll1_Click() Text1. Text=HScroll1. Value End SubC.Private Sub HScroll1_Change() Text1. Text=HScroll1. Caption End SubD.Private Sub HScroll1_Click() Text1. Text=HScroll1. Caption End Sub17.下列数据结构中，能用二分法进行查表的是_。（分数：2.00）A.顺序储存的有序线性表B.线性链表C.二叉链
11、表D.有序链表18.在窗体画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234 c1=Trim(Str(c) For i=1 To 4 Print Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234 则在下划线处应填入的内容为_。（分数：2.00）A.Rght(c1,B.Left(c1,C.Mid(c1, i, 1)D.Mid(c1, i,19.下列软件测试基本方法中，_不用测试实例。（分数：2.00）A.白盒测试法B.动态测试法C.黑盒测试法D.静态测
12、试法20.数据模型的三要素是_。（分数：2.00）A.外模式、模式和内模式B.关系模型、层次模型和网状模型C.实体、属性和联系D.数据结构、数据操作和完整性约束21.有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 20 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.00）A.12B.30C.24D.1822.假定建立了一个名为 Com
13、mand1 的命令按钮数组，则以下说法中错误的是_。（分数：2.00）A.数组中每个命令按钮的名称(Name 属性)均为 Command1B.数组中每个命令按钮的标题(caption 属性)都一样C.数组中所有命令按钮可以使用同一个事件过程D.用名称 Command1(下标)可以访问数组中的每个命令按钮23.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程； Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function P
14、rivate Sub Command1_C1ick() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是_。（分数：2.00）A.6B.7C.8D.924.设 a=10，b=5，c=1，执行语句 Print abc 后，窗体上显示的是_。（分数：2.00）A.TrueB.FalseC.1D.出错信息25.在窗体上画一个名称为 Label1、标题为“VisualBasic 考试”的标签，两个名称分别为 Command1 和Conlmand2、标
15、题分别为“开始”和“停止”的命令按钮，然后画一个名称为 Timer1 的计时器控件，并把其 Interval 属性设置为 500，如图 16-7 所示。 （分数：2.00）A.标签的移动方向为自右向左B.单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C.当标签全部移出窗体后，将从窗体的另一端出现并重新移动D.标签按指定的时间间隔移动26.在窗体上画一个名称为 Command1 的命令按钮，并编写如下过程： Private Sub Command1_Click() Dim x AS Integer Static y As Integer x=10 y=5 Call f1(x, y
16、) Print x,y End Sub Private Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是_。（分数：2.00）A.10 5B.12 5C.10 7D.12 727.假设有如下事件过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button=2 Then PopupMenu popForm End If E
17、nd Sub 则以下描述中错误的是_。（分数：2.00）A.该过程的功能是弹出一个菜单B.popForm 是在菜单编辑器中定义的弹出式菜单的名称C.参数 x、y 指明鼠标的当前位置D.Button=2 表示按下的是鼠标左键28.以下关于过程及过程参数的描述中，错误的是_。（分数：2.00）A.过程的参数可以是控件名称B.用数组作为过程的参数时，使用的是“传地址”方式C.只有函数过程能够将过程中处理的信息传回到调用的程序中D.窗体可以作为过程的参数29.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As
18、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.830.为了能够把信息直接送往打印机。应该把 Print 方法的对象改为_。（分数：2.00）A.PictureBoxB.FormC.ImageD.Printer31.下列对对象的概念描述不正确的是_。（
19、分数：2.00）A.任何对象都必须有继承性B.对象是属性和方法的封装体C.对象间的通信靠消息传递D.操作是对象的动态属性32.假定通用对话框的名称为 CommonDialogl，命令按钮的名称为 Command1，则单击命令按钮后，能使打开的对话框的标题为“New File”的事件过程是_。（分数：2.00）A.Private Sub Command1_Click() CommonDialog DialoqTitle=“New File“ CommonDialog ShowPrinter End SubB.Private Sub ComJRandl_Click() CommonDialog D
20、ialogTitle=“New File“ CommonDialog ShowFont End SubC.Private Sub Command1_Click() CommonDialog DialogTitle=“New File“ CommonDialog ShowOpen End SubD.Private Sub Command1_Click() CommonDialog DialogTitle=“New File“ CommonDialog ShowColor End Sub33.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Com
21、mand1_Click() Dim a As Integer, s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a=0 Print s; a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.7 9B.34 0C.9 7D.死循环34.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 n=InputBox(“) For i=1 To n For j=1 To i x=x+1 Next j Next i Print x E
22、nd Sub 程序运行后，单击命令按钮，如果输入 3，则在窗体上显示的内容是_。（分数：2.00）A.3B.4C.5D.635.在窗体上画 4 个文本框(如图 16-8 所示)，并用这 4 个文本框建立一个控件数组，名称为 Text1(下标从 0 开始，自左至右顺序增大)，然后编写如下事件过程： （分数：2.00）A.0 1 2 3B.1 2 3 4C.0 1 3 2D.出错信息二、B填空题/B(总题数：9，分数：18.00)36.对于输人的 N 个数进行快速排序算法的平均时间复杂度是U 【1】 /U。（分数：2.00）填空项 1:_37.软件工程的目的是成功地开发大型软件系统，主要内容是软件
23、开发技术和U 【2】 /U两方面。（分数：2.00）填空项 1:_38.诊断和改正程序中错误的工作通常称为U 【3】 /U。（分数：2.00）填空项 1:_39.在数据库技术中，使用数据模型的概念描述数据库的语义和结构，一般可分为两类：概念数据模型和U 【4】 /U。（分数：2.00）填空项 1:_40.一个数据库的数据模型至少应该包括以下 3 个组成部分，U 【5】 /U、数据操作和数据的完整性约束条件。（分数：2.00）填空项 1:_41.为了使计时器控件 Timer1 每隔 0.5 秒触发一次 Timer 事件，应将 Timer1 控件的U 【6】 /U属性设置为U 【7】 /U。（分数
24、：2.00）填空项 1:_42.在窗体上画一个命令按钮和一个文本框。然后编写命令按钮的 Click 事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，即命令按钮，程序可找出在文本框中输入的其他所有英文字母，并以大小写方式降序显示到 Text1 中，显示的字符串是 ZYXWUTSRQPONMLKJIHGEC。请填空。 Private Sub Oommandl_Click() Dim str As String, s As String, c As String str=UCase(Text1) s=“ c=“Z“ While c=“A“ If InStr(str, c)=0 Th
25、en s=U【8】/U End If c=Chr $(Asc(C)U【9】/U)Wend If s“ Then Text1=s End If End Sub（分数：2.00）填空项 1:_43.以下是一个比赛评分程序。在窗体上建立一个名为 Text1 的文本框数组，然后画一个名为 Text2 的文本框和名为 Command1 命令按钮。运行时在文本框数组中输入 7 个分数，单击“计算得分”命令按钮，则最后得分显示在 Text2 文本框中(去掉一个最高分和一个最低分后的平均分几位最后得分)，如图 16-9 所示。请填空。 （分数：2.00）填空项 1:_44.设有如下记录类型： Type stu
26、dent Number As String*10 Name As String*8 End Type 窗体中有若干控件，单击其中的一个按钮 Command1 时，执行如下事件过程，该过程的功能是把数据输出到指定的文件中。根据题意，请完善下列程序。 Private Sub Command1_click() Dim stu As student Open“C:/file. dat“ For Random As #1 Len=Len(U 【13】 /U) Title $=“写记录到随机文件“ Str1 $=“请输入学生名“ Str2 $=“请输入学生名“ For i=1 To 5 stu. Numb
27、er=InputBox(Str1 $, Title $) stu. Name=InputBox$(Str2 $, Title $) U 【14】 /U#1, i, stu Next i CloseU 【15】 /U End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 327 答案解析(总分：88.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.数据库技术采用分级方法将其结构划分成多个层次，是为了提高数据库的_。（分数：2.00）A.数据规范性和逻辑独立性B.数据规范性和管理规范性C.逻辑独立性和物理独立性 D.数据的共享解析：分
28、析 数据库系统通常采用 3 级模式结构并且提供两绒映射功能，其中的外模式/模式映射保证了数据库系统具有较高的逻辑独立性，而模式/内模式映射保证了数据库系统具有较高的物理独立性。数据库的数据共享是为了减少数据的冗余，避免数据之间的不相容性和不一致性。2.软件系统生命周期的第一个阶段是_。（分数：2.00）A.软件分析阶段 B.软件设计阶段C.软件运行阶段D.软件维护阶段解析：分析 当用户感到现有系统已不能满足需求，想用一个新系统代替旧的软件系统时，就要对新的软件系统的研制进行分析，即软件工程的第一阶段软件分析阶段。3.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： P
29、rivate Sub Command1_Click() Dim num As Integer num=1 Do Until num6 Print num; num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.13. 45. 8B.135 C.1 4 7D.无数据输出解析：分析 由于变量 num 被定义成整型变量，所以在“Do Until-Loop”的循环中，num 的计算过程为1、3、5，当为 7 时退出循环。4.以下关系表达式中，其值为 False 的是_。（分数：2.00）A.“ABC“AbC“ B.“the“they“
30、C.“VISUAL“=UCase(“Visual“)D.“Integer“Int“解析：分析 字符串的大小，可视为字符串中各个字符 ASCII 码的大小。比大小的原则： (1)长度短的字符串右边用空格补齐，使两个字符串一样长； (2)从左至右，逐对字符进行 ASCII 码比较，只要出现一次不相等，即可得出结论，剩余的字符不再继续比较。例如，当“ABC”与“AbC”进行比大小时，先比“A“=“A“，再比“B“b“，计算结果为 False。而“C“=“C“就没必要继续进行比较了。5.在窗体画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写如下事件过程： Priv
31、ate Sub Command1_Click() n=Val(Text1. Text) For i=2 To n For j=2 To Sqr(i) If i Hod 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 整除的数解析：分析 Val()函数返回包含于字符串内的数字，Sqr(x)返回自变量 x 的平方根。循环变量 i 为待定的素数范围为 2n，循环变量 j 为校验 i
32、是否为素数的除数，范围为 2Sqr(i)。i Mod j=0 为非素数的条件，只要这个条件成立，就立刻被终止 j 的循环，所以 jSqr(i)是 j 循环从没被终止的条件，即 i为素数的条件。6.关于使用 goto 语句的说法正确的是_。（分数：2.00）A.禁止使用B.随意使用C.限制使用 D.无所谓解析：分析 结构化程序设计方法的主要原则是层次分析法，即自顶向下，逐步求精，模块化，限制使用 goto 语句。应尽量避免滥用 goto 语句，完全杜绝也不是明智的办法，关键在于以提高程序清晰性为目标。7.设窗体上有一个名为 Text1 的文本框，并编写如下程序： Private Sub Form
33、_Load() Show Text1. Text=“ Text1. SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Sinqle) Print“程序设计“ End Sub Private Sub Text1_Keynown(KeyCode As Integer, Shift As Integer) Print “Visual Basic“; End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上最示的内容是（分数：2.00
34、）A.Visual BasicB.程序设计C.Visual Basic 程序设计 D.a 程序设计解析：分析 Form_MouseUp 是鼠标放开时触发的事件，而 Text1_KeyDown 是键盘按下时触发的事件。当在文本框中输入“a”时触发文本框的键盘事件，则窗体上输出 Visual Basic，当单击窗体后触发的是窗体的 MouseUp 事件，则在窗体上又输出了“程序设计”，所以窗体上显示的是“Visual Basic 程序设计”。8.设 a=5，b=10，则执行 c=Int(b-a)*Rnd+a)+1 后，c 值的范围为_。（分数：2.00）A.510B.69C.610 D.59解析：
35、分析 Rnd 随机函数的范围为(0，1)，Int 函数返回不大于自变量的最大整数，所以当 Rnd 乘上 5成为(0，5)，再加上 5 成为(5，10)，经取整后成为5，9，然后加 1 后成为6，10。9.假定在窗体(名称为 Form1)的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 aColor As String*10 End Type 在窗体上面一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim rec As animal Open “c:
36、/vbTest. dat“ For Random As #1 Len=Len(rec) rec. animalName=“Cat“ rec. aColor=“White“ Put #1, , rec End Sub 则以下叙述中正确的是_。（分数：2.00）A.记录类型 animal 不能在 Form1 中定义，必须在标准模块中定义B.如果文件“c:/vbTes dat“不存在，则 Open 命令执行失败C.由于 Put 命令中没有指明记录号，因此每次都把记录写到文件的末尾D.语句“Put #1, , rec”将 animal 类型的两个数据元素写到文件中 解析：分析 选项 A 在一般情况下，
37、记录类型应在标准模块中定义。如果在窗体模块中定义，则必须在“Type“关键字前面加上“Private”；选项 B 用 Open 语句打开文件时，如果为输入(Input)打开的文件不存在，则产生“文件未找到”错误；如果为输出(Output)、附加(Append)或随机(Random)访问方式打开的文件不存在，则建立相应的文件；选项 C 如果没有指明记录号，则将上一个 Get 或 Put 语句之后的(或上一个 Seek 函数指出的)下一个记录或字节写入。选项 D 由于 rec 是 animal 类型变量，对其操作都是对变量 animalName 和变量 aColor 的操作。10.假定有如下事件过
38、程： Private Sub Form Click() Dim x As Integer, n As Integer x=1 n=0 Do While x28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是_。（分数：2.00）A.81 4 B.56 3C.28 1D.243 5解析：分析 Do While-Loop 循环语句的判断条件为“x28”。循环语句“x=x*3”的作用是每循环一次将成为原数的 3 倍，而变量 n 用来记录循环次数，当循环 3 次后，x 得 27，有 2728，再循环一次后x 得 81，有 8128，不再满足循环
39、条件，此时 n 为 4。执行 Print 语句，输出 x 和 n 的值，即输出 81 和4。11.有如下程序： Private Sub Form_Click() Dim Check, Counter Check=True Counter=0 Do Do While Counter20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.00）A.15 0B.2
40、0 -1C.10 TrueD.10 False 解析：分析 变量 Check 的初值为 True，变量 Counter 的初值为 0。当 Counter9 时，Counter 每次循环加 1，直到等于 10 时，Check 的值为 False，退出里层 Do-Loop 循环。当 Check=False 的计算结果为True 时，退出外层 Do-Loop 循环，在窗体上打印出 Counter 的值 10 和 Check 的值 Ralse。12.表示滚动条控件取值范围最大值的属性是_。（分数：2.00）A.Max B.LargeChangeC.ValueD.Max-Min解析：分析 Max 属性为
41、滚动条所能表示的最大值，取值范围为-32 76832 767。13.在深度为 5 的满二叉树中，叶子结点的个数为_。（分数：2.00）A.32B.31 C.16D.15解析：分析 所谓满二叉树是指这样的一种二叉树：除最后层外，每一层上的所有结点都有两个子结点。这就是说，在满二叉树中，每一层上的结点数都达到最大值，即在满二叉树的第 k 层上有 2k-1个结点，且深度为 m 的满二叉树共有 2m-1个结点。根据题意，深度为 5 的满二叉树中，叶子结点的个数为 25-1=32-1=31个结点。14.软件工程管理包括：_、软件工程经济学、软件心理学等内容。（分数：2.00）A.软件规划学B.软件管理学
42、 C.软件设计学D.软件分析学解析：分析 软件工程管理包括：软件管理学、软件工程经济学、软件心理学等内容。 软件管理学包括人员组织、进度安排、质最保证、配置管理、项目计划等。 软件工程经济学是研究软件开发中成本的估算、成本效益分析的方法和技术，用经济学的基本原理来研究软件工程开发中的经济效益问题。 软件心理学是软件工程领域具有挑战性的一个全新的研究视角，它是从个体心理、人类行为、组织行为和企业文化等角度来研究软什管理和软件工程的。15.软件开发的结构化设计方法，全面指导模块划分的最重要的原则应该是_。（分数：2.00）A.模块高内聚B.模块低耦合C.模块独立性 D.程序模块化解析：分析 结构化
43、设计方法的基本思想是模块化，模块的划分主要依赖模块的独立性，内聚性与耦合性是度量模块独立性的两个定性指标。16.在窗体上画一个名称为 Text1 的文本框然后画一个名称为 HScroll1 的滚动条，其 Min 和 Max 属性分别为 0 和 100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图 16-6 所示。 以下能实现上述操作的程序段是_。 （分数：2.00）A.Private Sub HScroll1_Change() Text1.Text=HScroll1. Value End Sub B.Private Sub HScroll1_Click() Text1. T
44、ext=HScroll1. Value End SubC.Private Sub HScroll1_Change() Text1. Text=HScroll1. Caption End SubD.Private Sub HScroll1_Click() Text1. Text=HScroll1. Caption End Sub解析：分析 移动 HScrollBar(水平滚动条)和 VScrollBar(垂直滚动条)滚动框部分或通过代码改变Value 属性的设置时，将激括 Chang 事件。其 Value 属性(默认值为 0)是一个整数，它对应于滚动框在滚动条中的位置。当滚动框位置在最小值时，它
45、将移动到滚动条的最左端位置(水平滚动条)或顶端位置(垂直滚动条)。当滚动框在最大值时，它将移动到滚动条的最右端或底端位置。17.下列数据结构中，能用二分法进行查表的是_。（分数：2.00）A.顺序储存的有序线性表 B.线性链表C.二叉链表D.有序链表解析：分析 二分法是通过每次将待查元素与线性表的中间项比较，逐步缩小查找范围，直到查找结束的查找方法，因此只适用于顺序存储的有序线性表。18.在窗体画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234 c1=Trim(Str(c) For i=1 To 4 Pri
46、nt Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234 则在下划线处应填入的内容为_。（分数：2.00）A.Rght(c1,B.Left(c1, C.Mid(c1, i, 1)D.Mid(c1, i,解析：分析 Trim(字符串)将返回的是去掉“字符串”两边的空白字符，str(x)把 x 的值转换为一个字符串，Left(字符串，n)将返回“字符串”的左边 n 个字符。执行“c1=Trim(Str(c)”语句后，c1 的值为“1234”。19.下列软件测试基本方法中，_不用测试实例。（分数：2.00）A.白盒测试法B.动态测试法C.黑盒测
47、试法D.静态测试法 解析：分析 静态测试一般是指人工评审软件文档或程序以发现其中的错误，是通过对被测试程序的静态审查，发现代码中的潜在的错误，不需要测试实例。20.数据模型的三要素是_。（分数：2.00）A.外模式、模式和内模式B.关系模型、层次模型和网状模型C.实体、属性和联系D.数据结构、数据操作和完整性约束 解析：分析 数据模型是严格定义的一组概念的集合，这些概念精确地描述了系统的静态特性、动态特性和完整性约束条件，因此数据模型通常由数据结构、数据操作和完整性约束 3 部分组成。外模式、模式和内模式属于数据库的 3 级模式结构，所以 A 选项错误。关系模型、层次模型和网状模型是数据模型的 3种表示方法，所以 B 选项也是错误的。实体、属性和联系是用来描述实体以及实体间的联系的，所以 C 选项是错误的。21.有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 20 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为_。（分数：2
