1、二级 VISUAL+BASIC 笔试 384 及答案解析(总分：98.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.为了在列表框中使用 Ctrl 和 Shift 键进行多个列表项的选择，应将列表框的 Multiselect 属性设置为（分数：2.00）A.0B.1C.2D.32.设用复制、粘贴的方法建立了一个命令按钮数组 Command1，以下对该数组的说法错误的是（分数：2.00）A.命令按钮的所有 Caption 属性都是 Command1B.在代码中访问任意一个命令按钮只需使用名称 Command1C.命令按钮的大小都相同D.命令按钮共享相同的事件过程
2、3.以下各项中，Visual Basic 不能接收的图形文件是（分数：2.00）Aico 文件BjpS 文件Cpsd 文件Dbmp 文件4.要使菜单项 MenuOne 在程序运行时失效，使用的语句是（分数：2.00）A.MenuOnVisible=TrueB.MenuOnVisible=FalseC.MenuOnEnabled=TrueD.MenuOnEnabled=False5.下面的数组声明语句中正确的是（分数：2.00）A.Dim gg1,5 As StringB.LabelBackStyle=1C.Dim gg(1 To 5) As StringD.Dim gg1:5,1:5As St
3、ring6.阅读下列程序： PrivateSubCommand1_Click() Dim i As Integer，k As Integer k=2 For i=1 To 3 Print Fun(k)； Next End Sub Function Fun(j As Integer) Static b a=0 a=a+1 b=b+1 Fun=a*b+j End Function 程序运行后，单击命令按钮输出结果是（分数：2.00）A.234B.345C.567D.3567.当文本框 ScrollBars 属性设置了非零值，却没有效果，原因是（分数：2.00）A.文本框中没有内容B.文本框的 Mu
4、hiLine 属性为 FalseC.文本框的 MultiLine 属性为 TrueD.文本框的 Locked 属性为 True8.数据结构中，与所使用的计算机无关的是数据的（分数：2.00）A.存储结构B.物理结构C.逻辑结构D.物理和存储结构9.下列叙述中正确的是（分数：2.00）A.程序执行的效率与数据的存储结构密切相关B.程序执行的效率只取决于程序的控制结构C.程序执行的效率只取决于所处理的数据量D.以上 3 种说法都不对10.下列语句中，获得列表框 List1 中项目个数的语句是（分数：2.00）A.x=List1.ListCountB.x=ListCountC.x=List1.Lis
5、tlndexD.x=ListIndex11.树是节点的集合，它的根节点数目是（分数：2.00）A.有且只有 1B.1 或多于 1C.0 或 1D.至少 212.设在窗体上有个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Const Alt=4 Const Key_F2=d(3) End Sub（分数：2.00）A.abB.bdC.acD.出错23.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Comm
6、and1_Click() CommonDialog1.Flags=vbOFNHideReadOnly CommonDialog1.Filter=“All Files(*.*)|*.*|Text Files(*.txt)|*.txt CommonDialog1.FiherIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（分数：2.00）A.All Files(*.*)B.Text Files(*.*)C.*.txtD.All
7、Files(*.*)|Text Files(*.*)24.数据库、数据库系统和数据库管理系统之间的关系是（分数：2.00）A.数据库包括数据库系统和数据库管理系统B.数据库系统包括数据库和数据库管理系统C.数据库管理系统包括数据库和数据库系统D.3 者没有明显的包含关系25.用于获得字符串 S 最左边 4 个字符的函数是（分数：2.00）A.Left(S，4)B.Left(1，4)C.Leftstr(D.Leftstr(3，4)26.如果在 C 盘当前文件下已存在名称为 studata.dat 的顺序文件，那么执行语句 Open “C:/studata.dat“ For Append As#1
8、 之后，将（分数：2.00）A.删除文件中原有内容B.保留文件中原有内容，并在文件尾填加新内容C.保留文件中原有内容，并在文件头填加新内容D.以上均不对27.软件是指（分数：2.00）A.程序B.程序和文档C.算法加数据结构D.程序、数据与相关文档的完整集合28.执行下列程序后，鼠标单击窗体，输出结果为 Private Sub Form_Click() Print “Click“； End Sub Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Print “Donw“
9、 End Sub Private Sub Form_MouseUp(ButtonAs Integer，Shift As Integer，X As Single，Y As Single) Print “Up“ End Sub（分数：2.00）A.DownUpClickB.ClickDownUpC.DownClickUpD.UpDownCliek29.下列有关数据库的描述正确的是（分数：2.00）A.数据库是一个 DBF 文件B.数据库是一个关系C.数据库是一个结构化的数据集合D.数据库是一组文件30.在运行阶段，要在文本框 Text1 获得焦点时选中文本框中所有内容，对应的事件过程是 ) Pri
10、vate Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub ) Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub ) Private Sub Text1_Change() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub ) Private Sub Text1_SetFocus() Text.SelSta
11、rt=0 Text1.SelLength=Len(Text1.Text) End Sub（分数：2.00）A.B.C.D.31.窗体上有 Text1、Text2 两个文本框及一个命令按钮 Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=Fun2(Fun1(x),y) Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer) As Integer x=x+y:y=x+y Fun1=x+y
12、End Function Private Function Fun2(x As Integer，y As Integer) As Integer Fun2=2*x+y End Function 当单击 1 次和单击 2 次命令按钮后，文本框 Text1 和 Text2 内的值分别是 ) 2 4 2 4 ) 2 4 4 8 ) 10 10 58 58 ) 4 4 8 8（分数：2.00）A.B.C.D.32.下列代码运行后输出结果是 efstr B-E rivate Sub Command1_Click() $=“123“ =“456“ rint B+C$ nd Sub（分数：2.00）A.12
13、3456B.“123456“C.123+“456“D.显示出错信33.线性表的顺序存储结构和线性表的链式存储结构分别是（分数：2.00）A.顺序存取的存储结构、顺序存取的存储结构B.随机存取的存储结构、顺序存取的存储结构C.随机存取的存储结构、随机存取的存储结构D.任意存取的存储结构、任意存取的存储结构34.以下不属于对象的基本特点的是（分数：2.00）A.分类性B.多态性C.继承性D.封装性35.下列程序段的结果为 A=“ABBACDDCBA“ For i=6 To 2 Step-2 X=Mid(A,i,i) Y=Left(A,i) Z=Right(A,i) Z=X.dib图标文件 .ico
14、;.curWindows 图元文件 .wmf;.emfGIF 格式图形压缩文件 .gifJPEG 格式图形压缩文件 .jpg从上表可知，psd 文件不是 Visual Basic 所支持的图形文件。4.要使菜单项 MenuOne 在程序运行时失效，使用的语句是（分数：2.00）A.MenuOnVisible=TrueB.MenuOnVisible=FalseC.MenuOnEnabled=TrueD.MenuOnEnabled=False 解析：解析 Enabled 属性：返问或设置一个值，该值用来确定一个窗体或控件是否能够对用户产生的事件作出反应，Visible 属性：用来设置窗体或控件的可
15、见性。5.下面的数组声明语句中正确的是（分数：2.00）A.Dim gg1,5 As StringB.LabelBackStyle=1C.Dim gg(1 To 5) As String D.Dim gg1:5,1:5As String解析：解析 声明数组时，数组的默认下界为 0，如果希望下界不是 0，可以用关键字 To 规定下界。如选项 C 中，数组 gg 的索引从 1 到 5。6.阅读下列程序： PrivateSubCommand1_Click() Dim i As Integer，k As Integer k=2 For i=1 To 3 Print Fun(k)； Next End S
16、ub Function Fun(j As Integer) Static b a=0 a=a+1 b=b+1 Fun=a*b+j End Function 程序运行后，单击命令按钮输出结果是（分数：2.00）A.234B.345 C.567D.356解析：解析 在此题中，被调过程是一个函数过程，它有一个形式参数 j，在被调过程声明中，定义了一个参数 a，初值为 0，一个静态变量 b。语句 a=a+1 和 b=b+1 分别使 a 和 b 各增加 1，然后返回 H 的值，因为 b 是静态变量，所以每次调用同一个参数 k 时，b 会保留前次的数值，使输出结果变化，否则每次输出的结果都将是一样的。根据
17、分析，第一次调用时 a=1，b=1，Fun=3；第二次调用时 a=1，b=2，Fun=4；第三次调用时 a=1，b=3，Fun=5。所以最后的输出结果是 345。7.当文本框 ScrollBars 属性设置了非零值，却没有效果，原因是（分数：2.00）A.文本框中没有内容B.文本框的 MuhiLine 属性为 False C.文本框的 MultiLine 属性为 TrueD.文本框的 Locked 属性为 True解析：解析 只有当 Multiline 属性被设置为 True 时，才能用 ScrollBons 属性在文本框中设置滚动条。8.数据结构中，与所使用的计算机无关的是数据的（分数：2.
18、00）A.存储结构B.物理结构C.逻辑结构 D.物理和存储结构解析：解析 数据结构概念一般包括数据的逻辑结构、存储结构及数据上的运算集合等。数据的逻辑结构只抽象地反映数据元素之间的逻辑关系，而不管它在计算机中的存储形式。9.下列叙述中正确的是（分数：2.00）A.程序执行的效率与数据的存储结构密切相关 B.程序执行的效率只取决于程序的控制结构C.程序执行的效率只取决于所处理的数据量D.以上 3 种说法都不对解析：解析 程序执行的效率与很多因素有关，如数据的存储结构、程序所处理的数据量、程序所采用的算法等。顺序存储结构在数据插入和删除操作上的效率比链式存储结构的效率低。10.下列语句中，获得列表
19、框 List1 中项目个数的语句是（分数：2.00）A.x=List1.ListCount B.x=ListCountC.x=List1.ListlndexD.x=ListIndex解析：解析 List 控件的 ListCount 属性返回列表部分项目的个数。11.树是节点的集合，它的根节点数目是（分数：2.00）A.有且只有 1B.1 或多于 1C.0 或 1 D.至少 2解析：解析 树是 N(N0)个节点的有限集合，当 N=0 时称为空树，空树没有根节点，即根节点的个数为 0，非空树有且只有一个根节点，所以树的根节点数目为 0 或 1。12.设在窗体上有个文本框，然后编写如下的事件过程：
20、Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Const Alt=4 Const Key_F2=d(3) End Sub（分数：2.00）A.abB.bd C.acD.出错解析：解析 在 Visual Basic 中，一般可以用 Array 函数解决数值初始值的输入，格式为： 数组名=Array(要输入的值) 本题中声明的数组 d，默认下界为 0，即数组第一个元素为 d(0) ，所以当程序调用Array 函数后，d(0) =a，d(1)=b，d(2)= c，d(3)=d。不难看出，最后 Print 语句要输出的是
21、d(1)、d(3)的值，即 b、d。所以选项 B)正确。23.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnly CommonDialog1.Filter=“All Files(*.*)|*.*|Text Files(*.txt)|*.txt CommonDialog1.FiherIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End S
22、ub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（分数：2.00）A.All Files(*.*) B.Text Files(*.*)C.*.txtD.All Files(*.*)|Text Files(*.*)解析：解析 通用对话框控件的 CommonDialog1 的 Filter 属性用来指定在对话框中显示的文件类型。利用该属性可以设置多个文件类型，供用户在对话框的“文件类型”的下拉列表中选择。Filter 的属性值由一对或多对文本字符串组成，每对字符串用管道符“1”隔开，在管道符“|”前面的部分称为描述，后面的部分一般为通配符和文件扩展名，称为“
23、过滤器”。如“*.txt”等，各对字符串之间也用管道符隔开。其格式如下： 窗体.对话框名.Filter=“描述符 1|过滤器 1|描述符 2|过滤器 2“ 如果省略窗体，则为当前窗体。本题执行语句后，可以在文件类型栏内通过下拉列表选择所要显示的文件类型，而最初默认显示的文件类型(过滤器)可以由 FiherIndex 属性来指定，该属性是一个整数。用 Filter 属性设置多个过滤器后，每个过滤器都有一个值，第 1 个过滤器的值为 1，第 2 个过滤器的值为 2用 FiherIndex 属性可以指定作为默认显示的过滤器，本题中的值是 1，所以显示 All Files(*.*) 。24.数据库、数
24、据库系统和数据库管理系统之间的关系是（分数：2.00）A.数据库包括数据库系统和数据库管理系统B.数据库系统包括数据库和数据库管理系统 C.数据库管理系统包括数据库和数据库系统D.3 者没有明显的包含关系解析：解析 数据库系统(Database System，简称 DBS)包括数据库(Database，简称 DB)和数据库管理系统(Database Management System，简称 DBMS)。25.用于获得字符串 S 最左边 4 个字符的函数是（分数：2.00）A.Left(S，4) B.Left(1，4)C.Leftstr(D.Leftstr(3，4)解析：解析 字符串截取函数，格
25、式是：Left$(字符串，n)。返回“字符串”的前 n 个字符。26.如果在 C 盘当前文件下已存在名称为 studata.dat 的顺序文件，那么执行语句 Open “C:/studata.dat“ For Append As#1 之后，将（分数：2.00）A.删除文件中原有内容B.保留文件中原有内容，并在文件尾填加新内容 C.保留文件中原有内容，并在文件头填加新内容D.以上均不对解析：解析 Open 语句对文件“输入/输出”操作，语法如下： Open文件名For模式As#文件号 其中模式为 Append，表示以追加数据的方式在文尾写数据。27.软件是指（分数：2.00）A.程序B.程序和文
26、档C.算法加数据结构D.程序、数据与相关文档的完整集合 解析：解析 软件是程序、数据与相关文档的集合。相对于计算机硬件而言，软件是逻辑产品而不是物理产品，是计算机的无形部分。28.执行下列程序后，鼠标单击窗体，输出结果为 Private Sub Form_Click() Print “Click“； End Sub Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Print “Donw“ End Sub Private Sub Form_MouseUp(ButtonAs
27、 Integer，Shift As Integer，X As Single，Y As Single) Print “Up“ End Sub（分数：2.00）A.DownUpClick B.ClickDownUpC.DownClickUpD.UpDownCliek解析：解析 鼠标单击时，依次引发 MouseDown、MouseUp 和 Click 事件，即 Click 事件包含鼠标按下和放开事件。29.下列有关数据库的描述正确的是（分数：2.00）A.数据库是一个 DBF 文件B.数据库是一个关系C.数据库是一个结构化的数据集合 D.数据库是一组文件解析：解析 数据库(DataBase，简称 D
28、B)是数据的集合，它具有统一的结构形式并存放于统一的存储介质内，是多种应用数据的集成，可被各个应用程序所共享。数据库中的数据具有“集成”、“共享”的特点。30.在运行阶段，要在文本框 Text1 获得焦点时选中文本框中所有内容，对应的事件过程是 ) Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub ) Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub
29、) Private Sub Text1_Change() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub ) Private Sub Text1_SetFocus() Text.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub（分数：2.00）A. B.C.D.解析：解析 GotFocus 事件过程用以指定当控件或窗体首次接收焦点时发生的操作。属性：SelStart返回或设置所选择的文本的起始点。如果没有文本被选中，则指出插入点的位置；SelLength返回或设置所选择的字符数
30、。31.窗体上有 Text1、Text2 两个文本框及一个命令按钮 Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=Fun2(Fun1(x),y) Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer) As Integer x=x+y:y=x+y Fun1=x+y End Function Private Function Fun2(x As Integer，y As Integer
31、) As Integer Fun2=2*x+y End Function 当单击 1 次和单击 2 次命令按钮后，文本框 Text1 和 Text2 内的值分别是 ) 2 4 2 4 ) 2 4 4 8 ) 10 10 58 58 ) 4 4 8 8（分数：2.00）A.B.C. D.解析：解析 函数 Fun1 和 Fun2 都是传值调用，其中，Text1 文本框中的内容使用了嵌套调用。实参 X是过程变量，实参 Y 是窗体变量。32.下列代码运行后输出结果是 efstr B-E rivate Sub Command1_Click() $=“123“ =“456“ rint B+C$ nd Su
32、b（分数：2.00）A.123456B.“123456“C.123+“456“D.显示出错信 解析：解析 “+”也可以用做字符串连接符，它可以把两个字符串连接在一起，生成一个较长的字符串。33.线性表的顺序存储结构和线性表的链式存储结构分别是（分数：2.00）A.顺序存取的存储结构、顺序存取的存储结构B.随机存取的存储结构、顺序存取的存储结构 C.随机存取的存储结构、随机存取的存储结构D.任意存取的存储结构、任意存取的存储结构解析：解析 顺序存储结构中，数据元素存放在一组地址连续的存储单元中，每个数据元素地址可通过公式 LOC(a1)=LOC(a1)+(i-1)L 计算得到，从而实现了随机存取
33、。对于链式存储结构，要对某节点进行存取，得从链的头指针指向的节点开始，这是一种顺序存取的存储结构。34.以下不属于对象的基本特点的是（分数：2.00）A.分类性B.多态性C.继承性 D.封装性解析：解析 对象的基本特点：标识唯一性、分类性、多态性、封装性和模块独立性。35.下列程序段的结果为 A=“ABBACDDCBA“ For i=6 To 2 Step-2 X=Mid(A,i,i) Y=Left(A,i) Z=Right(A,i) Z=X&Y&Z Next Print Z（分数：2.00）A.ABCB.AABAABC.BBABBA D.ABBABA解析：解析 Right(字符串，n)：返回
34、字符串的最后 n 个字符。 Mid(字符串，p，n)：从第 p 个字符开始，向后截取 n 个字符。p 和 n 都是算术表达式。 Left(字符串，n)：返回“字符串”的前 n 个字符。 “&”：字符串连接运算符，将两个字符串按顺序连接起来。 分析程序：因为每次循环，z 都被重新赋值，所以只需要跟踪最后一次循环即可得出最终结果，最后一次循环时，i=2 X=Mid(“ABBACDDCBA“，2，2) =“BB“ Y=Left(“ABBACDDCBA“，2) =“AB“ X=Right(“ABBACDDCBA“，2) =“BA“ Z=X&Y&Z=“BBABBA“二、B填空题/B(总题数：13，分数：
35、28.00)36.需求分析的最终结果是产生 1。（分数：2.00）填空项 1:_ （正确答案：需求规格说明书）解析：解析 软件需求规格说明书是需求分析阶段的最后成果，是软件开发中的重要文档之一。需求规格说明书包括正确性、无歧义性、完整性、可验证性、一致性、可理解性、可修改性和可追踪性等。37.为了便于对照检查，测试用例应由输入数据和预期的 1 两部分组成。（分数：2.00）填空项 1:_ （正确答案：输出结果）解析：解析 测试用例(Text Case)是为测试设计的数据。测试用例由测试输入数据和与之对应的预期输出结果两部分组成。38.数据结构分为逻辑结构和存储结构，线性链表属于 1。（分数：2
36、.00）填空项 1:_ （正确答案：存储结构）解析：解析 数据的逻辑结构是指反映数据元素之间逻辑关系的数据结构；数据的存储结构是指数据的逻辑结构在计算机存储空间中的存放形式。在数据的存储结构中，不仅要存放各数据元素的信息，还需要存放各数据元素之间的前后件关系的信息。39.某二叉树中度为 2 的节点有 18 个，则该二叉树中有 1 个叶子节点。（分数：2.00）填空项 1:_ （正确答案：19）解析：解析 在任意一棵二叉树中，度为 0 的节点(即叶子节点)总是比度为 2 的节点多一个。40. 1 是数据库设计的核心。（分数：2.00）填空项 1:_ （正确答案：数据模型）解析：解析 数据模型是对
37、客观事物及联系的数据描述，它反映了实体内部及实体与实体之间的联系。因此，数据模型是数据库设计的核心。41.在窗体上面有一个列表，然后编写如下两个事件过程： Private Sub Form_Click() List1.RemoveItem1:List1.RemoveItem2 List1.RemoveItem3 End Sub Private Sub Form_Load() List1.AddItem“ItemA“:List1.Addhem“ItemB“ List1.AddItem“ItemC“:List1.Addhem“ItemD“ List1.AddItem“ItemE“ End Sub
38、运行上面的程序，然后单击窗体，列表框中显示的项目是_。（分数：2.00）填空项 1:_ （正确答案：ItemA）解析：ItemE 解析 在列表框中删除项目时，“索引值”可以指定插入项在列表框中的位置，表中的项目从 0 开始计数，则题目中是删除第 2，3，4 项，列表框中显示的项目是“ItemA”和“ItemE”。42.控件数组的名字由 Name 属性指定，而数组中的每个元素由 1 属性指定。（分数：2.00）填空项 1:_ （正确答案：Index）解析：解析 控件数组中的所有控件共用一个名称，即 Name 属性，并通过 Index 属性来区别每个控件。43.为了能自动放大或缩小图像框中的图形与
39、图像框的大小相适应，必须把该图片框的 Stretch 属性设置为 1。（分数：2.00）填空项 1:_ （正确答案：True）解析：解析 当图像框的 Stretch 属性设为 True 时，图像的大小随图像框的大小改变而改变；设为Flase 时，图像框的大小随图像的大小而改变。44.下列程序的功能是：将数据 1，2，10 写入顺序文件 Base.txt 中，请填空。 Private Sub Form_Click() Dim i As Integer Open_As#1 For i=1 To 10 Print #1，i Next Close #1 End Sub（分数：2.00）填空项 1:_
40、（正确答案：“Base.txt“ For Output）解析：解析 本题中以输出方式来打开文件，故要用“Open “Base.txt“ For Output As#1”语句；向文件中写入数据用 Print 语句。45.下列程序的功能是：将数据 1，2，8 写入顺序文件 Num.txt 中，请补充完整。 Private Sub Form_Click() Dim i As Integer Open “Num.txt“ For Output As#1 For i=1 To 8 _ Next Close #1 End Sub（分数：2.00）填空项 1:_ （正确答案：Print#1，i）解析：解析
41、使用 Print 语句可以将数据写入顺序文件中。46.执行下面程序，第一行输出结果是U 11 /U，第二行输出结果是U 12 /U。 Option Explicit Private Sub Form_Click() Dim A As Integer A=2 Call Sub1(A) End Sub Private Sub1(x As Integer) x=x*2+1 If x10 Then Call Sub1(x) End If x=x*2+1 Print x End Sub（分数：4.00）填空项 1:_ （正确答案：11 23）解析：12 47 解析 递归是一种十分有用的程序设计技术。递归
42、过程是在过程定义中调用(或间接调用)本过程的过程。递归过程的关键部分就是要子过程函数 Sub1()被调用了多少次。当 x=2 时调用了第一次，当 x=5 时调用了第二次，当 x=11 时不再调用，退出之前分别按 x=23 和 x=47 输出。47.能够将文本框控件隐藏起来的属性是 1。（分数：2.00）填空项 1:_ （正确答案：Visible）解析：解析 Visible 为隐藏属性，Hide 为隐藏方法。48.下面程序的功能是产生 10 个小于 100(不含 100) 的随机正整数，并统计其中 5 的倍数所占比例，但程序不完整，请补充完整。 Sub PR() Randomize Dim a(
43、10) For i=1 To 10 a(i) =Int(U 14 /U)If U15 /UThen k=k+1 Print a(j) Next j Print Print k/10 End Sub（分数：2.00）填空项 1:_ （正确答案：14(Rnd*99) +1）解析：15a(i) mod 5 解析 产生 10 个小于 100(不含 100) 的随机正整数，需要用到随机函数Rnd，Rnd 函数是随机生成一个小于 1 的正数随数，所以根据题意，填入代码为(Rnd*99)+1，而后面加上1 是为了能保证取到 99。根据题意可知，k 表示 a(i)中 5 的倍数的个数，只有当 a(i) mod 5=0 时，k=k+1。
