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

1、二级 VISUAL+BASIC 笔试-161 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在深度为 5 的满二叉树中，叶子结点的个数为_。（分数：2.00）A.32B.31C.16D.152.假定 Picture1 和 Text1 分别为图片框和文本框的名称，下列不正确的语句是_。（分数：2.00）A.Print 25B.Picture1.Print 25C.Text1.Print 25D.Text1.Print 253.以下 Case 语句中错误的是_。（分数：2.00）A.Case 0 To8B.Case Is 5C.Case Is

2、 0 And Is 6D.Case 1， 3， Is 54.为了同时改变一个活动控件的高度和宽度，正确的操作是_。（分数：2.00）A.拖拉控件 4 个角上的某个小方块B.只能拖拉位于控件右下角的小方块C.只能拖拉位于控件左下角的小方块D.不能同时改变控件的高度和宽度5.希尔排序法属于_类型的排序法。（分数：2.00）A.交换类排序法B.插入类排序法C.选择类排序法D.建堆排序法6.设 a = 3，b = 10，c = 6，以下表达式的值是_。a b And (Not bc) Or cA span（分数：2.00）A.1B.-1C.TureD.False7.以下语句的输出结果是_。a = Sq

3、r(3)Print Format(a，“$#.#“)（分数：2.00）A.$1.732B.$1.732C.$1732D.$0001.7328.软件测试的过程是_。.集成测试.验收测试.系统测试.单元测试（分数：2.00）A.、B.、C.、D.、9.为了同时改变一个活动控件的高度和宽度，正确的操作是_。（分数：2.00）A.拖拉控件 4 个角上的某个小方块B.只能拖拉位于控件右下角的小方块C.只能拖拉位于控件左下角的小方块D.不能同时改变控件的高度和宽度10.Load 事件是在窗体被装入工作区时_触发的事件。（分数：2.00）A.用户B.程序员C.手工D.自动11.一个供应商可供应多种零件，而一

4、种零件可由多个供应商供应，则实体供应商与零件之间的联系是_。（分数：2.00）A.一对一B.一对多C.多对一D.多对多12.有下列程序：Private Sub Command1_Click()x$ = “Nanchang“y$ = “Beijing“z$ = “Nanjing“z$ = InStr(Left(x$， 3)+ Right(y$， 4)， z$)Print z$End Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.0B.1C.3D.413.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下代码：Option Base 1Private

5、Sub Command1_Click( )d = 0 : c = 10x = Array(10, 12, 21, 32, 24)For i = 1 To 5If x(i) c Thend = d + x(i)c = x(i)Elsed = d - cEnd IfNext iPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为_。（分数：2.00）A.89B.99C.23D.7714.算法的计算量的大小称为算法的_。（分数：2.00）A.现实性B.难度C.复杂性D.效率15.下列打开“代码窗口“的操作中不正确的是_。（分数：2.00）A.按 F4 键B.单击“工程资源

6、管理器“窗口中“查看代码“按钮C.双击已建立好的控件D.执行“视图“菜单中“代码窗口“命令16.执行下列语句后，显示输入对话框，此时如果单击“确定“按钮，则变量 s1 的内容是_。s1 = InputBox(“请输入字符串“， “字符串对话框“， “字符串“)（分数：2.00）A.0B.请输入字符串C.字符串对话框D.字符串17.在调用含有对象的过程时，对象只能通过_传送。（分数：2.00）A.传地址方式B.传值方式C.数组方式D.变量方式18.以下关系表达式中，其值为 False 的是_。（分数：2.00）A.“XYZ“XYz“B.“VisualBasic“ = “visualbasic“C

7、.“the“there“D.“Integer“Int“19.为了使列表框中的项目分为多列显示，需要设置的属性为_。（分数：2.00）A.ColumnsB.StyleC.ListD.MultiSelect20.序言性注释的主要内容不包括_。（分数：2.00）A.模块的接口B.模块的功能C.程序设计者D.数据的状态21.链表适用于_查找。（分数：2.00）A.顺序B.二分法C.顺序，也能二分法D.随机22.以下关于函数过程的叙述中，正确的是_。（分数：2.00）A.函数过程形参的类型与函数返回值的类型没有关系B.在函数过程中，过程的返回值可以有多个C.当数组作为函数过程的参数时，既能以传值方式传递

8、，也能以传地址方式传递D.如果不指明函数过称参数的类型，则该参数没有数据类型23.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()s = 0For i = 1 To 13x = i * i - 1If x Mod 3 = 0 Then s = s + 1Next iPrint sEnd Sub程序运行后，单击命令按钮，则窗体中显示的内容是_。（分数：2.00）A.1B.5C.27D.4524.在窗体上画两个名称分别为 Text1、Text2 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程

9、：Private Sub Command1_Click()Dim x As Integer， n As Integerx = 1n = 0DoW hilex 20x = x * 3n = n + 1LoopText1.Text = Str(x)Text2.Text = Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是_。（分数：2.00）A.15 和 1B.27 和 3C.195 和 3D.600 和 425.假定有一菜单项，名为 MenuItem，为了运行时使该菜单项失效(变灰)，应使用的语句为_。（分数：2.00）A.MenuItem.Enabled=Fal

10、seB.MenuItem.Enabled=TrueC.MenuItem.Visible=FalseD.MenuItem.Visible=True26.在数据流图中，(椭圆)代表_。（分数：2.00）A.源点B.终点C.加工D.模块27.阅读程序：Private Sub Form_Click()Dim i As Integer， sum As IntegerFor i = 2 To 10If i Mod 2 0 ThenPrint i;Elsesum = sum + iEnd IfNext iPrint sumEnd Sub程序运行后，单击窗体，在窗体上的输出结果是_。（分数：2.00）A.3

11、5 7 9 30B.1 3 5 7 9C.2 4 6 8 20D.11 15 17 19 2028.使用 Do while 循环从打开的文件中逐条读取记录。以下能够正确读取数据的程序段是_。（分数：2.00）A.Open “c:/File1.txt“ For Input As #1Do While Not EOF()Line Input #1， strLineLoopB.Open “c:/File1.txt“ For Input As #1Do While Not EOF(#1)Line Input #1， strLineLoopC.FileNo = FreeFileOpen FileNo F

12、or Input As #1Do While Not EOF(FileNo)Line Input #1， strLineLoopD.FileNo = FreeFileOpen FileNo For Input As #1Do While Not EOF(#FileNo)Line Input #1， strLineLoop29.假定窗体的名称为 Form1，对该窗体编写如下代码：Private Sub Form_Load()Form1.Caption = “计算机“ Me.Caption = “等级“Caption = “考试“End Sub程序运行后，窗体的标题是_。（分数：2.00）A.计算

13、机B.等级C.考试D.Form130.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a = 2For i = 1 To 3Call fun1(i, a)Next ix = i + 2Print x; aEnd SubPrivate Sub fun1(n, m)m = m + n * 2n = n + mEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.1 5B.4 5C.8 4D.3 431.数据的逻辑独立性是指_。（分数：2.00）A.存储结构与物理结构的逻辑独立性B.数据

14、与存储结构的逻辑独立性C.数据与程序的逻辑独立性D.数据元素之间的逻辑独立性32.设栈 S 和队列 Q 的初始状态为空。元素 a、b、c、d、e、f 依次通过栈 S，并且一个元素出栈后即进入队列 Q，若出队的顺序为 b、d、c、f、e、a，则栈 S 的容量至少应该为_。（分数：2.00）A.3B.4C.5D.633.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim m As Integer, i As Integer, x(3)As IntegerFor i = 0 To 3: x(i)= i: Next

15、iFor i = 1 To 2: Call sub1(x, i): Next iFor i = 0 To 3: Print x(i);: Next iEnd SubPrivate Sub sub1(a( )As Integer, k As Integer)Dim j As IntegerDoa(k)= a(k)+ a(k + 1)j = j + 1Loop While j 2End Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.0 3 7 5B.0 1 2 3C.3 2 4 5D.0 5 8 334.函数 Int(Rnd * 6+1)的取值范围是_。（分数：2.

16、00）A.从 1 到 7 共 7 个整数B.从 0 到 7 共 8 个整数C.从 1 到 6 共 6 个整数D.从 0 到 6 共 7 个整数35.下列程序执行后，在 Ctrl 和 Alt 这两个键都被按下的同时，再在文本框中输入“a“，输出结果为_。Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If Shift 0 And KeyCode = Asc(“A“)ThenPrint KeyCode + ShiftEnd IfEnd Sub（分数：2.00）A.65B.71C.0D.出错二、填空题(总题数：13，分数：

17、30.00)36.在单链表中，要删除一个指定的结点，必须要找到该结点的 1。（分数：2.00）填空项 1:_37.假设一棵二叉树的后序遍历序列为 DGJHEBIFCA，中序遍历序列为 DBGEHJACIF，则其前序遍历序列为 1。（分数：2.00）填空项 1:_38.类是具有共同属性、共同操作方法的对象的集合，所以类是对象的 1。（分数：2.00）填空项 1:_39.软件工程概念的出现源自 1。（分数：2.00）填空项 1:_40.数据库三级模式体系结构的划分，有利于保持数据库的 1。（分数：2.00）填空项 1:_在属性窗口中，属性列表可以按两种顺序排列，这两种顺序是 (6) 和 (7) 。

18、（分数：4.00）填空项 1:_填空项 1:_41.控件和窗体的 Name 属性只能通过属性窗口设置，不能在 1 期间设置。（分数：2.00）填空项 1:_42.为了在运行时把“d:/pic“文件夹下的图形文件 a.jpg 装入图片框 Picture1，所使用的语句为 1。（分数：2.00）填空项 1:_43.编写程序，当按下某个键时，在窗体上分别以十六进制和八进制形式输出该键的 KeyCode 码。请完善下列程序。Private Sub Form_KeyDown(KeyCode As Integer， Shift As Integer)Print Chr(KeyCode)Print _Pri

19、nt“八进制 KeyCode 码是“; Oct(KeyCode)End Sub（分数：2.00）填空项 1:_44.假定有一个文本框，其名称为 Text1，为了使该文本框具有焦点，应执行的语句是 1。（分数：2.00）填空项 1:_45.在 3 种不同类型的组合框中，只能选择而不能输入数据的组合框是 1。（分数：2.00）填空项 1:_46.当下列程序运行，单击窗体后，分别输入 72 和 24，信息框上显示的结果是_。Private Sub Form_Click( )Dim x As Integer， y As Integerx = Val(InputBox(“输入整数 72“)y = Val

20、(InputBox(“输入整数 24“)z = fun1(x， y)MsgBox Str(z)End SubPrivate Function fun1(ByVal a As Integer， ByVal b As Integer)As IntegerDor = a Mod ba = bb = rLoop Until r = 0fun1 = aEnd Function（分数：2.00）填空项 1:_以下程序的功能是，产生 10 个 01000 的随机整数，放入数组 Arr 中，然后输出其中的最大值。请填空。Option Base 1Private Sub Form_Click()Dim Arr(

21、10)As IntegerDim Max As IntegerRandomizeFor i = 1 To 10Arr(i)= Int(Rnd * 1000)Next iMax = (14) For i = 2 To 10If (15) ThenMax = Arr(i)End IfNext iPrint MaxEnd Sub（分数：4.00）填空项 1:_填空项 1:_二级 VISUAL+BASIC 笔试-161 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在深度为 5 的满二叉树中，叶子结点的个数为_。（分数：2.00）A.32B.31C

22、.16 D.15解析：2.假定 Picture1 和 Text1 分别为图片框和文本框的名称，下列不正确的语句是_。（分数：2.00）A.Print 25B.Picture1.Print 25C.Text1.Print 25 D.Text1.Print 25解析：3.以下 Case 语句中错误的是_。（分数：2.00）A.Case 0 To8B.Case Is 5C.Case Is 0 And Is 6 D.Case 1， 3， Is 5解析：4.为了同时改变一个活动控件的高度和宽度，正确的操作是_。（分数：2.00）A.拖拉控件 4 个角上的某个小方块 B.只能拖拉位于控件右下角的小方块C.

23、只能拖拉位于控件左下角的小方块D.不能同时改变控件的高度和宽度解析：5.希尔排序法属于_类型的排序法。（分数：2.00）A.交换类排序法B.插入类排序法 C.选择类排序法D.建堆排序法解析：6.设 a = 3，b = 10，c = 6，以下表达式的值是_。a b And (Not bc) Or cA span（分数：2.00）A.1B.-1C.TureD.False 解析：7.以下语句的输出结果是_。a = Sqr(3)Print Format(a，“$#.#“)（分数：2.00）A.$1.732B.$1.732 C.$1732D.$0001.732解析：8.软件测试的过程是_。.集成测试.验

24、收测试.系统测试.单元测试（分数：2.00）A.、B.、C.、 D.、解析：9.为了同时改变一个活动控件的高度和宽度，正确的操作是_。（分数：2.00）A.拖拉控件 4 个角上的某个小方块 B.只能拖拉位于控件右下角的小方块C.只能拖拉位于控件左下角的小方块D.不能同时改变控件的高度和宽度解析：10.Load 事件是在窗体被装入工作区时_触发的事件。（分数：2.00）A.用户B.程序员C.手工D.自动 解析：11.一个供应商可供应多种零件，而一种零件可由多个供应商供应，则实体供应商与零件之间的联系是_。（分数：2.00）A.一对一B.一对多C.多对一D.多对多 解析：12.有下列程序：Priv

25、ate Sub Command1_Click()x$ = “Nanchang“y$ = “Beijing“z$ = “Nanjing“z$ = InStr(Left(x$， 3)+ Right(y$， 4)， z$)Print z$End Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.0B.1 C.3D.4解析：13.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下代码：Option Base 1Private Sub Command1_Click( )d = 0 : c = 10x = Array(10, 12, 21, 32, 24)For

26、i = 1 To 5If x(i) c Thend = d + x(i)c = x(i)Elsed = d - cEnd IfNext iPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为_。（分数：2.00）A.89B.99C.23 D.77解析：14.算法的计算量的大小称为算法的_。（分数：2.00）A.现实性B.难度C.复杂性 D.效率解析：15.下列打开“代码窗口“的操作中不正确的是_。（分数：2.00）A.按 F4 键 B.单击“工程资源管理器“窗口中“查看代码“按钮C.双击已建立好的控件D.执行“视图“菜单中“代码窗口“命令解析：16.执行下列语句后，

27、显示输入对话框，此时如果单击“确定“按钮，则变量 s1 的内容是_。s1 = InputBox(“请输入字符串“， “字符串对话框“， “字符串“)（分数：2.00）A.0B.请输入字符串C.字符串对话框D.字符串 解析：17.在调用含有对象的过程时，对象只能通过_传送。（分数：2.00）A.传地址方式 B.传值方式C.数组方式D.变量方式解析：18.以下关系表达式中，其值为 False 的是_。（分数：2.00）A.“XYZ“XYz“B.“VisualBasic“ = “visualbasic“ C.“the“there“D.“Integer“Int“解析：19.为了使列表框中的项目分为多列

28、显示，需要设置的属性为_。（分数：2.00）A.Columns B.StyleC.ListD.MultiSelect解析：20.序言性注释的主要内容不包括_。（分数：2.00）A.模块的接口B.模块的功能C.程序设计者D.数据的状态 解析：21.链表适用于_查找。（分数：2.00）A.顺序 B.二分法C.顺序，也能二分法D.随机解析：22.以下关于函数过程的叙述中，正确的是_。（分数：2.00）A.函数过程形参的类型与函数返回值的类型没有关系 B.在函数过程中，过程的返回值可以有多个C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传地址方式传递D.如果不指明函数过称参数的类型，则该参

29、数没有数据类型解析：23.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()s = 0For i = 1 To 13x = i * i - 1If x Mod 3 = 0 Then s = s + 1Next iPrint sEnd Sub程序运行后，单击命令按钮，则窗体中显示的内容是_。（分数：2.00）A.1B.5 C.27D.45解析：24.在窗体上画两个名称分别为 Text1、Text2 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Cl

30、ick()Dim x As Integer， n As Integerx = 1n = 0DoW hilex 20x = x * 3n = n + 1LoopText1.Text = Str(x)Text2.Text = Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是_。（分数：2.00）A.15 和 1B.27 和 3 C.195 和 3D.600 和 4解析：25.假定有一菜单项，名为 MenuItem，为了运行时使该菜单项失效(变灰)，应使用的语句为_。（分数：2.00）A.MenuItem.Enabled=False B.MenuItem.Enable

31、d=TrueC.MenuItem.Visible=FalseD.MenuItem.Visible=True解析：26.在数据流图中，(椭圆)代表_。（分数：2.00）A.源点B.终点C.加工 D.模块解析：27.阅读程序：Private Sub Form_Click()Dim i As Integer， sum As IntegerFor i = 2 To 10If i Mod 2 0 ThenPrint i;Elsesum = sum + iEnd IfNext iPrint sumEnd Sub程序运行后，单击窗体，在窗体上的输出结果是_。（分数：2.00）A.3 5 7 9 30 B.1

32、 3 5 7 9C.2 4 6 8 20D.11 15 17 19 20解析：28.使用 Do while 循环从打开的文件中逐条读取记录。以下能够正确读取数据的程序段是_。（分数：2.00）A.Open “c:/File1.txt“ For Input As #1Do While Not EOF()Line Input #1， strLineLoopB.Open “c:/File1.txt“ For Input As #1Do While Not EOF(#1)Line Input #1， strLineLoop C.FileNo = FreeFileOpen FileNo For Inpu

33、t As #1Do While Not EOF(FileNo)Line Input #1， strLineLoopD.FileNo = FreeFileOpen FileNo For Input As #1Do While Not EOF(#FileNo)Line Input #1， strLineLoop解析：29.假定窗体的名称为 Form1，对该窗体编写如下代码：Private Sub Form_Load()Form1.Caption = “计算机“ Me.Caption = “等级“Caption = “考试“End Sub程序运行后，窗体的标题是_。（分数：2.00）A.计算机B.等

34、级C.考试 D.Form1解析：30.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a = 2For i = 1 To 3Call fun1(i, a)Next ix = i + 2Print x; aEnd SubPrivate Sub fun1(n, m)m = m + n * 2n = n + mEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.1 5B.4 5C.8 4 D.3 4解析：31.数据的逻辑独立性是指_。（分数：2.00）A.存储结构与物理结构的逻辑独立性

35、B.数据与存储结构的逻辑独立性C.数据与程序的逻辑独立性 D.数据元素之间的逻辑独立性解析：32.设栈 S 和队列 Q 的初始状态为空。元素 a、b、c、d、e、f 依次通过栈 S，并且一个元素出栈后即进入队列 Q，若出队的顺序为 b、d、c、f、e、a，则栈 S 的容量至少应该为_。（分数：2.00）A.3 B.4C.5D.6解析：33.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim m As Integer, i As Integer, x(3)As IntegerFor i = 0 To 3: x(

36、i)= i: Next iFor i = 1 To 2: Call sub1(x, i): Next iFor i = 0 To 3: Print x(i);: Next iEnd SubPrivate Sub sub1(a( )As Integer, k As Integer)Dim j As IntegerDoa(k)= a(k)+ a(k + 1)j = j + 1Loop While j 2End Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.0 3 7 5B.0 1 2 3C.3 2 4 5D.0 5 8 3 解析：34.函数 Int(Rnd * 6+

37、1)的取值范围是_。（分数：2.00）A.从 1 到 7 共 7 个整数B.从 0 到 7 共 8 个整数C.从 1 到 6 共 6 个整数 D.从 0 到 6 共 7 个整数解析：35.下列程序执行后，在 Ctrl 和 Alt 这两个键都被按下的同时，再在文本框中输入“a“，输出结果为_。Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If Shift 0 And KeyCode = Asc(“A“)ThenPrint KeyCode + ShiftEnd IfEnd Sub（分数：2.00）A.65B.71 C.

38、0D.出错解析：二、填空题(总题数：13，分数：30.00)36.在单链表中，要删除一个指定的结点，必须要找到该结点的 1。（分数：2.00）填空项 1:_ （正确答案：前件）解析：37.假设一棵二叉树的后序遍历序列为 DGJHEBIFCA，中序遍历序列为 DBGEHJACIF，则其前序遍历序列为 1。（分数：2.00）填空项 1:_ （正确答案：ABDEGHJCFI）解析：38.类是具有共同属性、共同操作方法的对象的集合，所以类是对象的 1。（分数：2.00）填空项 1:_ （正确答案：抽象）解析：39.软件工程概念的出现源自 1。（分数：2.00）填空项 1:_ （正确答案：软件危机）解析

39、：40.数据库三级模式体系结构的划分，有利于保持数据库的 1。（分数：2.00）填空项 1:_ （正确答案：数据独立性）解析：在属性窗口中，属性列表可以按两种顺序排列，这两种顺序是 (6) 和 (7) 。（分数：4.00）填空项 1:_ （正确答案：按字母序按分类序）解析：填空项 1:_ （正确答案：按分类序按字母序）解析：41.控件和窗体的 Name 属性只能通过属性窗口设置，不能在 1 期间设置。（分数：2.00）填空项 1:_ （正确答案：运行）解析：42.为了在运行时把“d:/pic“文件夹下的图形文件 a.jpg 装入图片框 Picture1，所使用的语句为 1。（分数：2.00）填

40、空项 1:_ （正确答案：Picture.Picture=LoadPicture (“d:/pic/a.jpg“)）解析：43.编写程序，当按下某个键时，在窗体上分别以十六进制和八进制形式输出该键的 KeyCode 码。请完善下列程序。Private Sub Form_KeyDown(KeyCode As Integer， Shift As Integer)Print Chr(KeyCode)Print _Print“八进制 KeyCode 码是“; Oct(KeyCode)End Sub（分数：2.00）填空项 1:_ （正确答案：Hex(KeyCode)）解析：44.假定有一个文本框，其名

41、称为 Text1，为了使该文本框具有焦点，应执行的语句是 1。（分数：2.00）填空项 1:_ （正确答案：Text1.SetFocus）解析：45.在 3 种不同类型的组合框中，只能选择而不能输入数据的组合框是 1。（分数：2.00）填空项 1:_ （正确答案：下拉式列表框）解析：46.当下列程序运行，单击窗体后，分别输入 72 和 24，信息框上显示的结果是_。Private Sub Form_Click( )Dim x As Integer， y As Integerx = Val(InputBox(“输入整数 72“)y = Val(InputBox(“输入整数 24“)z = fun

42、1(x， y)MsgBox Str(z)End SubPrivate Function fun1(ByVal a As Integer， ByVal b As Integer)As IntegerDor = a Mod ba = bb = rLoop Until r = 0fun1 = aEnd Function（分数：2.00）填空项 1:_ （正确答案：24）解析：以下程序的功能是，产生 10 个 01000 的随机整数，放入数组 Arr 中，然后输出其中的最大值。请填空。Option Base 1Private Sub Form_Click()Dim Arr(10)As IntegerDim Max As IntegerRandomizeFor i = 1 To 10Arr(i)= Int(Rnd * 1000)Next iMax = (14) For i = 2 To 10If (15) ThenMax = Arr(i)End IfNext iPrint MaxEnd Sub（分数：4.00）填空项 1:_ （正确答案：Arr(1)）解析：填空项 1:_ （正确答案：Arr(i)Max）解析：