1、二级 VISUAL+BASIC 笔试-307 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下面的属性中，用于自动调整图像框中图形大小的是( )。（分数：2.00）A.PictureB.CurrentYC.CurrentXD.Stretch2.在窗体上有若干控件，其中有一个名称为 Text1 的文本框。影响 Text1 的 Tab 顺序的属性是( )。（分数：2.00）A.TabStopB.EnabledC.VisibleD.Tablndex3.在窗体上画一个命令按钮，其名称为 Commandl，然后编写如下程序：Pfivate Sub
2、Commandl_Click()Dima(10) As IntegerDimx As IntegerFori=1 To 10a(i)=8+iNeXtX=2Print a(f(x)+x)End SubFunction f(X As Integer)X=X+3f=XEnd Function程序运行后，单击命令按钮，输出结果为( )。（分数：2.00）A.12B.15C.17D.184.下面的数组声明语句中正确的是( )。（分数：2.00）A.Dim gg1，5As StringB.Dim gg1 To 5，1 To 5As StringC.Dim gg(1 To 5)As StringD.Dim
3、gg1:5，1:5As String5.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是 ( )。（分数：2.00）A.冒泡排序为 n/2B.冒泡排序为 nC.快速排序为 nD.快速排序为 n(n-1)/26.在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress(keyascii as integer)End Sub若焦点位于文本框中，则能够触发 KeyPress 事件的操作是( )。（分数：2.00）A.单击鼠标B.双击文本框C.鼠标滑过文本框D.按下键盘上的某个键7.单击命令按钮时，下列程序的执行
4、结果为( )。Private Sub Commandl_Click()Dimx As Integer，y As Integerx=50:y=78CallPPP(x，y)Printx；yEnd SubPubfic Sub PPP(ByValnAsInteger，ByValm As Integer)n=n/10m=m/10End Sub（分数：2.00）A.08B.50 78C.450D.78 508.假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是( )。（分数：2.00）A.只保存窗体模块文件B.分别保存窗体模块、标准模块和工程
5、文件C.只保存窗体模块和标准模块文件D.只保存工程文件9.Visual Basic 为命令按钮提供的 Cancel 属性是( )。（分数：2.00）A.用来指定命令按钮是否为窗体的“取消”按钮B.用来指定命令按钮的功能是停止一个运行程序C.用来指定命令按钮的功能是关闭一个运行程序D.用来指定命令按钮的功能是中断一个程序的运行10.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是( )。（分数：2.00）A.ValueB.DefaultC.CancelD.Engbled11.以下能够正确计算 n!的程序是( )。（分数：2.00）A.B.C.D
6、.12.设 A=“12345678“，则表达式 Val(Left(A，4)+Mid(A，4，2)的值为( )。（分数：2.00）A.123456B.123445C.8D.613.在窗体上绘制一个名称为 Commandl 的命令按钮，然后编写如下程序：Option Base 1Private Sub Commandl_Click()Dim c As Integer,d As Integerd=0c=6x=Array(2，4，6，8，10，12)Fori=1 To 61fx(i)c Thend=d+x(i)c=x(i)Elsed=d-cEnd IfNextiPrint dEnd Sub程序运行后，
7、如果单击命令按钮，则在窗体上输出的内容为( )。（分数：2.00）A.10B.16C.12D.2014.下面四个语句中，输出逻辑为“真”的是( )。（分数：2.00）A.Print Not(3+54+6)B.Print21 And 32C.Print 12 Or 23D.Print Not(12)15.为了防止用户随意将光标置于控件上，应( )。（分数：2.00）A.将控件的 Tablndex 属性设置为 0B.将控件的 TabStop 属性设置为 TrueC.将控件的 TabStop 属性设置为 FalseD.将控件的 Enabled 属性设置为 False16.以下不属于 Visual B
8、asic 系统的文件类型是( )。（分数：2.00）ArrmBbatCvbgDvbp17.以下关于图片框控件的说法中，错误的是( )。（分数：2.00）A.可以通过 Print 方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用 Stretch 属性可以自动调整图片框中图形的大小18.为使图像框的大小自动适应图像的大小，则应( )。（分数：2.00）A.将其 AutoSize 属性值设置为 TrueB.将其 AutoSize 属性值设置为 FalseC.将其 Shape 属性值设置为 TrueD.将其 Stretch 属性值设置为 Fa
9、lse19.有如下程序：DefStr X-ZX=“123“Y=“456“，Z=X$+Y$Print ZSEnd运行后，输出结果是( )。（分数：2.00）A.显示出错信息B.123456C.“579“D.57920.要存放如下方阵的数据，在不浪费存储空间的基础上，应使用的声明语句是( )。（分数：2.00）A.DimA(9)As IntegerB.DimA(3，3)As IntegerC.DimA(-1 To 1,-3 To -1)As SingleD.DimA(-3 To-1，1 To 3)As Integer21.InputBox 函数的 4 个参数中，必选参数的作用是( )。（分数：2.
10、00）A.输出信息B.定义提示信息C.定义隐含信息D.定义输入的位置22.在 Visual Basic 中，组合框是文本框和( )特性的组合。（分数：2.00）A.复选框B.标签C.列表框D.目录列表框23.假设 x 的值为 5，则在执行以下语句时，其输出结果为“Ok“的 Select Case 语句是( )。（分数：2.00）A.B.C.D.24.产生10,37之间的随机整数的 VisualBasic 表达式是( )。（分数：2.00）A.Int(Rnd(1)*27)+10B.Int(Rnd(1)*28)+10C.Int(Rnd(1)*27)+11D.Int(Rnd(1)*28)+1125.
11、要使一个命令按钮成为图形命令按钮，则应设置的属性是( )。（分数：2.00）A.PictureB.StyleC.LoadPictureD.DisabledPicture26.若要获得滚动条的当前值，可访问的属性是( )。（分数：2.00）A.TextB.ValueC.MaxD.Min27.下列叙述中正确的是( )。（分数：2.00）A.软件交付使用后还需要进行维护B.软件一旦交付使用就不需要再进行维护C.软件交付使用后其生命周期就结束D.软件维护是指修复程序中被破坏的指令28.将调试通过的工程经“文件”菜单中的“生成 exe 文件”编译成为 exe 文件后，该可执行文件到其他机器上不能运行的主
12、要原因是( )。（分数：2.00）A.运行的机器上无 VB 系统B.缺少.fan 窗体文件C.该可执行文件有病毒D.以上原因都不对29.窗体上有两个名称分别为 Text1、Text2 的文本框，一个名称为 Commandl 的命令按钮。运行后的窗体外观如下图所示。（分数：2.00）A.Open“c:/Test29.dat“ForRandom As #1Put#1，1，pClose#1B.Open“c:/Test29.dat“ForRandomAs#1Get#1，1，pClose#1C.Open“c:/Test29.dat“ForRandomAs#1Len=Len(p)Put#1，1，pClos
13、e#1D.Open“c:/Test29.dat“ForRandomAS#1Len=Len(p)Get#1，1，pClose#130.数学表达式 sin25写成 Visual Basic 表达式是( )。（分数：2.00）A.sin25B.sin(25)C.sin(25)D.sin(25*3.14/180)31.在窗体上画一个文本框(其名称为 Text1)和一个标签(其名称为 Labe11)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是( )。（分数：2.00）A.B.C.D.32.给程序的空白行选择适当的语句。程序段的功能是：依次自动
14、将列表框 List2 中所有列表项目移入列表框 List1 中，并将移入 List1 中的项目从 List2 中删除。( )Do While List2.List Count_List2.Removeltem0Loop（分数：2.00）A.List1.AddltemList2.List(0)B.List1.Addltem List2.TextC.List2.AddltemList1.List(0)D.List2.AddltemList1.Text33.在窗体(Name 属性为 Forml)上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(Name 属性为 C
15、ommandl)，然后编写如下两个事件过程：Private Sub Commandl_Click()a=Text1.Text+Text2.TextPrintaEnd SubPrivate Sub Form_Load()Text1.Text=“Text2.Text=“End Sub程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入 78 和 87，然后单击命令按钮，则输出结果为( )。（分数：2.00）A.165B.8778C.7788D.788734.窗体上有一个名为 Labe11 的标签，为了使该标签透明并且没有边框，正确的属性设置为 ( )。（分数：2.00）A
16、.B.C.D.35.下列过程定义语句中，形参个数为不确定数量的过程是( )。（分数：2.00）A.Private Sub Pr03(XAsDouble，y As Single)B.Private Sub Pr03(Arr(3)；Optionx，Optiony)C.Private Sub Pr03(ByRefx，ByValy，Art()D.Private Sub Pr03(Param Array Arr()二、填空题(总题数：13，分数：30.00)36.Visual Basic 应用程序中标准模块文件的扩展名是_。（分数：2.00）填空项 1:_37.Visual Basic 中，事件的名称是
17、固定的，它们是 Visual Basic 的 1。（分数：2.00）填空项 1:_38.在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对 1 的属性进行设置。（分数：2.00）填空项 1:_39.InputBox 函数输入数据时，可以单击“确定”按钮或 1 表示确认。（分数：2.00）填空项 1:_40.当对象得到焦点时，会触发 1 事件，当对象失去焦点时将触发 Lost Focus 事件。（分数：2.00）填空项 1:_41.在命令按钮上释放鼠标按钮时，所触发的事件称为 1。（分数：2.00）填空项 1:_42.在工具栏的右侧还有两个栏，分别用来显示窗体的当前位置和大小，其单位为
18、twip，1 英寸等于 1。左边一栏显示的是窗体左上角的坐标，右边一栏显示的是窗体的长 X 宽。（分数：2.00）填空项 1:_43.Visual Basic 中的控件分为 3 类，它们是标准控件、 1 和可插入对象。（分数：2.00）填空项 1:_有下面一个程序段，从文本框中输人数据，如果该数据满足条件“除以 4 余 1，除以 5 余 2”，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。Private Sub Commandl_Click()x=Val(Text1.Text)If 9 ThenPrintXElseText1.Text=“10 End IfEnd Sub（分数：4.0
19、0）填空项 1:_填空项 1:_44.用 Line Input 语句从顺序文件读出数据时，每次读出一行数据。所谓一行是指遇到 1 分隔符，即认为一行的结束。（分数：2.00）填空项 1:_45.下列程序段的输出结果为_。Dim S1(5)As Integer,S2(5)As Integer,S3(5)As IntegerN=4ForI=1 To NS1(I)=IL=N+i-IS2(I)=LNextIS3(5)=0ForK=1 To NS3(K)=S1(K)*S2(K)S3(5)=S3(5)+S3(K)NextKPrintS1(3)=S1(5)；S1(2)PrintS2(4)=S3(1)；S3(
20、5)（分数：2.00）填空项 1:_下面程序的功能是找出给定的 10 个数中最大的一个数，最后输出这个数以及它在原来 10 个数中的位置。请在下划线处填入适当的内容，将程序补充完整。Option Base 1Private SubForm_Cfick()Dim Xx=Array(23，-5,17,38，-31,46,11，8，5，-4)Max=1k=110 k=k+1ifx(k)x(max)then13 End ifIfk10then goto 10y= 14 Print Max，yEnd Sub（分数：4.00）填空项 1:_填空项 1:_46.下面运行程序后，单击命令按钮，输出的结果是_。
21、Private Sub Commandl_clck()Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2#Fori=1 To 4a(i)=iNextiFor i=3 To 6b(i)=iNextis1=YAS(a)S2=YAS(b)Printt“s1=“；S1“S2=“；s2End SubFunctionYAS(a()AsInteger)Dimt#，i%t=1For i=LBound(a)ToUBound(a)t=t*a(i)NextiYAS=tEnd Funtoon（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-307 答案解析(总分：100.00，
22、做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下面的属性中，用于自动调整图像框中图形大小的是( )。（分数：2.00）A.PictureB.CurrentYC.CurrentXD.Stretch 解析：2.在窗体上有若干控件，其中有一个名称为 Text1 的文本框。影响 Text1 的 Tab 顺序的属性是( )。（分数：2.00）A.TabStopB.EnabledC.VisibleD.Tablndex 解析：3.在窗体上画一个命令按钮，其名称为 Commandl，然后编写如下程序：Pfivate Sub Commandl_Click()Dima(10) As Int
23、egerDimx As IntegerFori=1 To 10a(i)=8+iNeXtX=2Print a(f(x)+x)End SubFunction f(X As Integer)X=X+3f=XEnd Function程序运行后，单击命令按钮，输出结果为( )。（分数：2.00）A.12B.15C.17D.18 解析：4.下面的数组声明语句中正确的是( )。（分数：2.00）A.Dim gg1，5As StringB.Dim gg1 To 5，1 To 5As StringC.Dim gg(1 To 5)As String D.Dim gg1:5，1:5As String解析：5.对于长
24、度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是 ( )。（分数：2.00）A.冒泡排序为 n/2B.冒泡排序为 nC.快速排序为 nD.快速排序为 n(n-1)/2 解析：6.在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress(keyascii as integer)End Sub若焦点位于文本框中，则能够触发 KeyPress 事件的操作是( )。（分数：2.00）A.单击鼠标B.双击文本框C.鼠标滑过文本框D.按下键盘上的某个键 解析：7.单击命令按钮时，下列程序的执行结果为( )。Private
25、Sub Commandl_Click()Dimx As Integer，y As Integerx=50:y=78CallPPP(x，y)Printx；yEnd SubPubfic Sub PPP(ByValnAsInteger，ByValm As Integer)n=n/10m=m/10End Sub（分数：2.00）A.08B.50 78 C.450D.78 50解析：8.假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是( )。（分数：2.00）A.只保存窗体模块文件B.分别保存窗体模块、标准模块和工程文件 C.只保存窗体模
26、块和标准模块文件D.只保存工程文件解析：9.Visual Basic 为命令按钮提供的 Cancel 属性是( )。（分数：2.00）A.用来指定命令按钮是否为窗体的“取消”按钮 B.用来指定命令按钮的功能是停止一个运行程序C.用来指定命令按钮的功能是关闭一个运行程序D.用来指定命令按钮的功能是中断一个程序的运行解析：10.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是( )。（分数：2.00）A.ValueB.Default C.CancelD.Engbled解析：11.以下能够正确计算 n!的程序是( )。（分数：2.00）A.B.C.
27、 D.解析：12.设 A=“12345678“，则表达式 Val(Left(A，4)+Mid(A，4，2)的值为( )。（分数：2.00）A.123456B.123445 C.8D.6解析：13.在窗体上绘制一个名称为 Commandl 的命令按钮，然后编写如下程序：Option Base 1Private Sub Commandl_Click()Dim c As Integer,d As Integerd=0c=6x=Array(2，4，6，8，10，12)Fori=1 To 61fx(i)c Thend=d+x(i)c=x(i)Elsed=d-cEnd IfNextiPrint dEnd
28、Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为( )。（分数：2.00）A.10B.16C.12 D.20解析：14.下面四个语句中，输出逻辑为“真”的是( )。（分数：2.00）A.Print Not(3+54+6)B.Print21 And 32C.Print 12 Or 23D.Print Not(12) 解析：15.为了防止用户随意将光标置于控件上，应( )。（分数：2.00）A.将控件的 Tablndex 属性设置为 0B.将控件的 TabStop 属性设置为 TrueC.将控件的 TabStop 属性设置为 FalseD.将控件的 Enabled 属性设置为 False
29、 解析：16.以下不属于 Visual Basic 系统的文件类型是( )。（分数：2.00）ArrmBbat CvbgDvbp解析：17.以下关于图片框控件的说法中，错误的是( )。（分数：2.00）A.可以通过 Print 方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用 Stretch 属性可以自动调整图片框中图形的大小 解析：18.为使图像框的大小自动适应图像的大小，则应( )。（分数：2.00）A.将其 AutoSize 属性值设置为 TrueB.将其 AutoSize 属性值设置为 FalseC.将其 Shape 属性值设
30、置为 TrueD.将其 Stretch 属性值设置为 False 解析：19.有如下程序：DefStr X-ZX=“123“Y=“456“，Z=X$+Y$Print ZSEnd运行后，输出结果是( )。（分数：2.00）A.显示出错信息 B.123456C.“579“D.579解析：20.要存放如下方阵的数据，在不浪费存储空间的基础上，应使用的声明语句是( )。（分数：2.00）A.DimA(9)As IntegerB.DimA(3，3)As IntegerC.DimA(-1 To 1,-3 To -1)As SingleD.DimA(-3 To-1，1 To 3)As Integer 解析：
31、21.InputBox 函数的 4 个参数中，必选参数的作用是( )。（分数：2.00）A.输出信息B.定义提示信息 C.定义隐含信息D.定义输入的位置解析：22.在 Visual Basic 中，组合框是文本框和( )特性的组合。（分数：2.00）A.复选框B.标签C.列表框 D.目录列表框解析：23.假设 x 的值为 5，则在执行以下语句时，其输出结果为“Ok“的 Select Case 语句是( )。（分数：2.00）A.B.C. D.解析：24.产生10,37之间的随机整数的 VisualBasic 表达式是( )。（分数：2.00）A.Int(Rnd(1)*27)+10B.Int(R
32、nd(1)*28)+10 C.Int(Rnd(1)*27)+11D.Int(Rnd(1)*28)+11解析：25.要使一个命令按钮成为图形命令按钮，则应设置的属性是( )。（分数：2.00）A.PictureB.Style C.LoadPictureD.DisabledPicture解析：26.若要获得滚动条的当前值，可访问的属性是( )。（分数：2.00）A.TextB.Value C.MaxD.Min解析：27.下列叙述中正确的是( )。（分数：2.00）A.软件交付使用后还需要进行维护 B.软件一旦交付使用就不需要再进行维护C.软件交付使用后其生命周期就结束D.软件维护是指修复程序中被破
33、坏的指令解析：28.将调试通过的工程经“文件”菜单中的“生成 exe 文件”编译成为 exe 文件后，该可执行文件到其他机器上不能运行的主要原因是( )。（分数：2.00）A.运行的机器上无 VB 系统B.缺少.fan 窗体文件C.该可执行文件有病毒D.以上原因都不对 解析：29.窗体上有两个名称分别为 Text1、Text2 的文本框，一个名称为 Commandl 的命令按钮。运行后的窗体外观如下图所示。（分数：2.00）A.Open“c:/Test29.dat“ForRandom As #1Put#1，1，pClose#1B.Open“c:/Test29.dat“ForRandomAs#1
34、Get#1，1，pClose#1C.Open“c:/Test29.dat“ForRandomAs#1Len=Len(p)Put#1，1，pClose#1 D.Open“c:/Test29.dat“ForRandomAS#1Len=Len(p)Get#1，1，pClose#1解析：30.数学表达式 sin25写成 Visual Basic 表达式是( )。（分数：2.00）A.sin25B.sin(25)C.sin(25)D.sin(25*3.14/180) 解析：31.在窗体上画一个文本框(其名称为 Text1)和一个标签(其名称为 Labe11)，程序运行后，如果在文本框中输入指定的信息，则
35、立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是( )。（分数：2.00）A.B. C.D.解析：32.给程序的空白行选择适当的语句。程序段的功能是：依次自动将列表框 List2 中所有列表项目移入列表框 List1 中，并将移入 List1 中的项目从 List2 中删除。( )Do While List2.List Count_List2.Removeltem0Loop（分数：2.00）A.List1.AddltemList2.List(0) B.List1.Addltem List2.TextC.List2.AddltemList1.List(0)D.List2.Addlte
36、mList1.Text解析：33.在窗体(Name 属性为 Forml)上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(Name 属性为 Commandl)，然后编写如下两个事件过程：Private Sub Commandl_Click()a=Text1.Text+Text2.TextPrintaEnd SubPrivate Sub Form_Load()Text1.Text=“Text2.Text=“End Sub程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入 78 和 87，然后单击命令按钮，则输出结果为( )。（分数：
37、2.00）A.165B.8778C.7788D.7887 解析：34.窗体上有一个名为 Labe11 的标签，为了使该标签透明并且没有边框，正确的属性设置为 ( )。（分数：2.00）A. B.C.D.解析：35.下列过程定义语句中，形参个数为不确定数量的过程是( )。（分数：2.00）A.Private Sub Pr03(XAsDouble，y As Single)B.Private Sub Pr03(Arr(3)；Optionx，Optiony)C.Private Sub Pr03(ByRefx，ByValy，Art()D.Private Sub Pr03(Param Array Arr(
38、) 解析：二、填空题(总题数：13，分数：30.00)36.Visual Basic 应用程序中标准模块文件的扩展名是_。（分数：2.00）填空项 1:_ （正确答案：bas 或 bas (字母不区分大小写)）解析：37.Visual Basic 中，事件的名称是固定的，它们是 Visual Basic 的 1。（分数：2.00）填空项 1:_ （正确答案：保留字）解析：38.在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对 1 的属性进行设置。（分数：2.00）填空项 1:_ （正确答案：Form 窗体）解析：39.InputBox 函数输入数据时，可以单击“确定”按钮或 1 表示
39、确认。（分数：2.00）填空项 1:_ （正确答案：按下回车键）解析：40.当对象得到焦点时，会触发 1 事件，当对象失去焦点时将触发 Lost Focus 事件。（分数：2.00）填空项 1:_ （正确答案：GotFocus）解析：41.在命令按钮上释放鼠标按钮时，所触发的事件称为 1。（分数：2.00）填空项 1:_ （正确答案：MouseUp 方法）解析：42.在工具栏的右侧还有两个栏，分别用来显示窗体的当前位置和大小，其单位为 twip，1 英寸等于 1。左边一栏显示的是窗体左上角的坐标，右边一栏显示的是窗体的长 X 宽。（分数：2.00）填空项 1:_ （正确答案：1440twip）
40、解析：43.Visual Basic 中的控件分为 3 类，它们是标准控件、 1 和可插入对象。（分数：2.00）填空项 1:_ （正确答案：Acdve 控件）解析：有下面一个程序段，从文本框中输人数据，如果该数据满足条件“除以 4 余 1，除以 5 余 2”，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。Private Sub Commandl_Click()x=Val(Text1.Text)If 9 ThenPrintXElseText1.Text=“10 End IfEnd Sub（分数：4.00）填空项 1:_ （正确答案：xMod4=1 AndxMod5=2）解析：填空项
41、1:_ （正确答案：Tex(1.SetFocus）解析：44.用 Line Input 语句从顺序文件读出数据时，每次读出一行数据。所谓一行是指遇到 1 分隔符，即认为一行的结束。（分数：2.00）填空项 1:_ （正确答案：Enter）解析：45.下列程序段的输出结果为_。Dim S1(5)As Integer,S2(5)As Integer,S3(5)As IntegerN=4ForI=1 To NS1(I)=IL=N+i-IS2(I)=LNextIS3(5)=0ForK=1 To NS3(K)=S1(K)*S2(K)S3(5)=S3(5)+S3(K)NextKPrintS1(3)=S1(
42、5)；S1(2)PrintS2(4)=S3(1)；S3(5)（分数：2.00）填空项 1:_ （正确答案：3 0 21 4 20）解析：下面程序的功能是找出给定的 10 个数中最大的一个数，最后输出这个数以及它在原来 10 个数中的位置。请在下划线处填入适当的内容，将程序补充完整。Option Base 1Private SubForm_Cfick()Dim Xx=Array(23，-5,17,38，-31,46,11，8，5，-4)Max=1k=110 k=k+1ifx(k)x(max)then13 End ifIfk10then goto 10y= 14 Print Max，yEnd Su
43、b（分数：4.00）填空项 1:_ （正确答案：Max=k）解析：填空项 1:_ （正确答案：x(Max)）解析：46.下面运行程序后，单击命令按钮，输出的结果是_。Private Sub Commandl_clck()Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2#Fori=1 To 4a(i)=iNextiFor i=3 To 6b(i)=iNextis1=YAS(a)S2=YAS(b)Printt“s1=“；S1“S2=“；s2End SubFunctionYAS(a()AsInteger)Dimt#，i%t=1For i=LBound(a)ToUBound(a)t=t*a(i)NextiYAS=tEnd Funtoon（分数：2.00）填空项 1:_ （正确答案：S1=24 S2=360）解析：
