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

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

1、二级 VISUAL+BASIC 笔试-168 及答案解析(总分：124.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.如果将文本框的 MaxLength 属性设置为 0，则文本框中的字符不能超过（分数：2.00）A.8KB.16KC.32KD.64K2.下述关于数据库系统的叙述中正确的是（分数：2.00）A.数据库系统减少了数据冗余B.数据库系统避免了一切冗余C.数据库系统中数据的一致性是指数据类型一致D.数据库系统比文件系统能管理更多的数据3.数据处理的最小单位是（分数：2.00）A.数据B.数据元素C.数据项D.数据结构4.下列语句中，获得列表框 List1

2、中项目个数的语句是（分数：2.00）A.x=List1.ListCountB.x=ListCountC.x=List1.ListlndexD.x=Listlndex5.下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按 Cancel 键退出对话框，则Private Sub Command1_Click()CommonDialog1.CancelError=TrueCommonDialog1.Flags=cdlCFEffects Or cdlDFBothCommonDialog1.Action=4CommonDialog1.ShowFontText1.Font.Name=C

3、ommonDialog1.FontNameText1.Font.Size=CommonDialog1.FontSizeText1.Font.Bold=CommonDialog1.FontBoldText1.Font.Italic=CommonDialog1.FontItalicText1.Font.Underline=CommonDialog1.FontUnderlineText1.FontStrikethru=CommonDialog1.FontStrikethruText1.ForeColor=CommonDialog1.ColorEnd Sub（分数：2.00）A.Text1 的字体不发

4、生变化B.Text1 的字体发生变化C.Text1 的字体和颜色发生变化D.程序出错!6.要获得当前驱动器应使用驱动器列表框的属性是（分数：2.00）A.PathB.DriveC.DirD.Pattem7.索引属于（分数：2.00）A.模式B.内模式C.外模式D.概念模式8.一些重要的程序语言(如 C 语言和 Pascal 语言)允许过程的递归调用。而实现递归调用中的存储分配通常用（分数：2.00）A.栈B.堆C.数组D.链表9.下列程序的执行结果为Private Sub Command1_Click()Dim x As Integer，Y As Integerx=12:y=20Call Va

5、lue(x，y)Print x;yEnd SubPrivate Sub Value(ByVal m As Integer，ByVal n As Integer)m=m*2:n=n-5Print m；nEnd Sub（分数：2.00）A.20 12B.12 20C.24 15D.24 1220 1 12 25 12 20 12 1510.下列说法错误的是（分数：2.00）A.窗体文件的扩展名为.frmB.一个窗体对应一个窗体文件C.Visual Basic 中的一个工程只包含一个窗体D.Visual Basic 中一个工程最多可以包含 255 个窗体11.任何控件都有的属性是（分数：2.00）A

6、.BackColorB.CaptionC.NameD.BorderStyle12.设已经在“菜单编辑器”中设计了窗体的快捷菜单，其顶级菜单为 Bs，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是（分数：2.00）A.Private Sub Form_MouseDown(Button As Integer，Shift As Integer，_X As Single，Y As Single)If Button=2 Then PopupMenu Bs，2End SubB.Private Sub Form_MouseDown(Button As Integer，Shi

7、ft As Integer，_X As Single，Y As Single)PopupMenu BsEnd SubC.Private Sub Form_MouseDown(Button As Integer，Shift As Integer，_X As Single，Y As Single)PopupMenu Bs，0End SubD.Private Sub Form_MouseDown(Button As Integer，Shift As Integer，_X As Single，Y As Single)If(Button=vbLeftButton)Or(Button=vbRightBut

8、ton)Then PopupMenu BsEnd Sub13.在软件测试设计中，软件测试的主要目的是（分数：2.00）A.实验性运行软件B.证明软件正确C.找出软件中全部错误D.发现软件错误而执行程序14.在深度为 5 的满二叉树中，结点的个数为（分数：2.00）A.32B.31C.16D.1515.以下程序段运行时从键盘上输入字符“-”，则输出结果为op$=InputBox(“op=“)If op$=“+“Then a=a+2If op$=“-“Then a=a-2Print a（分数：2.00）A.2B.-2C.0D.+216.在 Visual Basic 中，要强制用户对所用的变量进行显

9、式声明，这可以在哪里设置?（分数：2.00）A.“属性”对话框B.“程序代码”窗口C.“选项”对话框D.对象浏览器17.单击按钮时，以下程序运行后的输出结果是Private Sub Command1_Click()Dim x As Integer，y As Integer，z As Integerx=1:y=2:z=3Call God(x，x，z)Print x；x；zCall God(x，y，y)Print x；y；yEnd SubPrivate Sub God(x As Integer，y As Integer，z As Integer)X=3*z+1Y=2*Zz=x+yEnd Sub（分

10、数：2.00）A.6 6 127 11 11B.8 5 10 5 11 11C.9 6 129 10 15D.8 10 105 9 1018.设在窗体上有个文本框，然后编写如下的事件过程：Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)Const Alt=4Const Key_F2=a（分数：2.00）A.-1 6B.-1 16C.1 5D.11 2126.下列程序段的执行结果为I=9x=5DoI=I+1x=x+2Loop Until I =7Print“I=“;IPrint“x=“;x（分数：2.00）A.I=4x=

11、5B.I=7x=15C.I=6x=8D.I=10x=727.可以实现从键盘输入一个作为双精度变量 a 的值的语句是（分数：2.00）A.a=InputBox()B.a=InputBox(“请输入一个值“)C.a=Val(InputBox(“请输入一个值“)D.a=Val(InputBox()28.下列程序段的执行结果为a=3b=1For I=1 To 3f=a+ba=bb=fPrint fNext I（分数：2.00）A.4 3 6B.4 5 9C.6 3 4D.7 2 829.数据库系统的核心是（分数：2.00）A.数据库B.数据库管理系统C.模拟模型D.软件工程30.要将名为 MyForm

12、 的窗体显示出来，正确的使用方法是（分数：2.00）A.MyForm.ShowB.Show.MyFormC.MyForm LoadD.MyForm Show31.软件工程的理论和技术性研究的内容主要包括软件开发技术和（分数：2.00）A.消除软件危机B.软件工程管理C.程序设计自动化D.实现软件可重用32.设有声明语句Dim b(-1 To 10，2 To 9，20)As Integer则数组 b 中全部元素的个数（分数：2.00）A.2310B.2016C.1500D.165833.若某二叉树的前序遍历访问顺序是 abdgcefh，中序遍历访访问顺序是 dgbaechf，则其后序遍历的结点访

13、问顺序是（分数：2.00）A.bdgcefhaB.gdbecfhaC.bdgaechfD.gdbehfca34.当在滚动条内拖动滚动块时触发（分数：2.00）A.KeyUp 事件B.KeyPress 事件C.Scroll 事件D.Change 事件35.开发软件时对提高开发人员工作效率至关重要的是（分数：2.00）A.操作系统的资源管理功能B.先进的软件开发工具和环境C.程序人员的数量D.计算机的并行处理能力二、填空题(总题数：10，分数：54.00)36.在树结构中，树根结点没有 1。（分数：2.00）填空项 1:_37.Jackson 结构化程序设计方法是英国的 M.Jackson 提出的

14、，它是一种面向 1 的设计方法。（分数：2.00）填空项 1:_38.面向对象的模型中，最基本的概念是对象和 1。（分数：2.00）填空项 1:_39.软件设计模块化的目的是 1。（分数：2.00）填空项 1:_40.数据模型按不同应用层次分成 3 种类型，它们是概念数据模型、 1 和物理数据模型。（分数：2.00）填空项 1:_41.在 Visual Basic 的立即窗口内输入以下语句x=65 ?Chr$(x) 在窗口中显示的结果是_。（分数：2.00）填空项 1:_下列程序是判断一个整数(=3)是否为素数，请补充完整。Dim n As Integern=InputBox(“请输入一个整数

15、(=3)“)k=Int(Sqr(n)i：2swit=0While i0f2down%=(KeyCode=Key_F2)If altdown%And t2down% ThenText1 Text=“BBBBB“End IfEnd Sub上述程序运行后，如果按Shift+F2，则在文本框中显示得是（分数：2.00）A.Alt+F2B.BBBBBC.随机出几个数D.文本框平均内容无变化 解析：解析 此题是有关 KeyDown 事件的题目，KeyDown 是当一个键被按下时所产生的事件，而 KeyUp是松开被按的键时产生的事件，如果要判断是否按下了某个转换键，可以用逻辑运算符 And。例如，先定义了下

16、面 3 个符号常量，即 Const Shift=1，Const CtrI=2，(Const Alt=4。然后用下面的语句判断是否按下 Shift、Ctrl、Alt 键。如果 Shift And Shift0，则按下了 Shift 键；如果 Shift And Ctrl0，则按下了 Ctrl 键；如果 Shift And Alt0，则按下了 Alt 键。这里的 Shift 时 KeyDown 的第二个参数；此事件过程中的 If 后的条件语句如果为真，则是按下了Alt+F2，而本题目中是按下了 Shift+F2，所以不执行 Then 语句，即文本框的内容无变化。19.在窗体上画一个命令按钮，然后编

17、写下列程序Private Sub Command3_Click()Tcl 2Tcl 3Tcl 4End SubSub Tcl(a As Integer)Static x As Integerx=x+aPrint x；End Sub程序运行后，单击命令按钮，输出结果为（分数：2.00）A.2 3 4B.2 5 9 C.3 5 4D.2 4 3解析：解析 在过程 TCL 中，将 Integer 型变量 x 定义为静态变量(Static)，Static 语句的格式与 Dim语句完全一样，但 Static 语句只能出现在事件过程，Sub 过程或 Function 过程中，在过程中的 Static变量只

18、有局部的作用域，即只能在本过程中可见，但可以和模块级变量传递，即使过程结束后，其值仍能保留。Tcl 过程是将变量 a 的值加上 x 赋给 x，然后输出 x 的值；第一次调用 Tcl 过程时，x 未赋值，默认为 0，所以输出结果为 2，第二次调用 Tcl 过程时，因为 x 为静态变量，所以它的值为上次调用后的值，即为 2，加上 a 后，x 的值变为 5，输出结果为 5，同理，第三次调用后输出结果为 9。20.下列符号常量的声明中，不合法的是（分数：2.00）A.Const a As Single=1.1B.Const a=“OK“C.Const a As Double=Sin(1) D.Cons

19、t a As Integer=“12“解析：解析 在用 Const 定义符号常量时，格式是：Const 常量名=表达式，常量名=表达式，其中常量名中可以用类型说明符，需要注意的是，“表达式”中不能使用字符串连接运算符、变量及用户定义的函数或者内部函数。21.以下程序段的输出结果为Dim 1，a(10)，p(3)k=5For i=0 To 10a(i)=iNext iFor i=0 To 2P(i)=a(i*(i+1)Next iFor i=0 To 2k=k+P(i)*2Next iPrint k（分数：2.00）A.20B.21 C.56D.32解析：解析 第一个循环对数组 a()进行赋值，

20、第二个循环对数组 p()进行赋值，第三个循环对 k 进行累加，k 的初值等于 5，第一次循环 k=k+p(0)*2=5第三次循环 k=k+p(2)*2=21 并输出，所以选项 B)正确。22.下列方法中不能退出 Visual Basic 的是（分数：2.00）A.按 Alt+Q 组合键B.按下 Alt+F 组合键，然后按 Esc 键 C.打开“文件”菜单，执行“退出”命令D.按 F10 键，然后按 F 键，再按 X 键解析：解析 Alt+Q 为退出 Visual Basic：的快捷键，所以选项 A)是正确的；F10 为激活菜单栏的快捷键，激活菜单栏，然后按 F 键选择“文件”菜单，再按 X 键

21、选择“退出”命令按钮，可退出，所以选项 D)正确；Alt+F 为激活“文件”菜单的快捷键，打开快捷菜单后，相应的快捷命令在各命令选项后都有提示，所以选项 B)不正确；打开“文件”菜单，执行“退出”命令，也是可以的，所以选项 C)正确。23.下面程序段，运行后的结果是Private Sub Command1_Click()Dim b%(1 To 4)，i%，t#For i=1 TO 4b(i)=iNext it=Tof(b()Print“t=“；t，End SubFunction Tof(a()As Integer)Dim t#，i%t=1For i=2 To UBound(（分数：2.00）A

22、.解析：解析 程序开始调用循环语句对数组 b()赋值，b(i)=I，且数组 b 的上下界分别为 1 和 4；接着将数组 b()作为对象，调用 Tof 过程，在 Tof 过程中，定义了两个变量 t 和 I，I 作为 For 循环的循环变量，初始值为 2，终值为数组 b 的上界；循环体为“t=t*a(i)”，即将 b(i)的值乘以 t，然后在赋给 t，当循环结束后，程序返回的就是数组 b 中除第一个元素以外所有元素值的乘积，此题的结果为 234=24，输出结果为 t=24。24.下列 4 组控件属性中，属性值的类型不相同的一组是（分数：2.00）A.Label 控件的 Enabled 属性与 Te

23、xtBox 控件的 Enabled 属性B.OptionButton 控件的 Value 属性与 CheckBox 控件的 Value 属性 C.Command 控件的 Default 属性与 Command 控件的 Cancel 属性D.Command 控件的 Visible 属性与 Form 控件的 Visible 属性解析：解析 CheckBox 控件的 Value 属性取值是 0、1 或 2；OptionButton 控件的 Value 属性取值是True 或 False。25.下列程序段的执行结果为a=5For k=1 To 0a=a+kNext kPrint k;a（分数：2.00

24、）A.-1 6B.-1 16C.1 5 D.11 21解析：解析 此题是考查 For 循环结构语句。For 循环有两种格式，其中一种格式是：For 循环变量=初值 To 终值 Step步长语句Exit For语句Next循环变量此循环语句的执行过程为：“循环变量”首先取得“初值”，检查是否超过“终值”，如果超过，就一次也不循环而跳出循环，属于“先检查后执行”的类型。现在来看程序段，For k=1 To 0 中，初值为 1，终值为 0，显然当“循环变量”首先取得“初值”1，检查后超过“终值”0，所以一次也不执行，即最后执行 Print 时，k=1，a=5。26.下列程序段的执行结果为I=9x=5

25、DoI=I+1x=x+2Loop Until I =7Print“I=“;IPrint“x=“;x（分数：2.00）A.I=4x=5B.I=7x=15C.I=6x=8D.I=10x=7 解析：解析 此题用的是 Do 循环结构，其格式为：Do语句块Exit DoLoop Until 循环条件此循环由于“先执行后检查”，所以至少执行一次。本题中，程序运行到循环条件 I=7 的值为 True，才停止，所以当程序结束运行后 I=10，x=7。27.可以实现从键盘输入一个作为双精度变量 a 的值的语句是（分数：2.00）A.a=InputBox()B.a=InputBox(“请输入一个值“)C.a=Va

26、l(InputBox(“请输入一个值“) D.a=Val(InputBox()解析：解析 InputBox 函数的格式为：InputBox(prompt，default，xpos，ypos，helpfile，context)其中 prompt 是一个字符串，用于提示用户输入，是在对话框中显示的信息，不可省略，故选项 A)和选项D)不正确；Val(字符串)函数的功能是把自变量中的第一个字符串转换为数值，其中的数值是一个双精度的实数，所以正确答案为选项 C)；选项 B)没有类型转换符，不正确。28.下列程序段的执行结果为a=3b=1For I=1 To 3f=a+ba=bb=fPrint fNex

27、t I（分数：2.00）A.4 3 6B.4 5 9 C.6 3 4D.7 2 8解析：解析 本题考查的是 For 循环结构语句，现在看程序殴是如何运行的。开始 a=3，b=1。For 循环中步长默认值为 1，循环变量 I 的初值为 1，终值为 3，所以此循环结构可以循环 3 次。第一次循环后，结果为：f=4，a=1，b：4第二次循环后，结果为：f=5，a=4，b=5第三次循环后，结果为：f=9，a=5，b=9所以每循环一次，便输出 f 的当前值，循环 3 次即输出 3 个 f 值，分别为 4、5、9。29.数据库系统的核心是（分数：2.00）A.数据库B.数据库管理系统 C.模拟模型D.软件

28、工程解析：解析 数据库管理系统(Database Management System，简称 DBMS)是数据库的机构，它是一种系统软件，负责数据库中的数据组织、数据操纵、数据维护、控制及保护和数据服务等，数据库管理系统是数据库系统的核心。30.要将名为 MyForm 的窗体显示出来，正确的使用方法是（分数：2.00）A.MyForm.Show B.Show.MyFormC.MyForm LoadD.MyForm Show解析：解析 本题考核窗体处理时的使用方法或语句的格式。Visual Basic 中方法和语句的书写格式不同。方法的格式为：对象方法语句的格式为：语句对象名使用方法要先写对象名，

29、要用“.”运算符；使用语句要先写语句，语句后要空一格，后跟对象名。31.软件工程的理论和技术性研究的内容主要包括软件开发技术和（分数：2.00）A.消除软件危机B.软件工程管理 C.程序设计自动化D.实现软件可重用解析：解析 软件工程的同标是，在给定的成本、进度的前提下，开发出具有有效性、可靠性、可理解性、可维护性、可重用性、可适应性、可移植性、可追踪性和可互操作性且满足用户需求的产品。基于这一目标，软件工程的理论和技术性研究的内容主要包括：软件开发技术和软件工程管理。32.设有声明语句Dim b(-1 To 10，2 To 9，20)As Integer则数组 b 中全部元素的个数（分数：2

30、.00）A.2310B.2016 C.1500D.1658解析：解析 在本题中，Dim b(-1 To 10，2 To 9，20)As Integer 定义了一个三维数组，如果没有指定下界，默认值是 0，所以计算数组中的个数就容易了，表达式为(10-(-1)+1)(9-2+1)(20-0+1)=2016，所以选项 B)是正确答案。33.若某二叉树的前序遍历访问顺序是 abdgcefh，中序遍历访访问顺序是 dgbaechf，则其后序遍历的结点访问顺序是（分数：2.00）A.bdgcefhaB.gdbecfhaC.bdgaechfD.gdbehfca 解析：解析 前序遍历的第一个结点 a 为树的

31、根结点；中序遍历中 a 的左边的结点为 a 的左子树，a 右边的结点为 a 的右子树；再分别对 a 的左右子树进行上述两步处理，直到每个结点都找到正确的位置。34.当在滚动条内拖动滚动块时触发（分数：2.00）A.KeyUp 事件B.KeyPress 事件C.Scroll 事件 D.Change 事件解析：解析 本题考查的是滚动条事件的应用。在 Visual Basic 中，与滚动条有关的事件是 Scroll 和Change 事件。当在滚动条内拖动滚动块时触发 Scroll 事件；改变滚动框的位置后，将触发 Change 事件。Scroll 事件用于跟踪滚动条中的动态变化，Change 事件用

32、于得到滚动条的最后的值。35.开发软件时对提高开发人员工作效率至关重要的是（分数：2.00）A.操作系统的资源管理功能B.先进的软件开发工具和环境 C.程序人员的数量D.计算机的并行处理能力解析：解析 软件工程鼓励研制和采用各种先进的软件开发方法、工具和环境。工具和环境的使用又进一步提高了软件的开发效率、维护效率和软件质量。二、填空题(总题数：10，分数：54.00)36.在树结构中，树根结点没有 1。（分数：2.00）填空项 1:_ （正确答案：前件）解析：解析 在树结构中，每一个结点只有一个前件，称为父结点，没有前件的结点只有一个，称为树的根结点；每一个结点可以有多个后件，它们都称为该结点

33、的子结点。没有后件的结点称为叶子结点。37.Jackson 结构化程序设计方法是英国的 M.Jackson 提出的，它是一种面向 1 的设计方法。（分数：2.00）填空项 1:_ （正确答案：数据结构）解析：解析 结构化分析方法主要包括：面向数据流的结构化分析方法(SA-Structured analysis)，面向数据结构的 Jackson 方法(JsD-Jackson system development method)和面向数据结构的结构化数据系统开发方法(DSSD-Data structured system development method)。38.面向对象的模型中，最基本的概念

34、是对象和 1。（分数：2.00）填空项 1:_ （正确答案：类）解析：解析 面向对象模型中，最基本的概念是对象和类。对象是现实世界中实体的模型化；将属性集和方法集相同的所有对象组合在一起，可以构成一个类。39.软件设计模块化的目的是 1。（分数：2.00）填空项 1:_ （正确答案：降低复杂性）解析：解析 模块化是指解决一个复杂问题时自顶向下逐层把软件系统划分成若干模块的过程，由此分解来降低复杂性。40.数据模型按不同应用层次分成 3 种类型，它们是概念数据模型、 1 和物理数据模型。（分数：2.00）填空项 1:_ （正确答案：逻辑数据模型）解析：41.在 Visual Basic 的立即窗

35、口内输入以下语句x=65 ?Chr$(x) 在窗口中显示的结果是_。（分数：2.00）填空项 1:_ （正确答案：A）解析：解析 Chr$()是求 ASCII 字符的函数，格式是 chr$(表达式)，其中“表达式”应该是合法的ASCII 码值，chr$()函数把“表达式”的值转换为相应的 ASCII 字符。本题中 x=65 对应的 ASClI 码是字符 A，所以显示的结果应该是 A。下列程序是判断一个整数(=3)是否为素数，请补充完整。Dim n As Integern=InputBox(“请输入一个整数(=3)“)k=Int(Sqr(n)i：2swit=0While i=k And swit

36、=0If n Mod i=0 Then7 E1se8 End IfWendIf swit=0 ThenPrint n；“是一个素数。“E1sePrint n；“不是一个素数。“End If（分数：8.00）填空项 1:_ （正确答案：swit=l）解析：解析 素数是只能被 1 和本身整除的正整数，在本题的程序中，swit 是一个标志变量，如果swit=0，则表示 n 不能被整除；如果能被一个整数整除，则 swit 变为 1。While 循环执行的条件有两个，一个是 I=k，另一个是 swit=0，必须两个条件同时成立才执行循环，当Ik 时，显然不必再检查 n 是否能被 I 整除；而如果“swi

37、t=1”，则表示 n 已被整除，肯定不是素数，也不必检查了。只有 I=k 和 swit=0 两者同时成立时才需要检查“n 是否为素数”，循环只有一个判断操作，即判断 n能否被 I 整除，如果不能，则 I=I+1，以便为下一次判断的准备。填空项 1:_ （正确答案：I=I+1）解析：下面程序是用来打印九九乘法表的，请补充完整。Dim i As Integer，j As Integer，Strl$Str1=“ “For i=1 To 9For j=1 To 9If 9 ThenStr1=Str1+Str$(j)+“+Str$(i)+“=“+Str$(Val(i*j)ElseStr1=Str1 &

38、Chr(13)10 End IfNext jNext iPnnt Str1（分数：8.00）填空项 1:_ （正确答案：j=i）解析：解析 (1)Exit 语句总是出现在 If 语句或 Select Case 语句内部，而 If 语句或 Select case 语句在循环内嵌套，用 Exit 语句中断循环。函数首先定义了两个 Integer 型变量 i、j，并将空格赋给str1；第一个 For 循环的变量 I 从 1 到 9 步长为 1，第二个循环的变量 i 也是从 1 到 9 步长为 1，循环体为选择结构，它是用来输出 i*j 的值，所以 j 的值应该小于此时 i 的值，那么 If 的判断语

39、句为 j=i，当满足条件时执行 Then 后面的语句，即输出 i*j 的值，如果不满足执行 Else 后面的语句，并跳出内循环。填空项 1:_ （正确答案：Exit For）解析：在窗体上有一个命令按钮，然后编写如下程序：Function Trans(ByVal num As Long)As LongDim k As Longk=1DO While numk=k*(num Mod 10)num=num/10LoopTrans=kPrint transEnd FunctionPrivate Sub Command1_Click()Dim m As LongDim s As Longm=Input

40、Box(“请输入一个数“)s=Trans(m)End Sub程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为 11 ，在输入对话框中输入“987”输出 12 ，在输入对话框中输入“879”，输出结果为 13 。（分数：18.00）填空项 1:_ （正确答案：504）解析：解析 关键字 ByVal 用来实现传值，也就是说在定义通用过程时，如果形参前面有关键字Byval，则该参数用传值方式传递，否则用传址方式传递；在 Sub 过程中，先将输入的“456”赋给变量m，m 作为参数，调用 Ttans 过程；在 nans 过程中以 num 作为 Do While 的循环条件；在循环体中

41、，调用Mod 函数，将 num 的个位数字与 k 相乘，然后赋给 k，第一次循环时，nun 的值是 789，所以 k 的值为 9，执行 num=hum/0 后，num 的值为 78，循环 3 次后，num 变为 0，退出循环，k 值等于 987=504，并将 k的值作为返回值；当输入“987”或“879”时执行相同的操作，结果都为 504。可以看出，此程序可用于求一个数值各位上数值的乘积。填空项 1:_ （正确答案：504）解析：填空项 1:_ （正确答案：504）解析：下面程序的功能是产生 10 个小于 100(不含 100)的随机正整数，并统计其中 5 的倍数所占比例，但程序不完整，请补充完整。Sub PR()RandomizeDim a(10)For j=1 To 10a(i)=Int( 14 )If 15 Then k=k+1Print a(j)Next JPrintPrint k/10End Suh（分数：8.00）填空项 1:_ （正确答案：(99*Rnd)+1）解析：解析 小于 100 的随机正整数用(99*Rnd)+1 来表示；求倍数用取模来表示，即 a(j) Mod 5=0，用k 做计数器，累计计算能被 5 整除的数的个数。填空项 1:_ （正确答案：a(j) Mod 5=0）解析：