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