1、二级 VISUAL+BASIC 笔试-215 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.窗体的 MouseDown 事件过程Form_MouseDown(Button As Integer,Shift As Integer,X As Single，Y As Single)有 4 个参数，关于这些参数，正确的描述是( )。（分数：2.00）A.通过 Button 参数判定当前按下的是哪一个鼠标键B.Shift 参数只能用来确定是否按下 Shift 键C.Shift 参数只能用来确定是否按下 Alt 和 Ctrl 键D.参数 X、Y 用来
2、设置鼠标当前位置的坐标2.执行以下 Commaand1 的 Click 事件过程在窗体上显示( )。Option Base 0Prinvate Sub Command1_Clcik()Dim aa=Array(“a“,“b“,“C“,“d“,“e“,“f“,“g“)Print a(1);a(3);a(5)End Sub（分数：2.00）A.abcB.bdfC.aceD.出错3.设已经在菜单编辑器中设计了窗体的快捷菜单，某顶级菜单为 a1，且取消其“可见”属性。运行时，以下( )事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右键单击。（分数：2.00）A.Private Sub Form_Mo
3、use Down(Button As Integer,Shift As Integer,_X As Single,Y As Single)If Button=2 Then PopupMenu a1,2End SubB.Private Sub Form Mouse Down(Button As Integer,Shift As Integer,_X As Single,Y As Single)PopupMenu a1,0End SubC.Private Sub Form_Mouse Down(Button As Imeger,Shift As Integer,_X As Single,Y As
4、Single)PopupMenu a1End SubD.Private Sub Form_Mouse Down(Button As Integer,Shift As Integer,_X As Single,Y As Single)If (Button=vbLetfButton)Or(Button=vbRightButton)Then PopupMenu a1End Sub4.在窗体上绘制一个命令按钮，其名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer,x As IntegerFor i_1 T0 6If
5、i=1 Then x=iIf i=4 Thenx=x+1Elsex=x+2End IfNext iPrint xEnd Sub程序运行后，单击命令按钮，其输出结果为( )。（分数：2.00）A.9B.6C.12D.155.可决定窗体左上角是否有控制菜单的属性是( )。（分数：2.00）A.ControlBoxB.MinButtonC.MaxButtonD.BorderStyle6.窗体上建立了一个名为 CormnonDialong1 的通用对话框，用下面的语句建立一个对话框：CommonDialong1.action=2则以下语句与之等价的是( )。（分数：2.00）A.CommonDialo
6、n1.ShowOpenB.CommonDialog1.ShowSaveC.CommonDialog1.ShowColorD.CommonDialog1.ShowFont7.运行以下程序后，打印机上的输出结果是( )。For I=To 9Printer.Print tab(I*I),INext（分数：2.00）A.12345678*99B.12345678C.123456789D.1234567898.下列选项中不属于软件生命周期开发阶段任务的是( )：（分数：2.00）A.软件测试B.概要设计C.软件维护D.详细设计9.以下叙述中错误的是( )。（分数：2.00）A.打开一个工程文件时，系统自
7、动装入与该工程有关的窗体、标准模块等文件B.当程序运行时，双击一个窗体，则触发该窗体的 DblClick 事件C.Visual Basic 应用程序只能以解释方式执行D.事件可以由用户引发，也可以由系统引发10.inputBox 函数返回值的类型为( )。（分数：2.00）A.数值B.字符串C.变体D.数值或字符串(视输入的数据而定)11.已知 XY，AB，正确表示它们之间关系的式子是( )。（分数：2.00）A.Sgn(Y-X)-Sgn(A-B)0B.Sgn(Y-X)-Sgn(A-B)=-2C.SgD.Sgn12.假定有如下的 Sub 过程：Sub S(x As Single,y As Si
8、ngle)t=xx=t/yy=t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As SingleDim b As Singlea=5b=2S a,bprint a,bEnd Sub程序运行后，单击命令按钮，输出结果是( )。（分数：2.00）A.5 2B.1 1C.1.25 4D.2.5 113.表达式 String(2,“Shanghai“)的值是( )。（分数：2.00）A.ShB.ShanghaiC.ShanghaiShanghaiD.SS14.在窗体上画一个名称为 Text1 的文本框和一个名
9、称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer,n As IntegerFor i=0 To 50i=i+3n=n+1If i10 Then Exit ForNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是 L )：（分数：2.00）A.5B.4C.3D.215.下面叙述中不正确的是( )。（分数：2.00）A.若使用 write 样语句将数据输出到文件，则各数据项之间自动插入逗号，并且将字符串加上双引号B.若使用 Print#语句将数据输出
10、到文件，则各数据项之间没有逗号分隔，且字符串不加双引号C.Write#语句和 Print#语句建立的顺序文件格式完全一样D.Write#语句和 Print#语句均实现向文件写入数据16.以下叙述中正确的是( )。（分数：2.00）A.窗体的 Name 属性指定窗体的名称，用来标识一个窗体B.窗体的 Name 属性值是显示在窗体标题栏中的文本C.可以在运行期间改变窗体的 Name 属性的值D.商体的 Name 属性值可以为空17.如果希望定时器控件每秒产生 10 个事件，则要将 Interval 属性的值设为( )。（分数：2.00）A.100B.200C.300D.40018.运行以下程序后，
11、输出的结果是( )。Print“中国“Font=“隶书“Print“人民“Font=“仿宋“Print“万岁“Font=“宋体“（分数：2.00）A.中国(默认字体)人民(默认字体)万岁!(默认字体)B.中国(默认字体)人民(仿宋)万岁!(宋体)C.中国(默认字体)人民(隶书)万岁!(仿宋)D.中国隶书(默认字体)人民(仿宋)万岁!(仿宋)19.如果 x 是一个正的实数，将千分位四舍五入，保留两位小数的表达式是( )。（分数：2.00）A.0.01*Int(X+0.05)B.0.01*Int(X+0.005)*100)C.0.01*Int(100*(X+0.05)D.0.01*Int(X+0.
12、005)20.能触发滚动条 Scorll 事件的操作是( )。（分数：2.00）A.拖动滚动条中滑块B.单击滚动条中滑块C.单击滚动条两端箭头D.单击箭头与滑块之间的滚动条21.表达式 Int(Rnd(0)+1)+Int(Rnd(1)-1)的值为( )。（分数：2.00）A.1B.0C.-1D.222.窗体上有 Text1、Text2 两个文本框及一个命令按钮 Command1，编写下列程序：Dim y As IntegerPrivate Sub Command1_Click()Dim x As Integerx=2Text1.Text=p2(pl(x),y)Text2.Text=pl(x)E
13、nd SubPrivate Function pl(x As Integer)As Integerx=x+y:y=x+ypl=x+yEnd FunctionPrivate Function p2(x As Integer,y As Integer)As Integerp2=2*x+yEnd Function当单击 1 次和单击 2 次命令按钮后，文本框 Text1 和 Text2 内的值分别是( )。（分数：2.00）A.2 42 4B.2 44 8C.10 1058 58D.4 48 823.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub C
14、ommand1_Click()x=-5If Sgn(x)Theny=Sgn(x2)Elsey=Sgn(x)End IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是( )。（分数：2.00）A.-5B.25C.1D.-124.为组合框 Combo1 增加一个数据项“计算机”，下列命令正确的是( )。（分数：2.00）A.Combo1.Text=“计算机“B.Combo1.ListIndex=“计算机“C.Combo1.AddItem“计算机“D.Combo1.ListCount=“计算机“25.下列程序段的执行结果为( )。A=0:B=1A=A+B:B=A+B:Print
15、 A:BA=A+B:B=A+B:PrintA:BA=A+B:B=A+B:PrintA:B（分数：2.00）A.1 23 58 13B.1 13 58 13C.1 33 48 1D.1 25 626.设有如下过程：Sub ff(x,y,z,)x=y+zEnd Sub以下所有参数的虚实结合都是传址方式的调用语句是( )。（分数：2.00）A.Call ff(5,7,z)B.Call ff(x,y,z)C.Call ff(3+x,5+y,z)D.Call ff(x+y,x-y,z)27.下列程序的运行结果是( )。s=0:t=0:u=0For x=1 To 3For y=1 To xFor z=y
16、To 3s=s+1Next zt=t+1Next yu=u+1Next xPrint s;t;u（分数：2.00）A.3 6 14B.14 6 3C.14 3 6D.16 4 328.在运行程序时，在文本框中输入新的内容，或在程序代码中改变 Text 的属性值，相应会触发到( )事件。（分数：2.00）A.GotFocusB.CrickC.ChangeD.DblClick29.下列程序执行后，变量 a 的值为( )。Dim a,b,c,d as singlea=100b=20c=1000if ba Thend=a:a=b:b=dEnd ifif ca Thend=a:a=c:c=dEnd if
17、if cb Thend=b:b=c:c=dEnd if（分数：2.00）A.0B.1000C.20D.10030.以下程序段执行后整型变量 n 的值为( )。n=0For i=1 to 20 Step 5n=n+1Next i（分数：2.00）A.50B.4C.15D.21031.在 4 个字符“D”，“z”，“A”，“9”中，其 ASCII 码值最大的是( )。（分数：2.00）A.“D”B.“z”C.“A”D.“9”32.如果准备读文件，打开顺序文件”text.dat”的正确语句是( )。（分数：2.00）A.Open“text.dat“For Write As#1B.Open“text.
18、dat“For Binary As#1C.Open“text.dat“For Input As#1D.Open“text.dat“For Random As#133.要使文本框可输入多行文字，要更改的默认选项是( )。（分数：2.00）A.SorollBoars 和 MultiLineB.VisibleC.ScrillBoarsD.以上都不是34.执行下列语句后整型变量 a 的值是( )。If(3-2)2 Thena=10Else If(10/2)=6 Thena=20Elsea=30End If（分数：2.00）A.10B.20C.30D.不确定35.如果要将窗体中的某个命令按钮设置成无效状
19、态，应该设置命令按钮的( )属性。（分数：2.00）A.ValueB.VisibleC.EnabledD.Default二、填空题(总题数：14，分数：30.00)36.有时候需要暂时关闭计时器，这可以通过 1 属性来实现。（分数：2.00）填空项 1:_37. 1 的任务是诊断和改正程序中的错误。（分数：2.00）填空项 1:_38.A 的绝对值大于等于 B 同时不等于 C 的布尔表达式是 1。（分数：2.00）填空项 1:_39.在窗体上画一个文本框(其 Name 属性为 Text1)，编写如下事件过程，运行结果是_。Private Sub Form_Load( )Text1.Text=“
20、 “Text1.SetFocusFor i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub（分数：2.00）填空项 1:_40.控件被拖动时显示的图标是由控件的 1 属性决定的。（分数：2.00）填空项 1:_41.将变量 SUM1、SUM2 定义为单精度型，写出相的定义语句 1。（分数：2.00）填空项 1:_42.当用户建立窗体文件时，都会产生 1。（分数：2.00）填空项 1:_43.计时器控件能有规律的以一定时间间隔触发 1 事件，并执行该事件过程中的程序代码。（分数：2.00）填空项 1:_44.下列程序的输出结果为_。num=2While n
21、um=3num=num+1Print numWend（分数：2.00）填空项 1:_45.设有如下程序Private Sub Search(a()As Variant,By Val key As Variant,index%)Dim I%For I=LBound(a) To UBound(a)If key=a(I) ThenIndex=IExit SubEnd IfNext IIndex=-1End SubPrivate Sub Form_Load()ShowDim b() As VariantDim n As Integerb=Array(1,3,5,7,9,11,13,15)Call Se
22、arch(b,11,n)print nEnd Sub程序运行后，输出结果是_。（分数：2.00）填空项 1:_46.执行下列程序，输入数字 3，则输出结果为_。Private Sub Command1_Click()a=inputBox(“Input a Number“)If a5 ThenGoTo L5Else If a2 ThenGoTo L2ElseGoTo L3End IfExit SubL5:Print a Mod 5Exit SubL3:Print a Mod 3Exit SubL2：Print a Mod 2End Sub（分数：2.00）填空项 1:_以下程序的功能是：把当前目
23、录下的顺序文件 smtext1.txt 的内容读入内存，并在文本框 Text1 中显示出来。请填空。Private Sub Command1_Click()Dim inData As StringText1.Text=“Open“./smtext1. (12) AS#1Do While (13) Input#1,inDataText1.Text=Text1.Texta(3);a(5)End Sub（分数：2.00）A.abcB.bdf C.aceD.出错解析：3.设已经在菜单编辑器中设计了窗体的快捷菜单，某顶级菜单为 a1，且取消其“可见”属性。运行时，以下( )事件过程可以使快捷菜单的菜单项
24、响应鼠标左键单击和右键单击。（分数：2.00）A.Private Sub Form_Mouse Down(Button As Integer,Shift As Integer,_X As Single,Y As Single)If Button=2 Then PopupMenu a1,2End Sub B.Private Sub Form Mouse Down(Button As Integer,Shift As Integer,_X As Single,Y As Single)PopupMenu a1,0End SubC.Private Sub Form_Mouse Down(Button
25、As Imeger,Shift As Integer,_X As Single,Y As Single)PopupMenu a1End SubD.Private Sub Form_Mouse Down(Button As Integer,Shift As Integer,_X As Single,Y As Single)If (Button=vbLetfButton)Or(Button=vbRightButton)Then PopupMenu a1End Sub解析：4.在窗体上绘制一个命令按钮，其名称为 Command1，然后编写如下事件过程：Private Sub Command1_Cli
26、ck()Dim i As Integer,x As IntegerFor i_1 T0 6If i=1 Then x=iIf i=4 Thenx=x+1Elsex=x+2End IfNext iPrint xEnd Sub程序运行后，单击命令按钮，其输出结果为( )。（分数：2.00）A.9 B.6C.12D.15解析：5.可决定窗体左上角是否有控制菜单的属性是( )。（分数：2.00）A.ControlBox B.MinButtonC.MaxButtonD.BorderStyle解析：6.窗体上建立了一个名为 CormnonDialong1 的通用对话框，用下面的语句建立一个对话框：Comm
27、onDialong1.action=2则以下语句与之等价的是( )。（分数：2.00）A.CommonDialon1.ShowOpenB.CommonDialog1.ShowSave C.CommonDialog1.ShowColorD.CommonDialog1.ShowFont解析：7.运行以下程序后，打印机上的输出结果是( )。For I=To 9Printer.Print tab(I*I),INext（分数：2.00）A.12345678*99B.12345678C.123456789D.123456789 解析：8.下列选项中不属于软件生命周期开发阶段任务的是( )：（分数：2.00
28、）A.软件测试B.概要设计C.软件维护 D.详细设计解析：9.以下叙述中错误的是( )。（分数：2.00）A.打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B.当程序运行时，双击一个窗体，则触发该窗体的 DblClick 事件C.Visual Basic 应用程序只能以解释方式执行 D.事件可以由用户引发，也可以由系统引发解析：10.inputBox 函数返回值的类型为( )。（分数：2.00）A.数值B.字符串 C.变体D.数值或字符串(视输入的数据而定)解析：11.已知 XY，AB，正确表示它们之间关系的式子是( )。（分数：2.00）A.Sgn(Y-X)-Sgn(A-
29、B)0B.Sgn(Y-X)-Sgn(A-B)=-2C.Sg D.Sgn解析：12.假定有如下的 Sub 过程：Sub S(x As Single,y As Single)t=xx=t/yy=t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As SingleDim b As Singlea=5b=2S a,bprint a,bEnd Sub程序运行后，单击命令按钮，输出结果是( )。（分数：2.00）A.5 2B.1 1C.1.25 4D.2.5 1 解析：13.表达式 String(2,“Shangh
30、ai“)的值是( )。（分数：2.00）A.ShB.ShanghaiC.ShanghaiShanghaiD.SS 解析：14.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer,n As IntegerFor i=0 To 50i=i+3n=n+1If i10 Then Exit ForNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是 L )：（分数：2.00）A.5B.4C.3 D.2解析：15
31、.下面叙述中不正确的是( )。（分数：2.00）A.若使用 write 样语句将数据输出到文件，则各数据项之间自动插入逗号，并且将字符串加上双引号B.若使用 Print#语句将数据输出到文件，则各数据项之间没有逗号分隔，且字符串不加双引号C.Write#语句和 Print#语句建立的顺序文件格式完全一样 D.Write#语句和 Print#语句均实现向文件写入数据解析：16.以下叙述中正确的是( )。（分数：2.00）A.窗体的 Name 属性指定窗体的名称，用来标识一个窗体 B.窗体的 Name 属性值是显示在窗体标题栏中的文本C.可以在运行期间改变窗体的 Name 属性的值D.商体的 Na
32、me 属性值可以为空解析：17.如果希望定时器控件每秒产生 10 个事件，则要将 Interval 属性的值设为( )。（分数：2.00）A.100 B.200C.300D.400解析：18.运行以下程序后，输出的结果是( )。Print“中国“Font=“隶书“Print“人民“Font=“仿宋“Print“万岁“Font=“宋体“（分数：2.00）A.中国(默认字体)人民(默认字体)万岁!(默认字体)B.中国(默认字体)人民(仿宋)万岁!(宋体)C.中国(默认字体)人民(隶书)万岁!(仿宋) D.中国隶书(默认字体)人民(仿宋)万岁!(仿宋)解析：19.如果 x 是一个正的实数，将千分位四
33、舍五入，保留两位小数的表达式是( )。（分数：2.00）A.0.01*Int(X+0.05)B.0.01*Int(X+0.005)*100) C.0.01*Int(100*(X+0.05)D.0.01*Int(X+0.005)解析：20.能触发滚动条 Scorll 事件的操作是( )。（分数：2.00）A.拖动滚动条中滑块 B.单击滚动条中滑块C.单击滚动条两端箭头D.单击箭头与滑块之间的滚动条解析：21.表达式 Int(Rnd(0)+1)+Int(Rnd(1)-1)的值为( )。（分数：2.00）A.1B.0 C.-1D.2解析：22.窗体上有 Text1、Text2 两个文本框及一个命令按
34、钮 Command1，编写下列程序：Dim y As IntegerPrivate Sub Command1_Click()Dim x As Integerx=2Text1.Text=p2(pl(x),y)Text2.Text=pl(x)End SubPrivate Function pl(x As Integer)As Integerx=x+y:y=x+ypl=x+yEnd FunctionPrivate Function p2(x As Integer,y As Integer)As Integerp2=2*x+yEnd Function当单击 1 次和单击 2 次命令按钮后，文本框 Te
35、xt1 和 Text2 内的值分别是( )。（分数：2.00）A.2 42 4B.2 44 8C.10 1058 58 D.4 48 8解析：23.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=-5If Sgn(x)Theny=Sgn(x2)Elsey=Sgn(x)End IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是( )。（分数：2.00）A.-5B.25C.1 D.-1解析：24.为组合框 Combo1 增加一个数据项“计算机”，下列命令正确的是( )。（分数：2.00）A.
36、Combo1.Text=“计算机“B.Combo1.ListIndex=“计算机“C.Combo1.AddItem“计算机“ D.Combo1.ListCount=“计算机“解析：25.下列程序段的执行结果为( )。A=0:B=1A=A+B:B=A+B:Print A:BA=A+B:B=A+B:PrintA:BA=A+B:B=A+B:PrintA:B（分数：2.00）A.1 23 58 13 B.1 13 58 13C.1 33 48 1D.1 25 6解析：26.设有如下过程：Sub ff(x,y,z,)x=y+zEnd Sub以下所有参数的虚实结合都是传址方式的调用语句是( )。（分数：2
37、.00）A.Call ff(5,7,z)B.Call ff(x,y,z) C.Call ff(3+x,5+y,z)D.Call ff(x+y,x-y,z)解析：27.下列程序的运行结果是( )。s=0:t=0:u=0For x=1 To 3For y=1 To xFor z=y To 3s=s+1Next zt=t+1Next yu=u+1Next xPrint s;t;u（分数：2.00）A.3 6 14B.14 6 3 C.14 3 6D.16 4 3解析：28.在运行程序时，在文本框中输入新的内容，或在程序代码中改变 Text 的属性值，相应会触发到( )事件。（分数：2.00）A.Go
38、tFocusB.CrickC.Change D.DblClick解析：29.下列程序执行后，变量 a 的值为( )。Dim a,b,c,d as singlea=100b=20c=1000if ba Thend=a:a=b:b=dEnd ifif ca Thend=a:a=c:c=dEnd ifif cb Thend=b:b=c:c=dEnd if（分数：2.00）A.0B.1000 C.20D.100解析：30.以下程序段执行后整型变量 n 的值为( )。n=0For i=1 to 20 Step 5n=n+1Next i（分数：2.00）A.50B.4 C.15D.210解析：31.在 4
39、 个字符“D”，“z”，“A”，“9”中，其 ASCII 码值最大的是( )。（分数：2.00）A.“D”B.“z” C.“A”D.“9”解析：32.如果准备读文件，打开顺序文件”text.dat”的正确语句是( )。（分数：2.00）A.Open“text.dat“For Write As#1B.Open“text.dat“For Binary As#1C.Open“text.dat“For Input As#1 D.Open“text.dat“For Random As#1解析：33.要使文本框可输入多行文字，要更改的默认选项是( )。（分数：2.00）A.SorollBoars 和 Mu
40、ltiLine B.VisibleC.ScrillBoarsD.以上都不是解析：34.执行下列语句后整型变量 a 的值是( )。If(3-2)2 Thena=10Else If(10/2)=6 Thena=20Elsea=30End If（分数：2.00）A.10B.20C.30 D.不确定解析：35.如果要将窗体中的某个命令按钮设置成无效状态，应该设置命令按钮的( )属性。（分数：2.00）A.ValueB.VisibleC.Enabled D.Default解析：二、填空题(总题数：14，分数：30.00)36.有时候需要暂时关闭计时器，这可以通过 1 属性来实现。（分数：2.00）填空项
41、 1:_ （正确答案：Enabled）解析：37. 1 的任务是诊断和改正程序中的错误。（分数：2.00）填空项 1:_ （正确答案：调试(阶段)或程序调试(阶段)或软件调试(阶段)或 Debug(阶段)）解析：38.A 的绝对值大于等于 B 同时不等于 C 的布尔表达式是 1。（分数：2.00）填空项 1:_ （正确答案：Abs(A)=B And Abs(A)C）解析：39.在窗体上画一个文本框(其 Name 属性为 Text1)，编写如下事件过程，运行结果是_。Private Sub Form_Load( )Text1.Text=“ “Text1.SetFocusFor i=1 To 10
42、Sum=Sum+iNext iText1.Text=SumEnd Sub（分数：2.00）填空项 1:_ （正确答案：出错）解析：40.控件被拖动时显示的图标是由控件的 1 属性决定的。（分数：2.00）填空项 1:_ （正确答案：DragIcon）解析：41.将变量 SUM1、SUM2 定义为单精度型，写出相的定义语句 1。（分数：2.00）填空项 1:_ （正确答案：Dim Sum1 As Single,Sum2 As single）解析：42.当用户建立窗体文件时，都会产生 1。（分数：2.00）填空项 1:_ （正确答案：相应的工程文件）解析：43.计时器控件能有规律的以一定时间间隔触
43、发 1 事件，并执行该事件过程中的程序代码。（分数：2.00）填空项 1:_ （正确答案：Timer）解析：44.下列程序的输出结果为_。num=2While num=3num=num+1Print numWend（分数：2.00）填空项 1:_ （正确答案：34）解析：45.设有如下程序Private Sub Search(a()As Variant,By Val key As Variant,index%)Dim I%For I=LBound(a) To UBound(a)If key=a(I) ThenIndex=IExit SubEnd IfNext IIndex=-1End SubP
44、rivate Sub Form_Load()ShowDim b() As VariantDim n As Integerb=Array(1,3,5,7,9,11,13,15)Call Search(b,11,n)print nEnd Sub程序运行后，输出结果是_。（分数：2.00）填空项 1:_ （正确答案：5）解析：46.执行下列程序，输入数字 3，则输出结果为_。Private Sub Command1_Click()a=inputBox(“Input a Number“)If a5 ThenGoTo L5Else If a2 ThenGoTo L2ElseGoTo L3End IfEx
45、it SubL5:Print a Mod 5Exit SubL3:Print a Mod 3Exit SubL2：Print a Mod 2End Sub（分数：2.00）填空项 1:_ （正确答案：1）解析：以下程序的功能是：把当前目录下的顺序文件 smtext1.txt 的内容读入内存，并在文本框 Text1 中显示出来。请填空。Private Sub Command1_Click()Dim inData As StringText1.Text=“Open“./smtext1. (12) AS#1Do While (13) Input#1,inDataText1.Text=Text1.Te
46、xt&inDataLoopClose#1End Sub（分数：4.00）填空项 1:_ （正确答案：For Input）解析：填空项 1:_ （正确答案：NotEOF(1)）解析：47.窗体中有图片框(Picturel)和计时器(Timed)两个控件。运行程序时，将图片加载到图片框中，然后图片框以每 2 秒钟一次的速度向窗体的右下角移动，每次向下、向右移动 100twip。请填空。Private Sub Form_Load()Prcture1_Picture=LoadPicture(“c/pic/mouth.ico“)_.Interva=2000End SubPrinvate Sub Timer1_Timer()Static x,y As Integerx=x+100y=y+100Pictuer1.Movex，yEnd Sub（分数：2.00）填空项 1:_ （正确答案：Timer1）解析：48.语句 Print“Int(-13.2)=“；Int(-13.2)的输出结果为 1。（分数：2.00）填空项 1:_ （正确答案：Int(-13.2)=-14）解析：
