【计算机类职业资格】二级VISUAL+BASIC笔试73及答案解析.doc

《【计算机类职业资格】二级VISUAL+BASIC笔试73及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC笔试73及答案解析.doc（15页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC 笔试 73 及答案解析(总分：92.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是（分数：2.00）A.3B.9C.14D.212.在 Visual Basic 中，下列优先级最高的运算符是（分数：2.00）A.*B./C.D.Not3.以下叙述中

2、错误的是（分数：2.00）A.一个工程可以包括多种类型的文件B.Visual Basic 应用程序既能以编译方式执行，也能以解释方式执行C.程序运行后，在内存中只能驻留一个窗体D.对于事件驱动型应用程序，每次运行时的执行顺序可以不一样4.已知一个有序表为(13，18，24，35，47，50，62，83，90，115，134)，当使用二分法查找值为 90 的元素时，查找成功的比较次数为（分数：2.00）A.1B.2C.3D.95.窗体上有一个命令按钮 Command1 和一个列表框 List1，其中 List1 有 0、1、2、3、4 的内容，有下列程序： Private Sub Command

3、1_Click() Dim i，s For i=0 To List1ListCount s=s+List1List(i) Next i Print s End Sub 程序运行后，单击命令按钮，则窗体上显示的是（分数：2.00）A.0B.10C.01234D.程序出错6.若想使时钟控制每隔 0.25 秒触发一次 Timer()事件，则可将 Interval 属性值设为（分数：2.00）A.Interval=0.25B.Intetval=25C.Interval=250D.Interval=25007.在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub

4、Form_Click() Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1Text：Str(Arr(6)+Arr(Arr(6)+Arr(10) End Sub 程序运行后，单击窗体，在文本框中显示的内容是（分数：2.00）A.1B.3C.6D.108.Visual Basic 6.0 共有 3 个版本，按功能从弱到强的顺序排列应是（分数：2.00）A.学习版、专业版和工程版B.学习版、工程版和专业版C.学习版、专业版和企业版D.学习版、企业版和专业版9.阅读下面的程序： Private Sub Form_Click() Di

5、m Check， Counter Check=True Counter=0 Do Do While Counter 20 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.20 -1C.10 TrueD.10 False10.为了防止用户随意将光标置于控件上，应该（分数：2.00）A.将控件的 TabIndex 属性设置为 0

6、B.将控件的 TabStop 属性设置为 TrueC.将控件的 TabStop 属性设置为 FalseD.将控件的 Enabled 属性设置为 False11.为了在按下 Esc 键时执行某个命令按钮的事件过程，需要将该命令按钮的一个属性设置为 True，这个属性是（分数：2.00）A.ValueB.DefaultC.CantelD.Enabled12.设有如下程序： Private Sub search(a()As Variant，ByVal key As Variant，index%) Dim I For I = Lbound(a)To Ubound(a) If key=a(I)Then

7、index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21，64，92，15，72，38，45，72) Call search(b， 45， n) Print n End Sub 程序运行后，输出的结果是（分数：2.00）A.2B.6C.10D.1213.确定一个窗体或控件大小的属性是（分数：2.00）A.Width 或 HeightB.Width 和 HeightC.Top 或 LeftD.Top 和 Lef

8、t14.以下语句的输出结果是 Print Format$(1234.5，“00，000.00“)（分数：2.00）A.1234.5B.01，234.50C.01，234.5D.1，234.5015.设在菜单编辑器中定义了一个菜单项，名为 menu1。为了在运行时隐藏该菜单项，应在程序中使用的语句是（分数：2.00）A.menu1Enabled=TrueB.menu1Enabled=FalseC.menu1Visible=TrueD.menu1Visible=False16.InputBox 函数返回值的类型是（分数：2.00）A.数值B.字符串C.变体D.数值或字母串(视输入的数据而定)17.

9、在窗体中添加一个命令按钮，名称为 Command1，两个文本框名称分别为 Text1 和Text2，然后编写如下程序： Private Sub Command1_Click() Dim x As String，y As String， C As String，d As String x = Text1Text ： y = Text2Text c = LCase(x)：d = UCase(y) Print c； d End Sub 程序运行后，在文本框 Texn、Text2 中分别输入 AbC 和 efG，结果是（分数：2.00）A.abcEFGB.abcefgC.ABCefgD.ABCEFG1

10、8.设一棵完全二叉树共有 699 个结点，则在该二叉树中的叶子结点数为（分数：2.00）A.349B.350C.255D.35119.用二维表结构表示实体以及实体间联系的数据模型称为（分数：2.00）A.网状模型B.层次模型C.关系模型D.面向对象模型20.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x，s) Sum=Sum+ s Next X Print Sum End Sub Private Sub subl(y，w) w = 1 For i=

11、1 To y w = w * i Next i End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.5B.120C.153D.16021.设 x=7，y=9，则以下表达式值为“真”的是（分数：2.00）A.x=y And y10B.xy Or y0C.x0 Eqv y0D.-2+4x And y022.如果要在程序代码中为图片框动态加载和清除图像，可以利用的函数是（分数：2.00）A.InputBoxB.InputC.LoadPictureD.PaintPicture23.用来设置窗体背景图片的属性是（分数：2.00）A.MoveableB.PictureC.F

12、oreColorD.WindowState24.软件工程方法的产生源于软件危机，下列哪个(些)是产生软件危机的内在原因? 软件复杂性 软件维护困难 软件成本太高 软件质量难保证（分数：2.00）A.B.C.和D.和25.数据的存储结构是指（分数：2.00）A.存储在外存中的数据B.数据所占的存储空间量C.数据在计算机中的顺序存储方式D.数据的逻辑结构在计算机中的表示26.数据库系统与文件系统的主要区别是（分数：2.00）A.文件系统不能解决数据冗余和数据独立性问题，而数据库系统可解决这类问题B.文件系统只能管理少量数据，而数据库系统则能管理大量数据C.文件系统只能管理程序文件，而数据库系统则能

13、管理各种类型的文件D.文件系统简单，而数据库系统复杂27.下列数组说明语句正确的是（分数：2.00）A.Dim g(0，-5)As SingleB.Dim h(100 To 100，100)As StringC.Dim x(5)As Integer ReDim x(10)As IntegerD.Dim y() ReDim y28.编写如下事件过程： Private Sub Form MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) If Shift=6 And Button=2 Then Print “

14、BBBB“ End If End Sub 程序运行后，为了在窗体上输出“BBBB”，应执行的操作为（分数：2.00）A.同时按下 Shift 键和鼠标左键B.同时按下 Ctrl、Alt 键和鼠标右键C.同时按下 Shift 键和鼠标右键D.同时按下 Ctrl、Alt 键和鼠标左键29.下面概念中，不属于面向对象方法的是（分数：2.00）A.对象、消息B.继承、多态C.类、封装D.过程调用30.给出下面程序： Private Sub Command1_Click() Dim x，y，z X=False For Each y In 2 If yText=“Hello“ Then x=True Ex

15、it For End If Next y End Sub 下面描述正确的是（分数：2.00）A.退出 For EachNext 循环的条件是 x=TrueB.退出 For EachNext 循环的条件是 x=FalseC.程序检查 y 对象的 Text 属性，等于“”时退出 For EachNext 循环D.程序逐一查找在 z 中的对象，不确切并判断其 Text 属性，文本框中的内容等于“Hello”时退出 For EachNext 循环31.如果 x 为整数且|x|=100，则打印“OK”，否则打印“Error”，表示这个条件的单行格式 If 语句是（分数：2.00）A.If Int(=x

16、And Sqr(=100 Then Print “OK“ Else Print “Error“B.If Fix(=x And Abs(=100 Then Print“OK“Else Print“Error“C.If Int(=x And (x=100，x=-100)Then Print“OK“Else Print“Error“D.If Fix(=x And x=100 And x=-100 Then Print “OK“ Else Print “Error“32.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()

17、 Dim x(5)As String Dim n AS Integer For n ： 4 TO 0 Step -1 x(n)= n + 1 Print x(n)； Next n End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.54321B.4C.54321D.033.使用白盒测试方法时，确定测试数据应根据 和指定的覆盖标准。（分数：2.00）A.程序的内部逻辑B.程序的复杂结构C.使用说明书D.程序的功能34.下列说法不正确的是（分数：2.00）A.栈是一种运算受限的线性结构B.栈是一种后进先出的线性结构C.栈可以是线性结构也可以是非线性结构D.栈可以用数

18、组或链表来实现35.对于长度为 n 的线性表，在最坏的情况下，下列各排序法所对应的比较次数中正确的是（分数：2.00）A.冒泡排序为 n/2B.冒泡排序为 nC.快速排序为 nD.快速排序为(n-1)/2二、B填空题/B(总题数：11，分数：22.00)36.若长度为 n 的线性表采用顺序存储结构，在等概率假设的情况下，删除一个数据元素，需要先依次移动U 【1】 /U个数据元素。（分数：2.00）填空项 1:_37.具有 n 个结点的完全二叉树的深度为U 【2】 /U。（分数：2.00）填空项 1:_38.在程序设计语言中，重复结构对应两类循环语句，对先执行循环体后判断的称为U 【3】 /U循

19、环结构。（分数：2.00）填空项 1:_39.Jackson 结构化程序设计方法是英国的 MJackson 提出的，它是一种面向U 【4】 /U的设计方法。（分数：2.00）填空项 1:_40.数据库的逻辑模型设计阶段的主要任务是将U 【5】 /U转换成关系模型。（分数：2.00）填空项 1:_41.为了建立窗体的 Click 事件过程，即 Form_Click，应先在代码窗口的U 【6】 /U栏中选择Form，然后在U 【7】 /U栏中选择 Click。（分数：2.00）填空项 1:_42.运行下列程序： Dim t As Integer Private Sub Form_Click() t

20、 = 2 x=Val(InputBox(“输入一个整数 5“) Print funl(x); t End Sub Private Function fun1(y) If y0 Then fun1 = 1： t=10 Else If y=0 Then fun1 = 0： t=20 Else fun1 = -1： t=30 End If End Function 从键盘为变量 x 输入数据5，输出的结果是U 【8】 /U。（分数：2.00）填空项 1:_43.在窗体上画两个文本框(名称分别为 Text1 和 Text2)和一个命令按钮(名称为 Command1)， 然后编写如下事件过程： Priv

21、ate Sub Command1 Click() Text1Text=InputBox(“请输入数据 1“) Text2Text=InputBox(“请输入数据 2) End Sub 程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分别输入 123 和 abc，则两个文本框中显示的内容分别为U 【9】 /U和U 【10】 /U。（分数：2.00）填空项 1:_44.在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输入 A、B、 C、D 或a、b、c、d，则在第二个文本框中显示 EFDH。请完善下列程序。 Private Sub Form_Load(

22、) Show Text1Text=“ “ Text2Text=“ “ Text1SetFocus End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Text2Text=U 【11】 /U End Sub（分数：2.00）填空项 1:_45.要想在文本框中显示垂直滚动条，必须将 ScrollBars 属性设置为 2，同时还应将U 【12】 /U属性设置为 True。（分数：2.00）填空项 1:_46.有下列程序，运行后变量 x1、y1 和 z1 的结果分别是U 【13】 /U、U 【14】 /U和U 【

23、15】 /U。 Private Sub fun1(s，m，n) s = m + 1 m = n + 2 n = s + 3 End Sub Private Sub form Click() Dim x1， y1 x1 = 1 ：y1 = 1 ：z1 = 1 Call fun1(x1，y1 + 1，(z1) DebugPrint x1； y1； z1 End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 73 答案解析(总分：92.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.阅读下面的程序： Private Sub Comman

24、d1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是（分数：2.00）A.3B.9C.14 D.21解析：分析 本题应用了三重嵌套循环：i=1 时， j=1，k 执行 3 次循环得到 x 的值为 3：i=2， j=1 时，k 执行 3 次循环得到 x 的值加 3 并覆盖原值，j=2 时，k 执行两次循环值加 2；依次， i=3 时，j 执行 3 次，其中 k 分别执行为 3，2，1 次，x 的值分别加 3，2，1；最后

25、得到 x 的值为 14。2.在 Visual Basic 中，下列优先级最高的运算符是（分数：2.00）A.* B./C.D.Not解析：分析 Visual Basic 提供了 3 类运算符，即算术运算符、关系运算符和逻辑运算符。在这 3 类运算符中，算术运算符的优先级最高，其次是关系运算符，最后是逻辑运算符。在本题中，C 和 D 分别为关系运算符和逻辑运算符，A 和 B 是算术运算符，A 和 B 的优先级比 C 和 D 高。对于 A 和 B 来说，乘法(*)的优先级比整除(/)的优先级高。因此，优先级最高的应是乘法运算符(*)。3.以下叙述中错误的是（分数：2.00）A.一个工程可以包括多种

26、类型的文件B.Visual Basic 应用程序既能以编译方式执行，也能以解释方式执行C.程序运行后，在内存中只能驻留一个窗体 D.对于事件驱动型应用程序，每次运行时的执行顺序可以不一样解析：分析 程序运行后，在内存中可以驻留多个窗体，但每次只能触发一个窗体。4.已知一个有序表为(13，18，24，35，47，50，62，83，90，115，134)，当使用二分法查找值为 90 的元素时，查找成功的比较次数为（分数：2.00）A.1B.2 C.3D.9解析：分析 根据二分法查找的查找过程，首先将 90 与表中间的元素 50 进行比较，由于 90 大于 50，所以从线性表的后半部分查找。第 2

27、次比较的元素是后半部分的中间元素，即 90，这时两者相等，即查找成功。5.窗体上有一个命令按钮 Command1 和一个列表框 List1，其中 List1 有 0、1、2、3、4 的内容，有下列程序： Private Sub Command1_Click() Dim i，s For i=0 To List1ListCount s=s+List1List(i) Next i Print s End Sub 程序运行后，单击命令按钮，则窗体上显示的是（分数：2.00）A.0B.10C.01234 D.程序出错解析：分析 ListCount 属性返回控件列表部分项目的个数。要对列表框中的每个项目都

28、能进行处理，必须要用到 List(Index)属性，而该属性的下标值是从 0 开始的。变量 s 为变体型变量，List 属性内的内容是字符型的，所以加号 (+)起到了连接作用。上述程序运行的结果只是将列表框中的内容连接起来。选项 C 是正确的。6.若想使时钟控制每隔 0.25 秒触发一次 Timer()事件，则可将 Interval 属性值设为（分数：2.00）A.Interval=0.25B.Intetval=25C.Interval=250 D.Interval=2500解析：分析 计时器重要的属性是 Interval，该属性用来设置计时器事件之间的间隔，以毫秒为单位，取值范围为 0655

29、35，因此其最大时间间隔不能超过 65 秒。60000 毫秒为 1 分钟，如果将 Interval 属性设置为 250，则表明每 0.25 秒钟触发一个计时器 Timer()事件。7.在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1Text：Str(Arr(6)+Arr(Arr(6)+Arr(10) End Sub 程序运行后，单击窗体，在文本框中显示的内容是（分数：2.00）A.1B.3C.6D.10 解

30、析：分析 在本题中，定义了一个一维数组 Arr，并为其开辟了 10 个元素的空间，然后通过 For 循环为该数组的后 5 个元素赋值。不难看出，数组 Arr 后 5 个元素的值分别为 3、4、5、6、 7。最后一个语句是为文本框的 Text 属性赋值，这个值是 Arr 数组的两个元素之和，其中第一个元素是 Arr(6)，即 3；第二个元素的下标是数组 Arr 第六个元素(3)和第十个元素(7)的和，即 Arr(3+7)=Arr(10)，而该元素的值为 7。因此， Arr(6)+Arr(Arr(6)+Arr(10)=3+Arr(10)=3+ 7=108.Visual Basic 6.0 共有 3

31、 个版本，按功能从弱到强的顺序排列应是（分数：2.00）A.学习版、专业版和工程版B.学习版、工程版和专业版C.学习版、专业版和企业版 D.学习版、企业版和专业版解析：分析 学习版是编程人员轻松开发 Windows 和 WindowsNT(R)的应用程序。专业版为专业编程人员提供了一整套功能完备的开发工具。企业版使得专业编程人员能够开发功能强大的组内分布式应用程序。9.阅读下面的程序： Private Sub Form_Click() Dim Check， Counter Check=True Counter=0 Do Do While Counter 20 Counter=Counter +

32、 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 False 解析：分析 这是一个二重循环，内层和外层都是 Do 循环。在内层循环中，执行循环体的条件是 Counter20，由于 Counter 的初值为 0，因此执行循环体。在循环体中，每次循环 Counter 加 1，达到10 后，将 Check 变量设置为 False

33、，同时执行 Exit Do，退出内层循环。外层循环执行的条件是，变量Check 的值是 True，如果 Check 为 False，则退出外层循环，输出结果，结束程序。由于在退出内层循环时，Check 已被设置为 False，因此退出内层循环后立即就可以退出外层循环。退出两层循环后，Counter 和 Check 的值没有发生任何变化，与退出内层循环时相同，分别为 10 和 False。10.为了防止用户随意将光标置于控件上，应该（分数：2.00）A.将控件的 TabIndex 属性设置为 0B.将控件的 TabStop 属性设置为 TrueC.将控件的 TabStop 属性设置为 False

34、D.将控件的 Enabled 属性设置为 False 解析：分析 设置 Tab 类的属性并不能影响光标的移动和设置，而只有当控件不可用时(Enable 为 False)，它才不会获得焦点，即光标不能置于其上。11.为了在按下 Esc 键时执行某个命令按钮的事件过程，需要将该命令按钮的一个属性设置为 True，这个属性是（分数：2.00）A.ValueB.DefaultC.Cantel D.Enabled解析：分析 当一个命令按钮的 Cancel 属性被设置为 True 时，按 Esc 键与单击该命令按钮的作用相同。在一个窗体中，只允许有一个命令按钮的 Cancel 属性被设置为 True。12

35、.设有如下程序： Private Sub search(a()As Variant，ByVal key As Variant，index%) Dim I For I = Lbound(a)To Ubound(a) If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21，64，92，15，72，38，45，72) Call search(b， 45， n) Print n En

36、d Sub 程序运行后，输出的结果是（分数：2.00）A.2B.6 C.10D.12解析：分析 本程序的功能是：查寻给定数字 45 在数组 b 中的位置 n。用 Array 函数给数组 b 的各元素赋初值，其中数组变量名 a 应是 Variant 型的。用数组作为过程的形参时，应在数组名的后面加上一对圆括号(如数组 a()；用数组作为调用过程的实参时，数组名的后面去掉一对圆括号(如数组 b)。用类型说明符来标识 index 和 I 为整型变量。 Lbound(a)和 Ubound(a)函数分别返回数组的下界和上界，下界值为 0。在于程序 search 中，当 key=a(I)条件(即 45=a

37、(6)成立时，变量 index 记录下数组下标值6，然后中断循环，退出于程序 search，index 反传送给变量 n，最后打印出 6。13.确定一个窗体或控件大小的属性是（分数：2.00）A.Width 或 HeightB.Width 和 Height C.Top 或 LeftD.Top 和 Left解析：分析 Height 和 Width 两个属性用来指定窗体或窗体的高度和宽度。14.以下语句的输出结果是 Print Format$(1234.5，“00，000.00“)（分数：2.00）A.1234.5B.01，234.50 C.01，234.5D.1，234.50解析：分析 本题用

38、Format 函数对数值进行格式化输出，函数的第一个参数是数值 1234.5，函数的第二个参数是格式说明符，使用的说明符有“0”和“，”，保留两位小数，该函数的返回值为01,234.50。15.设在菜单编辑器中定义了一个菜单项，名为 menu1。为了在运行时隐藏该菜单项，应在程序中使用的语句是（分数：2.00）A.menu1Enabled=TrueB.menu1Enabled=FalseC.menu1Visible=TrueD.menu1Visible=False 解析：分析 为了在运行时隐藏和显示菜单项，可用 Visible 属性来设置，当该属性为 True 时，菜单项可见：为 False

39、时，菜单项不可见。16.InputBox 函数返回值的类型是（分数：2.00）A.数值B.字符串 C.变体D.数值或字母串(视输入的数据而定)解析：分析 InputBox 函数返回值的类型是字符串型。17.在窗体中添加一个命令按钮，名称为 Command1，两个文本框名称分别为 Text1 和Text2，然后编写如下程序： Private Sub Command1_Click() Dim x As String，y As String， C As String，d As String x = Text1Text ： y = Text2Text c = LCase(x)：d = UCase(y)

40、 Print c； d End Sub 程序运行后，在文本框 Texn、Text2 中分别输入 AbC 和 efG，结果是（分数：2.00）A.abcEFG B.abcefgC.ABCefgD.ABCEFG解析：分析 Ucase 函数和 Lcase 函数对大小写字母进行转换。其中 Ucase 将“字符串”中的小写字母转换为大写字母，而 Lcase 函数将“字符串”中的大写字母转换为小写字母。18.设一棵完全二叉树共有 699 个结点，则在该二叉树中的叶子结点数为（分数：2.00）A.349B.350 C.255D.351解析：分析 根据完全二叉树性质 6，按从上到下，从左至右给结点编号，若 k

41、1，则父结点编号为 INT(k/2)，所以第 699 号结点的父结点编号是 349 号。因为第 699 号结点是完全二叉树中最后的一个叶子结点，因此，其父结点即 349 号结点也一定是最后一个非叶子结点。那么从第 350 号699 号结点都是叶子结点。 因此叶子结点数为 699-349=350。19.用二维表结构表示实体以及实体间联系的数据模型称为（分数：2.00）A.网状模型B.层次模型C.关系模型 D.面向对象模型解析：分析 用二维表结构表示实体以及实体间联系的数据模型称为关系模型。20.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub C

42、ommand1_Click() Sum=0 For x=1 To 5 Call subl(x，s) Sum=Sum+ s Next X Print Sum End Sub Private Sub subl(y，w) w = 1 For i=1 To y w = w * i Next i End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.5B.120C.153 D.160解析：分析 由于参数 y、w 是按 ByRef 的参数称为“引用”，所以在过程 sub1 中改变的值带回到调用的地方，因此 Sum 的结果是 5 次 sub1 计算结果的和，即 sum=(1+2

43、+6+24+120)=153。本题答案为 153。21.设 x=7，y=9，则以下表达式值为“真”的是（分数：2.00）A.x=y And y10B.xy Or y0 C.x0 Eqv y0D.-2+4x And y0解析：分析 在混合表达式中，按优先级有：先运算算术表达式，再运算比较表达式，最后运算逻辑表达式。选项 B 的运算结果为 True。22.如果要在程序代码中为图片框动态加载和清除图像，可以利用的函数是（分数：2.00）A.InputBoxB.InputC.LoadPicture D.PaintPicture解析：分析 在运行期间可以用 LoadPicture 函数将图形文件装入窗体

44、、图片框或图像框中。 LoadPicture 函数的功能与 Picture 属性基本相同，即用来将图形文件装入窗体、图片框或图像框中，其一般格式为： 对象Picture=LoadPicture(“文件名”)这里的“文件名”指的是前面提到的图形文件。LoadPicture 函数与 Picture 属性使用的时间不一样，前者在运行期间装入图形文件，而后者在设计时装入。23.用来设置窗体背景图片的属性是（分数：2.00）A.MoveableB.Picture C.ForeColorD.WindowState解析：分析 窗体对象具有 Picture 属性，通过设置它可直接在窗体背景上显示图片。24.软

45、件工程方法的产生源于软件危机，下列哪个(些)是产生软件危机的内在原因? 软件复杂性 软件维护困难 软件成本太高 软件质量难保证（分数：2.00）A.B.C.和D.和 解析：分析 软件危机主要表现在：软件需求的增长得不到满足：软件开发成本和进度无法控制：软件质量难以保证；软件不可维护或维护程度非常低；软件成本不断提高；软件开发生产效率的提高赶不上硬件的发展和应用需求的增长。总之，可以将软件危机归纳为成本、质量和生产率等问题。25.数据的存储结构是指（分数：2.00）A.存储在外存中的数据B.数据所占的存储空间量C.数据在计算机中的顺序存储方式D.数据的逻辑结构在计算机中的表示 解析：分析 数据的

46、逻辑结构在计算机存储空间中的存放形式称为数据的存储结构(也称数据的物理结构)。一种数据结构可根据需要采用不同的存储结构。常用的存储结构有顺序、链接、索引等存储方式。26.数据库系统与文件系统的主要区别是（分数：2.00）A.文件系统不能解决数据冗余和数据独立性问题，而数据库系统可解决这类问题 B.文件系统只能管理少量数据，而数据库系统则能管理大量数据C.文件系统只能管理程序文件，而数据库系统则能管理各种类型的文件D.文件系统简单，而数据库系统复杂解析：分析 在文件系统中，相互独立的记录其内部结构的最简单形式是等长同格式记录的集合，易造成存储空间大量浪费，不方便使用。而在数据库系统中，数据是结构

47、化的，这种结构化要求在描述数据时不仅描述数据本身，还要描述数据间的关系，这正是通过采用特定的数据模型来实现的。27.下列数组说明语句正确的是（分数：2.00）A.Dim g(0，-5)As SingleB.Dim h(100 To 100，100)As String C.Dim x(5)As Integer ReDim x(10)As IntegerD.Dim y() ReDim y解析：分析 选项 A 不为 0 时不能这样定义，要用关键字 To 显式地指明下标范围；选项 B 二维数组 h 的数组元素个数是 101，类型是字符串型；选项 C 对数组的说明应不带下标参数，x(5)应改成 x()就

48、对了；选项 D 重定义语句 ReDim 应带下标参数。28.编写如下事件过程： Private Sub Form MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) If Shift=6 And Button=2 Then Print “BBBB“ End If End Sub 程序运行后，为了在窗体上输出“BBBB”，应执行的操作为（分数：2.00）A.同时按下 Shift 键和鼠标左键B.同时按下 Ctrl、Alt 键和鼠标右键 C.同时按下 Shift 键和鼠标右键D.同时按下 Ctrl、Alt 键和鼠标左键解析：分析 在窗体上按下鼠标键，触发 Form_Mo useDown 事件。参数 Button 标识鼠标的信息，1 表