[计算机类试卷]VB笔试模拟试卷29及答案与解析.doc

1、VB笔试模拟试卷 29及答案与解析 1 下列属于顺序存储方式的优点的是 ( )。 （ A）存储密度大 （ B）插入运算方便 （ C）删除运算方便 （ D）可方便地用于各种逻辑结构的存储表示 2 在顺序表 (8， 11， 15， 19， 25， 26， 30， 33， 42， 48， 50)中，用二分法查找关键码值 20，需做的关键码比较次数是 ( )。 （ A） 3 （ B） 4 （ C） 6 （ D） 8 3 在一棵二叉树的前序遍历、中序遍历、后序遍历所产生的序列中，所有叶结点的先后顺序 ( )。 （ A）不相 同 （ B）完全相同 （ C）前序和中序相同 （ D）后序和中序相同 4 下列关

2、于结构化设计方法的特点描述中，不正确的是 ( )。 （ A）采用逐步求精的方法进行详细设计，由于相邻步之间变化小，易于验证其等效性和设计正确性 （ B）程序清晰和模块化使得修改和重新设计一个软件时使用的代码量不大 （ C）在进行程序设计时不能使用 goto语句 （ D）良好清晰的控制结构使设计容易阅读和理解 5 软件需求说明书是需求分析阶段的最后成果，以下 ( )是其应包括的内容。 数据描述 功 能描述 性能描述 文件结构 （ A） 和 （ B） 和 （ C） 和 （ D） 、 和 6 软件的结构化设计方法是以 ( )为依据的模块结构的设计方法。 （ A）系统数据要求 （ B）数据结构 （ C

3、）数据流图 （ D）数据流 7 在程序测试中，为了成功地测试设计数据，目前产生这些测试用例主要依赖于( )。 （ A）黑盒方法 （ B）测试人员的经验 （ C）白盒测试 （ D）以上都不是 8 下面列出的条目中， ( )是数据库系统的组成成员。 操 作系统 数据库管理系统 用户 数据库管理员 数据库 （ A） 、 、 和 （ B） 、 和 （ C） 、 、 和 （ D）都是 9 在关系数据库中，元组的集合称为关系。通常标识元组的属性或最小属性组称为( )。 （ A）主键 （ B）索引 （ C）标记 （ D）字段 10 用类及继承来表示实体及实体间的联系称为 ( )。 （ A）网状模型 （ B）

4、层次模型 （ C）关系模型 （ D）面向对象模型 11 有程序代码： Text1 text=“Visual Basic“ 其中的 Text1、 text和 “Visual Basic“分别代表 ( )。 （ A）对象、值、属性 （ B）对象、方法、属性 （ C）对象、属性、值 （ D）属性、对象、值 12 窗体的 ( )方法可把窗体隐藏起来，但不从内存中卸载。 （ A） Hide （ B） Close （ C） Show （ D） Load 13 已知 x=10，表达式 “x 10 And x =100 Or 10 Mod 2=0“的值为 ( )。 （ A） False （ B） True （

5、 C） 1 （ D） 0 14 已知字符串 A的值为 “AbcDe“，现要把它全部转化为大写字母并存放在 A中，可使用语句 ( )。 （ A） A=ToUpper$(A) （ B） A=ToLower$(A) （ C） A=Ucase$(A) （ D） A=Lcase$(A) 15 下列不能作为 VB的变量名是 ( )。 （ A） ABCD （ B） A 1 （ C）中国 （ D） ABCD 16 在窗体上画一个名称为 Command1的命令按钮，然后编写如下程序： Dim k As Integer Private Sub Form_Load() k=15 End Sub Private Su

6、b Command1_Click() Static b As Integer b=b+k k=k+1 Print k， b End Sub 程序运行时，两次单击命令按钮 Command1后，在窗体上显示的第二行是( )。 （ A） 17 31 （ B） 15 31 （ C） 17 16 （ D） 2 1 17 要使一个文本框显示多行 文件，应使它的 ( )设为 True。 （ A） WordWrap （ B） MultiLine （ C） ScrollBars （ D） Locked 18 列表框的 ( )属性表示选中选项的序号。 （ A） List （ B） ListCount （ C） L

7、istIndex （ D） Columns 19 在窗体上有一个计时器控件 Timer1和一个标签控件 Labe11，在程序运行的时候，可通过每隔 30ms让 Labe11左移 100缇，从而产生文字移动动画效果。文字从右向左移动，当移动到接近窗体左边界时停止移 动，如图 20-9所示。空格处应填 ( )。 Private Sub Form_Load() Labell Left=Form1 Width Timer1 Interval=30 Timer1 Enabled=True End Sub Private Sub Timer1_Timer() Labell Left=Labell Left

8、-100 If Labell Left 100 Then _ End If End Sub （ A） Timer1 Enabled=False （ B） Timer1 Interval=30 （ C） Labell Enabled=True （ D） Labell Left=0 20 若在 Shape控件内以 Fillstyle属性所指定的图案填充区域，而填充图案线条的颜色由 FillColor属性指定，非线条的区域由 BackColor属性填充，则应 ( )。 （ A）将 Shape控件的 FillStyle属性设置为 2 7间的某个值， BackStyle属性设置为 1 （ B）将 Sha

9、pe控件的 Fillstyle属性设置为 0或 1， BackStyle属性设置为 1 （ C） 将 Shape控件的 FillStyle属性设置为 2 7间的某个值， BackStyle属性设置为 0 （ D）将 Shape控件的 FillStyle属性设置为 0或 1， BackStyle属性设置为 0 21 要随机产生一个两位数并赋值给 y，下面语句正确的是 ( )。 （ A） y=10+INT(90*RND) （ B） x=10+INT(89*RND) （ C） x=INT(10+90*RND) （ D） x=10+INT(49+91*RND) 22 程序段如下： Dim i As I

10、nteger， s As Integer For i=4 To 1 Step-1 s=s+i Next i Print s， i执行的结果是 ( )。 （ A） 10 0 （ B） 9 1 （ C） 10 1 （ D） 9 0 23 以下有关数组定义的语句序列中，错误的是 ( )。 （ A） Static arr1(3) arr1(1)=100 arr1(2)=“Hello“ arr1(3)=123.45 （ B） Dim arr2() AsInteger Dim size As Integer Private Sub Command2_Click () size=InputBox(“输入：

11、“) ReDim arr2(size) EndSub （ C） Option Base 1 Private Sub Command3 Click() Dim art3(3) As Integer End Sub （ D） Dim n As Integer Private Sub Command4 Cliok() Dim arr4(n)As Integer End Sub 24 当 Form1_Click事件发生时，窗体上显示的第三行是 ( )。 Option Base 1 Private Sub Form_Click() Dim i As Integer， j As Integer Dim k

12、 As Integer，a(5， 5)As Integer For i=1 To 5 k=1 For j=1 To 5 If i =j Then a(i， j)=k k=k+1 Else a(i， j)=1 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i， j)； Next j Print Next i End Sub （ A） 1 2 3 4 5 （ B） 1 1 2 3 4 （ C） 1 1 1 2 3 （ D） 1 1 1 1 2 25 程序代码如下，当单击窗体上的 Command1控件时，窗体上显示的结果是( )。 Pr

13、ivate Sub Command1_Click() Dim i As Integer， a(9)As Integer For i=9 To 0 Step-1 a(i)=10-i Next i Print a(2); a(5)； a(8) End Sub （ A） 2 5 8 （ B） 7 4 1 （ C） 8 5 2 （ D） 3 6 9 26 下列 ( )可返回一个值。 （ A）事件过程 （ B）通用过程 （ C） Function过程 （ D）属性过程 27 在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。 Private Function fun(x As In

14、teger， y As Integer) Static m As Integer Static i As Integer i=i+2 i=i+m+1 m=i+x+y fun=m End Function Private Sub Command1_Click() Dim j As Integer， m As Integer,k As Integer j=4： m=1 k=fun(j,m) Print k； k=fun (j， m) Print k End Sub （ A） 8 18 （ B） 7 17 （ C） 7 19 （ D） 8 19 28 程序段如下，当发生 Form_Click事件时，

15、窗体上输出的结果是 ( )。 Option Explicit Private x As Integer Public y As Integer Sub Test() Dim y as integer x=2： y=2 Print“x1=“;x;“y1=“;y End Sub Private Sub Form_Click() x=1：y=1 Test Print “X2=“； x； “y2=“； y End Sub （ A） x1=2 y1=2 x2=2 y2=1 （ B） x1=2 y1=2 x2=2 y2=2 （ C） x1=2 y1=1 x2=2 y2=2 （ D） x1=2 y1=1 x

16、2=2 y2=1 29 已知通用对话框名为 Cd1g，则执行下列的 ( )语句，将弹出 “字体 ”对话框。 （ A） Cd1g ShowWord （ B） Cd1g ShowFont （ C） Font Cd1g （ D） ShowFont Cd1g 30 已知通用对话框名为 Cd1g，则执行下列的 ( )语句，将弹出 “颜色 ”对话框。 （ A） Cd1g Action=6 （ B） Cd1g Action=5 （ C） Cd1g Action=4 （ D） Cd1g Action=3 31 “字体 ”对话框的 ( )属性用来指定对话框中所能选择的字体的最大值。 （ A） FontSize

17、（ B） FontName （ C） Max （ D） min 32 关于 MDI窗体及其子窗体，下列说法正确的是 ( )。 （ A）一个应用程序中可以有多个 MDI窗体 （ B） MDI窗体在子窗体最大化时将被隐藏 （ C）子窗体最小化时，将以图标的方式显示在任务栏上 （ D） MDI子窗体可以在 MDI窗体内进行平铺或层叠 33 要把名为 Form1的窗体从内存中卸载，应使用语句 ( )。 （ A） Form1 Unload （ B） Close Form1 （ C） Form1 End （ D） Unload Form1 34 下面是窗体的 MouseDown事件框架，可通过它的 ( )

18、参数来识别按下的是哪一个鼠标键。 Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single， Y As Single) End Sub （ A） Button （ B） Shift （ C） X （ D） Y 35 关于语句 “Open“a1 txt”For Append as #10”的说法正确的是 ( )。 （ A）打开一个已存在的文件，可以读也可以写 （ B）打开的文件必须存在，只能写 （ C）若文件存在则覆盖它，只能写 （ D）若文件存在，则在原有的内容后面写 36 算法的复杂度主要包括【 】复杂

19、度和空间杂度。 37 数据库逻辑结构在计算机存储空间中的存放形式称为数据的【 】。 38 若按功能划分，软件测试的方法通常分为白盒测试方法和【 】测试方法。 39 如果一个工人可管理多个设备，而一个设备只被一个工人管理，则实体 “工人 ”与实体 “设备 ”之间存在【 】的联系 40 关系数据库 管理系统能实现的专门关系运算包括选择、连接和【 】。 41 若 s、 i均为整型变量，执行下列程序段后 s的值为【 】。 S=0 i=1 DO S=S+i i=i+1 Loop Until i5 42 下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示“1!+2!+3!+10!” 的和。 Priv

20、ate Sub Form_Click() Dim s As Long,i As Integer s=0 For i=1 To 10 s=s+【 】 Next i Print s End Sub Private Function fact(ByVal n As Integer)As Long Dim i As Integer,f As Long f=1 For i=2 To n f=f*i Next i 【 】 End Function 43 下面程序的功能是：求出所有的三位数，其各位数字的立方和等于该数。如： 153=13+53+33。 Option Explicit Private Sub

21、Form_Click() Dim x1 As Integer,x2 As Integer,x3 As Integer 【 】 For i=100 To 999 x=i x1=【 】个位数字 x2=x10 Mod 10 x3=x100 If【 】 Then Print i End If Next i End Sub VB笔试模拟试卷 29答案与解析 1 【正确答案】 A 【试题解析】 顺序存储方式的优点主要有：存储密度大，存储空间利用率高，便于随机存储。由于顺序存储方式在插入、删除运算时会引起大量结点的移动，因此不利于经常性的执行插入和删除运算，选项 B、 C的叙述是错误的。又由于顺序存储是依靠

22、元素的物理位置关系来反映元素之间的逻辑关系，因此对一些逻辑结构比较复杂的数据，直接存储比较困 难。综上所述，选项 A是正确答案。 2 【正确答案】 B 【试题解析】 由题意可知，关键字 20不在顺序表中，所以这次查找只能是一次失败的查找。对长度为 n的线性表进行二分查找，若查找不成功，则给定值与log2n+1个关键字进行过比较。所以在查找关键字 20的过程中比较次数为log211+1，即进行了 4次比较。具体查找过程如图 20-17所示。其中 中是当前的检索范围， 指示当前检索范围中位于中点位置上的元素。3 【正确答案】 B 【试题解析】 任意两种方法遍历同一棵二叉树，可确定惟一一 棵二叉树，

23、无论是前序遍历、中序遍历、后序遍历二叉树，其区别均在于访问根的先后次序不同，即前根序、中根序、后根序。而访问中结点顺序都一样。 4 【正确答案】 C 【试题解析】 题中选项 A、 B、 D所述均为结构化设计方法的特点。在进行程序设计时可以使用 goto语句，但要严格控制。因此选项 C的叙述是错误的。 5 【正确答案】 D 【试题解析】 在需求分析中，软件开发人员主要应解决 “软件做什么 ”的问题。作为分析成果的需求说明书，主要应包括功能描述、数据描述、性能描述等。数据描述是对软件系统所必须解 决的问题作出的详细说明。功能描述描述了为解决用户问题所需要的每一项功能的过程细节。性能描述中说明系统应

24、达到的性能和应该满足的限制条件、检测的方法和标准、预期的软件响应和可能需要考虑的特殊问题，故选项 D是正确的。 6 【正确答案】 C 【试题解析】 数据流图是需求说明书最主要的文档，它表达系统的功能要求和数据要求，既是与用户交流的文档，也是系统设计的依据。 7 【正确答案】 B 【试题解析】 测试方法有两种：黑盒测试和白盒测试。不论用哪种测试方法，产生测试数据的工作量都是十分繁重的。实际上 大多数测试用例的产生仍依赖于测试人员的经验，从而测试质量的高低还与测试人员的能力有很大关系。 8 【正确答案】 D 【试题解析】 数据库系统一般由数据库、操作系统、数据库管理系统 (及其工具 )、应用系统、

25、数据库管理员和用户构成。 9 【正确答案】 A 【试题解析】 关系对应于二维表，元组对应于表中的一行，属性对应于表中的一列，主键用来惟一表示一个元组或一组属性。关系中的某一组属性，若其值可以惟一地表示一个元组，则该属性组为一个候选关键字。若一个关系中有多个候选关键字，可任选一个作为主关键字 ，也称为主键。 10 【正确答案】 D 【试题解析】 面向对象模型用类及继承来表示实体及实体间的联系：层次模型用树形 (层次 )结构表示实体类型以及实体间的联系；网状模型是用网状结构来表示；关系模型用表格形式结构来表示。 11 【正确答案】 C 【试题解析】 每个对象都有一定的属性，属性反映对象的特征，可以

26、通过赋值语句给对象的属性赋值，语句格式是：对象名属性名 =值。此处 Text1是一个对象名， Text是它的一个属性名， “Visual Basic”是属性值，用来指定在文本框中显示的文字。 12 【正确答案】 A 【试题解析】 窗体无 Close方法， Load是语句而不是方法，窗体的 Hide方法用来把窗体隐藏起来，但不从内存中卸载， Show方法用来把窗体显示出来，如果窗体没有加载到内存，该方法首先把窗体加载到内存。 13 【正确答案】 B 【试题解析】 表达式的运算规则是：先算算术表达式，再算关系表达式，最后算逻辑表达式，对于逻辑运算符，按照 Not、 And、 Or的顺序进行计算。算

27、术运算符和关系运算符运算完毕后，上式相当于： False And True Or True，结果是True。 14 【正确答案】 C 【试题解析】 VB中并无 ToUpper和 ToLower函数， Ucase()函数的作用是将字符串型参数中的所有小写字母转换成大写字母， Lcase()函数的作用是将字符串型参数中的所有大写字母转换为小写字母。 15 【正确答案】 D 【试题解析】 VB中变量名的取名规则是：首字符必须是字母或汉字，长度不超过 255个，在作用域内必须惟一，变量名中不得包括点号和用于类型说明的字符、 &、 !、 #、 、 $。注意，不能以下划线作为变量名的开头，这和其他语言有区

28、别。 16 【正确答案】 A 【试题解析】 本题定义了一个窗体级变量 k，该变量可以被该窗体的所有过程使用，并在窗体加载时的 Load事件中给变量 k赋值 15。第一次单击 Command1时，定义了一个静态变量 b，执行下面的两条赋值语句后， b的值为 15，窗体级变量 k的值为 16，所以输出为 16 15。再一次单击 Command1按钮，此时静态变量b是上一次退出时的值 15，而不是 0，执行下面的两条赋值语句后， b的值为 31，窗体级变量 k的值为 17，所以输出为 17 31。 17 【正确答案】 B 【试题解析】 文本框无 WordWrap属性，该属性是标签控件的一个属性。文本

29、框的 MultiLine用来决定文本框中是否可以显示多行文本，当其值为 True时可以显示多行文本，否则不可以。文本框的 ScrollBars属性用来决定文本框是否显示滚动条，当其值为 0时不显示滚动条，为 1时只显示水平滚动条，为 2时只显示垂直滚动条，为 3时两种滚动条都显示。 Locked属性用来指定文本框控件是否可被编辑，为 False时表示可编辑，为 True时，表示不可以编辑，此时的文本框控件相当于标签控件。 18 【正确答案】 C 【试题解析 】 列表框的 List属性是一个数组，用来存放各选项， ListCount属性用来返回选项的数目， ListIndex属性返回的是选中的选

30、项的序 (编 )号 (从 0开始 )，Columns属性用来指定列表框中显示的列数。 19 【正确答案】 A 【试题解析】 本题在 Form Load事件中通过给 Labell的 Left属性赋值，使它显示在窗体右边框之外，通过给 Timer1 Interval属性赋值，使定时器的 Timer事件可隔 30ms发生一次，并给 Timer1 Enabled赋值为 True，启动定时器工作。在每发 生一次 Timer1 Timer事件时，将使标签控件的 Left属性值减去 100，从而产生标签中显示的文字逐渐左移的动画效果。当标签移到窗体的左边界附近时，要使标签不再移动，只需把时钟控件的 Enab

31、led属性变为 False即可。 20 【正确答案】 A 【试题解析】 Shape控件的 FillStyle属性决定以什么方式填充形状控件，其取值为 0 7，取值为 0时将以 FillColor指定的颜色填充整个形状控件，取值为 1时，将不填充 (透明 )，取值为 2 7之间的某个值时，将以某种指定的图案填充区域；BackStyle用来指定背景风格，当其值为 0(Transparent)时表示透明， BackColor指定的背景色不再起作用，当其值为 1(Opaque)时表示不透明，此时非线条的区域由 BackColor属性指定的色彩填充。 21 【正确答案】 A 【试题解析】 Rnd是产生一

32、个 0 1的随机数，通过它产生从 Low High范围的整数可使用以下公式： Int(High-Low+1)*Rnd)+Low 两位数的 Low为 10， Hight为 99，代入上式可知，答案 A是正确的。 22 【正确答案】 A 【试题解析】 For循环的结束条件是循环变量的值在变化方向上 “超过 ”终值，本题循环变量 i的初值为 4，终值为 1，步长为 1，所以变化方向是从大到小，在i=4、 i=3、 i=2和 i=1时，分别执行一次循环，在循环中把循环变量 i的值 (4、 3、2、 1)分别加到变量 s中。四次循环过后，循环变量的值变为 0，已经在变化方向上超过了终值，循环结束。 23

33、 【正确答案】 D 【试题解析】 在声明数组时，其下标必须为确定的值。 24 【正确答案】 C 【试题解析】 本题首先定义了一个 5行 5列的数组，然 后通过一个二重 For循环给它的每个元素赋初值，赋值规律是左上右下对角线下面的元素值为 1，该对角线上元素的值为 1，该对角线上面的元素值在前一元素值的基础上增加 1。接着通过一个两层 For循环按行输出二维数组 a，故输出的第三行为 “1 1 1 2 3”。 25 【正确答案】 C 【试题解析】 本题首先定义了一个一维数组 a，它具有 10个元素，分别是a(0) a(9)。然后通过一个 For循环给它的各个元素赋值，赋值规律是 “10-元素下

34、标 ”，赋值过后，元素 a(0) a(9)的值依次是 10 1。最后输出 的 a(2)、 a(5)和 a(8)的值分别是 8 5 2。 26 【正确答案】 C 【试题解析】 事件过程是在发生某一个事件时调用的，它没有返回值；通用过程主要是用来执行一个程序段，也没有返回值； Function过程的作用一般是完成某种运算，最后把运算的结果作为函数的返回值返回。 27 【正确答案】 D 【试题解析】 当发生 Command1的单击事件时，定义了两个变量 j和 m，并依次赋值为 4和 1，然后调用 fun函数，把 i和 m按地址传递给 x和 y，进入 fun函数执行。在 fun函数中定义了两个静 态变

35、量 m和 i，执行三条赋值语句后 i的值为3， m的值为 8，通过给函数名赋值把 8作为函数值返回并赋值给 k，输出 k的值为 8；再一次调用函数 fun，把 j和 m依次按地址传给 x和 y，进入 fun函数执行，注意，由于 m和 i是静态变量，此时的值不再是 0，而是上一次退出时的值为3和 8。执行三条赋值语句后 i的值为 14， m的值为 19，通过给函数名赋值，把19作为函数值返回并赋值给 k，输出 k的值为 19。 28 【正确答案】 A 【试题解析】 本题首先定义了一个窗体级变量 x和一个全局变量 y。当发生窗体的单击事件后，给窗体级变 量 x和全局变量 y分别赋值 1，然后调用

36、Test函数。在该函数中定义了一个局部变量 y，在函数中使用的 y是局部变量，给窗体级变量x赋值 2，给局部变量 y赋值 2，输出的 x和 y的值都是 2。函数调用返回后，窗体级的变量 x的值为 2，全局变量 y的值依旧为 1。 29 【正确答案】 B 【试题解析】 可通过调用通用对话框的方法来弹出不同的对话框，要弹出 “字体 ”对话框，可调用通用对话框的 “ShowFom”方法。注意，通用对话框无 ShowWord方法， ShowFont也不是语句。 30 【正确答案】 D 【试题 解析】 为了弹出某个对话框，除使用通用对话框的方法外，还可以通过给通用对话框的 Action属性赋值来实现，给

37、 Action属性赋不同的值将弹出不同的对话框。若给 Action属性赋值为 3，运行时将弹出 “颜色 ”对话框。 31 【正确答案】 C 【试题解析】 字体对话框的 FontSize属性返回用户所选定的字体大小，FontName属性返回用户所选定的字体名， Max属性用于设定在字体对话框中所能选择的最大字体，以 Point为单位， Min属性用于设定在字体对话框中所能选择的最小字体，也是以 Point为单位 。 32 【正确答案】 D 【试题解析】 一个应用程序只能有一个 MDI窗体，它通常用来作为主窗体：子窗体最大化时，将充满 MDI窗体的工作区域， MDI窗体并不隐藏：子窗体最小化时，将

38、在 MDI窗体的底部以图标的形式显示，而不是显示在任务栏上： MDI子窗体可以在 MDI窗体中进行平铺或层叠排列。 33 【正确答案】 D 【试题解析】 Unload和 End都不是窗体的方法，故答案 A和 C是错误的， VB中没有 Close语句，所以答案 B是错误的。 Unload是一条语句，其作用是把对象(此题为窗体 )从内 存中卸载 (清除 )。 34 【正确答案】 A 【试题解析】 MouseDown事件中有四个参数，参数 Button是一个整数， 35 【正确答案】 D 【试题解析】 打开文件时，读写模式为 Append，如果指定的文件不存在，则创建它，只能在文件中写，如果文件已经

39、存在，则在文件的后面写。 36 【正确答案】 时间 【试题解析】 算法的复杂度主要指时间复杂度和空间复杂度。 37 【正确答案】 存储结构或物理结构或物理存储结构 【试题解析】 时间数据的逻辑结构在计算机存储空间中 存放形式称为数据的存储结构。 38 【正确答案】 黑盒或黑箱 【试题解析】 软件测试的方法分为白盒测试方法和黑盒测试方法。 39 【正确答案】 一对多或 1对多或 1 M或 1 N(其中 M、 N大小写均可 ) 【试题解析】 工人和设备之间是一对多的联系。 40 【正确答案】 投影 【试题解析】 关系数据库管理系统的专门关系运算包括选择、连接和投影。 41 【正确答案】 15 【试

40、题解析】 每执行一次循环，变量 s加一次变量 i，随后变量 i再加一次 1，直到变量 i大于 5时终止循环。 i的初始值为 1，故 Do循环执行 5次。相应的，变量s分别加 1、 2、 3、 4、 5，故答案为 15。 42 【正确答案】 fact(i) , fact=f 【试题解析】 本题的函数过程 fact的作用是求参数 n的阶乘。函数中通过一个For循环把从 2乘到 n的值放在变量 f中， f就是 n的阶乘。 n的阶乘应该作为函数值返回， VB规定，要想函数过程返回一个值，可把这个值直接赋给函数名。所以12处应填 “fact=f”。在 Form_Click事件中，通过一个 For循环把

41、1到 10的阶乘加到变量 s中，因此在该循环中应该调用 Fact函数过程得到循环变量 i的阶乘，故 11处应填 “fact(i)”。 43 【正确答案】 Dim x As Integer,i As Integer , x Mod 10 , x13+x23+x33=i 【试题解析】 本程序中使用了 “Option Explicit”语句，因此程序中使用的所有变量都必须先定义，故 9处应填变量定义语句 “Dim x As Integer,i As Integer”。要判断 x是否为水仙花数，可首先把 x的各位数字分离出来， 10处显然是分离出个 位数字，应填 “x Mod 10”。然后判断各位数字的立方和是否与 i相等，如果相等，则是水仙花数，所以 11处应填 “x13+x23+x33=i”。