1、二级 VISUAL+BASIC 笔试-182 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.编写如下事件过程：Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Shift=6 and Button thenPrint“Hello“End ifEnd Sub程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下( )操作。（分数：2.00）A.同时按下 Shift 键和鼠标左键B.同时按下 Shift 键和
2、鼠标右键C.同时按下 Ctrl、Alt 和鼠标左键D.同时按下 Ctrl、Alt 和鼠标右键2.从键盘上输入一个实数 nu，利用字符串函数对该数进行处理，如果输出的内容不是字符 End，则程序输出的内容是( )。nu=InputBox(“nu=“)n$=Str$(nu)p=InStr(n$，“.“)if p0 ThenPrint Mid$(n$,P)ElsePrint“END“End If（分数：2.00）A.用字符方式输出数据 nuB.输出数据的整数部分C.输出数据的小数部分D.只去掉数据中的小数点，保留所有数字输出3.Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素
3、是( )。（分数：2.00）A.属性、事件、方法B.控件、属性、事件C.窗体、控件、过程D.窗体、控件、模块4.关于 MDI 窗体下列说法正确的是( )。（分数：2.00）A.一个应用程序可以有多个 MDI 窗体B.子窗体可以移到 MDI 窗体以外C.不可以在 MDI 窗体上放置按钮控件D.MDI 窗体的子窗体不可以拥有菜单5.设定文本框内的文字内容是否允许修改的属性是( )。（分数：2.00）A.TextB.LockedC.PasswordChaurD.Multiline6.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_C
4、lick()Dim a As Integer,s As Integera=8s=1Dos=s+aa=a-1Loop While a=0print s,aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是( )。（分数：2.00）A.7 9B.34 0C.9 7D.死循环7.在 Visual Basic 中语句的续行符采用( )。（分数：2.00）A.空格与短线B.短线与空格C.空格与下划线D.下划线与空格8.下面四个选项，不是窗体属性的是( )。（分数：2.00）A.MinButtonB.MaxButtonC.CaptionD.Load9.可以用 InputBox 函数产生“输入对话
5、框”。若执行下列语句st$=InputBox(“请输入字符串“，“字符串对话框“，“字符串“)当用户输入完毕，按“确定”按钮后，st$变量的内容是( )。（分数：2.00）A.字符串B.请输入字符串C.字符串对话框D.用户输入内容10.以下关于 KeyPress 事件过程中参数 KeyAscii 的叙述中正确的是( )（分数：2.00）A.KeyAscii 参数是所按键的 ASCII 码B.KeyAscii 参数的数据类型为字符串C.KeyAscii 参数可以省略D.KeyAscii 参数是所按键上标注的字符11.下列程序段的执行结果为( )。ForX=5 To 1 Step-1For Y=1
6、 To 6-XPrint Tab (Y+5)；“*“Next YPrintNext X（分数：2.00）A.*B.*C.*D.*12.函数 Int(Rnd*6+1)的取值范围是( )。（分数：2.00）A.从 1 到 7 共 7 个整数B.从 0 到 7 共 8 个整数C.从 1 到 6 共 6 个整数D.从 0 到 6 共 7 个整数13.当窗体启动时可通过( )属性控制窗体位于所有者的中心位置。（分数：2.00）A.MDIChildB.LinkModeC.WindowStateD.StartUpPosition14.下列数据结构中，能用二分法进行查找的是( )。（分数：2.00）A.顺序存
7、储的有序线性表B.线性链表C.二叉链表D.有序线性链表15.设在窗体上有一个名称为 Command1 的命令按钮，并有以下事件过程：Private Sub Command1_Click()Static b As Variantb=Array(1,3,5,7,9)End Sub此过程的功能是把数组 b 中的 5 个数逆序存放(即排列为 9，7，5，3，1)。为实现此功能，省略号处的程序段应该是( )。（分数：2.00）A.For i=0 To 5-1/2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNextB.For i=0 To 5tmp=b(i)b(i)=b(5-i-1)
8、b(5-i-1)=tmpNextC.For i=0 To 5/2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNextD.For i=1 To 5/2tmp=b(i)b(i)b(5-i-1)b(5-i-1)=tmpNext16.当条件为 5x10 时，则 x=x+1，则以下语句正确的是( )。（分数：2.00）A.if 5x10 Then x=x+lB.if 5x or x10 Then x=x+1C.if 5x and x10 Then x=x+1D.if 5x or x10 Then x=x+117.有以下程序：Sub subP(b()As Integer)For i=
9、1 To 4b(i)=2*iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4)As Integera(1)=5a(2)=6a(3)=7a(4)=8subPa()For i=1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为( )。（分数：2.00）A.2468B.5678C.10121416D.出错18.下面的数组声明语句中( )是正确的。（分数：2.00）A.Dim A3,4As IntegerB.Dim A(3,4)As IntegerC.Dim A3;4As IntegerD.Dim
10、 A3;4As Integer19.执行以下程序段后，x 的值为( )。Dim x As Integer,i As Integerx=0For i=20 To 0 Step -2x=x+i/5Next i（分数：2.00）A.16B.17C.18D.1920.在设计应用程序时，通过( )窗口可以查看到应用程序工程中的所有组成部分。（分数：2.00）A.代码窗口B.窗体设计窗口C.属性窗口D.工程资源管理器窗口21.Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是( )。（分数：2.00）A.属性、控件和方法B.属性、事件和方法C.窗体、控件和过程D.控件、过程和模块2
11、2.如果 Form1 是启动窗体，并且 Form1 的 Load 事件过程中有 Form2.Show，则程序启动后( )。（分数：2.00）A.发生一个运行时错误B.发生一个编译时错误C.在所有的初始化代码运行后 Form1 是活动窗体D.在所有的初始化代码运行后 Form2 是活动窗体23.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim x As IntegerStatic y As IntegerClsx=x+5y=y+3Print x,yEnd Sub程序运行时，两次单击命令按钮 Command1 后，
12、窗体显示的结果是( )。（分数：2.00）A.10 6B.5 6C.5 3D.10 324.与 Form1.Show 方法效果相同的是( )。（分数：2.00）A.Form1.Visible=TrueB.Form1.Visible=FalseC.Visible.Form1=TrueD.Visible.Form1=False25.鼠标移动经过控件时，将触发控件的( )事件。（分数：2.00）A.MouseDownB.MouseUpC.MouseMoveD.Click26.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()A=“12“B=“34“
13、C=“56“Print A+B+CEnd Sub程序运行后，单击命令按钮，输出结果是( )。（分数：2.00）A.“123456“B.123456C.102D.显示出错信息27.下列可以打开立即窗口的操作是( )。（分数：2.00）A.Ctrl+DB.Ctrl+EC.Ctrl+FD.Ctrl+G28.窗体的 Enable 属性的值是( )类型的数据。（分数：2.00）A.整型B.字符型C.逻辑型D.实型29.在 Visual Basic 环境下，当写一个新的 Visual Basic 程序时，所做的第一件事是( )。（分数：2.00）A.编写代码B.新建一个工程C.打开属性窗D.进入 Visu
14、al Basic 环境30.单击命令按钮时，下列程序代码的执行结果为( )。Private Function FirProc(x As Integer,y As Integer,z As Integer)FirProc=2*x+y+3*zEnd FuncfionPrivate Function SecProc(x As Integer,y As Integer,z As Integer)SecProc=FirProc(z，x，y)+xEnd FuncfionPrivate Sub Command1_Click()Dim a As IntegerDim b As IntegerDim c As
15、Integera=2b=3c=4Printf SecProc(c,b,a)End Sub（分数：2.00）A.21B.19C.17D.3431.下列程序段的执行结果为( )。A=“HELLOGOODMORNING“B=“WANGCHANGLI“C=Left(A,5)+“!“D=Right(A,7)E=Mid(A,6,4)F=Mid(B,Len(B)-6,5)+“!“G=E+“ “+D+“!“H=C+“ “+FPrint H+“ “+G（分数：2.00）A.HELLO!CHANG!GOOD MORNING!B.HELLO!WANG!G00D MORNING!C.HELLO!LI!GOOD MOR
16、NING!D.HELLO!CHANG!GOOD!MORNING!32.下列程序段的执行结果为( )。I=4x=5DoI=I+1x=x+2Loop Until I=7Print“I=“;IPrint“x=“;x（分数：2.00）A.I=4 x=5B.I=7 x=15C.I=6 x=8D.I=7 x=1133.假定在窗体上建立一个通用对话框，其名称为 CommonDialog1，用下面的语句可以建立一个对话框：CommonDialog1.Action=4与该语句等价的语句是( )。（分数：2.00）A.CommonDialog1.ShowOpenB.CommonDialog1.ShowFontC.
17、CommonDialog1.ShowColorD.CommonDialog1.ShowSave34.产生10，37之间的随机整数的 Visual Basic 表达式是( )。（分数：2.00）A.Int(Rnd(1)*27)+10B.Int(Rnd(1)*28)+10C.Int(Rnd(1)*27)+11D.Int(Rnd(1)*28)+1135.下列各种窗体事件中，不能由用户触发的事件是( )。（分数：2.00）A.Load 事件和 Unload 事件B.Click 事件和 Unload 事件C.Click 事件和 DblClick 事件D.Load 事件和 Initialize 事件二、填
18、空题(总题数：12，分数：30.00)36.图案表示 1。（分数：2.00）填空项 1:_37.要选择多个不相邻的控件，按住 1 或 SHIFT 键不放，再单击要选择的控件。（分数：2.00）填空项 1:_38.语句 Print 5*5/5/5 的输出结果是 1。（分数：2.00）填空项 1:_39.表达式 Fix(-12.08)+Int(-23.82)的值为 1。（分数：2.00）填空项 1:_40.数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，因此，基于逻辑结构的应用程序不必修改，称为 1。（分数：2.00）填空项 1:_41.在程序运行时，如果将框架的
19、 1 属性设为 False，则框架的标题呈灰色，同时框架内的所有对象均被屏蔽，不允许用户对其进行操作。（分数：2.00）填空项 1:_42.VB6.0 保存工程文件的快捷键是 1。（分数：2.00）填空项 1:_43.扩展名为.bas 的文件称为 1。（分数：2.00）填空项 1:_44.图像框控件使用系统资源比图片框 1。（分数：2.00）填空项 1:_在窗体上画一个名称为 Comb01 的组合框，然后画两个名称分别为 Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的
20、列表中，并在 Label2 中给出提示“已成功添加新输入项”，如下图所示。如果输入的项目已存在，则在 Label2 中给出提示“输入项已在组合框中”。请填空。（分数：4.00）填空项 1:_填空项 1:_以下程序的功能是将字符串“12345”逆序打印出来。请在画线处填上适当的内容使程序完整。Function rev(newl)As Stringb=Mid( (12) ,1,1)if b=“ “thenrev=“ “elserev=rev(Mid(new 1,2)+ (13) end ifEnd FunctionPrivate Sub Form_Click()old=“12345“Print o
21、ldPrint rev(old)End Sub（分数：4.00）填空项 1:_填空项 1:_以下程序代码实现单击命令按钮 Command1 时生成 20 个(0，100)之间的随机整数，存于数组中，打印数组中大于 50 的数，并求这些数的和。Private Sub Command.Click()Dim arr(1 To 20)For i=1 To 20arr(i)= (14) Text1.Text=Text1.TextxSum= (15) End IfNext xPrint Tab(20);“Sum=“;SumEnd Sub（分数：4.00）填空项 1:_填空项 1:_二级 VISUAL+BA
22、SIC 笔试-182 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.编写如下事件过程：Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Shift=6 and Button thenPrint“Hello“End ifEnd Sub程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下( )操作。（分数：2.00）A.同时按下 Shift 键和鼠标左键B.同时按下 Shift 键和鼠标右键C.同时按下 Ct
23、rl、Alt 和鼠标左键D.同时按下 Ctrl、Alt 和鼠标右键 解析：2.从键盘上输入一个实数 nu，利用字符串函数对该数进行处理，如果输出的内容不是字符 End，则程序输出的内容是( )。nu=InputBox(“nu=“)n$=Str$(nu)p=InStr(n$，“.“)if p0 ThenPrint Mid$(n$,P)ElsePrint“END“End If（分数：2.00）A.用字符方式输出数据 nuB.输出数据的整数部分C.输出数据的小数部分 D.只去掉数据中的小数点，保留所有数字输出解析：3.Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是( )。
24、（分数：2.00）A.属性、事件、方法 B.控件、属性、事件C.窗体、控件、过程D.窗体、控件、模块解析：4.关于 MDI 窗体下列说法正确的是( )。（分数：2.00）A.一个应用程序可以有多个 MDI 窗体B.子窗体可以移到 MDI 窗体以外C.不可以在 MDI 窗体上放置按钮控件 D.MDI 窗体的子窗体不可以拥有菜单解析：5.设定文本框内的文字内容是否允许修改的属性是( )。（分数：2.00）A.TextB.Locked C.PasswordChaurD.Multiline解析：6.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Com
25、mand1_Click()Dim a As Integer,s As Integera=8s=1Dos=s+aa=a-1Loop While a=0print s,aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是( )。（分数：2.00）A.7 9B.34 0C.9 7 D.死循环解析：7.在 Visual Basic 中语句的续行符采用( )。（分数：2.00）A.空格与短线B.短线与空格C.空格与下划线 D.下划线与空格解析：8.下面四个选项，不是窗体属性的是( )。（分数：2.00）A.MinButtonB.MaxButtonC.CaptionD.Load 解析：9.可以用
26、 InputBox 函数产生“输入对话框”。若执行下列语句st$=InputBox(“请输入字符串“，“字符串对话框“，“字符串“)当用户输入完毕，按“确定”按钮后，st$变量的内容是( )。（分数：2.00）A.字符串B.请输入字符串C.字符串对话框D.用户输入内容 解析：10.以下关于 KeyPress 事件过程中参数 KeyAscii 的叙述中正确的是( )（分数：2.00）A.KeyAscii 参数是所按键的 ASCII 码 B.KeyAscii 参数的数据类型为字符串C.KeyAscii 参数可以省略D.KeyAscii 参数是所按键上标注的字符解析：11.下列程序段的执行结果为(
27、)。ForX=5 To 1 Step-1For Y=1 To 6-XPrint Tab (Y+5)；“*“Next YPrintNext X（分数：2.00）A.*B.*C.* D.*解析：12.函数 Int(Rnd*6+1)的取值范围是( )。（分数：2.00）A.从 1 到 7 共 7 个整数B.从 0 到 7 共 8 个整数C.从 1 到 6 共 6 个整数 D.从 0 到 6 共 7 个整数解析：13.当窗体启动时可通过( )属性控制窗体位于所有者的中心位置。（分数：2.00）A.MDIChildB.LinkModeC.WindowStateD.StartUpPosition 解析：1
28、4.下列数据结构中，能用二分法进行查找的是( )。（分数：2.00）A.顺序存储的有序线性表 B.线性链表C.二叉链表D.有序线性链表解析：15.设在窗体上有一个名称为 Command1 的命令按钮，并有以下事件过程：Private Sub Command1_Click()Static b As Variantb=Array(1,3,5,7,9)End Sub此过程的功能是把数组 b 中的 5 个数逆序存放(即排列为 9，7，5，3，1)。为实现此功能，省略号处的程序段应该是( )。（分数：2.00）A.For i=0 To 5-1/2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)
29、=tmpNextB.For i=0 To 5tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNextC.For i=0 To 5/2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext D.For i=1 To 5/2tmp=b(i)b(i)b(5-i-1)b(5-i-1)=tmpNext解析：16.当条件为 5x10 时，则 x=x+1，则以下语句正确的是( )。（分数：2.00）A.if 5x10 Then x=x+lB.if 5x or x10 Then x=x+1C.if 5x and x10 Then x=x+1 D.if 5x or x10
30、Then x=x+1解析：17.有以下程序：Sub subP(b()As Integer)For i=1 To 4b(i)=2*iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4)As Integera(1)=5a(2)=6a(3)=7a(4)=8subPa()For i=1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为( )。（分数：2.00）A.2468 B.5678C.10121416D.出错解析：18.下面的数组声明语句中( )是正确的。（分数：2.00）A.Dim A3,4As
31、 IntegerB.Dim A(3,4)As Integer C.Dim A3;4As IntegerD.Dim A3;4As Integer解析：19.执行以下程序段后，x 的值为( )。Dim x As Integer,i As Integerx=0For i=20 To 0 Step -2x=x+i/5Next i（分数：2.00）A.16B.17C.18 D.19解析：20.在设计应用程序时，通过( )窗口可以查看到应用程序工程中的所有组成部分。（分数：2.00）A.代码窗口B.窗体设计窗口C.属性窗口D.工程资源管理器窗口 解析：21.Visual Basic 是一种面向对象的程序设
32、计语言，构成对象的三要素是( )。（分数：2.00）A.属性、控件和方法B.属性、事件和方法 C.窗体、控件和过程D.控件、过程和模块解析：22.如果 Form1 是启动窗体，并且 Form1 的 Load 事件过程中有 Form2.Show，则程序启动后( )。（分数：2.00）A.发生一个运行时错误B.发生一个编译时错误C.在所有的初始化代码运行后 Form1 是活动窗体 D.在所有的初始化代码运行后 Form2 是活动窗体解析：23.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim x As Intege
33、rStatic y As IntegerClsx=x+5y=y+3Print x,yEnd Sub程序运行时，两次单击命令按钮 Command1 后，窗体显示的结果是( )。（分数：2.00）A.10 6B.5 6 C.5 3D.10 3解析：24.与 Form1.Show 方法效果相同的是( )。（分数：2.00）A.Form1.Visible=True B.Form1.Visible=FalseC.Visible.Form1=TrueD.Visible.Form1=False解析：25.鼠标移动经过控件时，将触发控件的( )事件。（分数：2.00）A.MouseDownB.MouseUpC
34、.MouseMove D.Click解析：26.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()A=“12“B=“34“C=“56“Print A+B+CEnd Sub程序运行后，单击命令按钮，输出结果是( )。（分数：2.00）A.“123456“B.123456 C.102D.显示出错信息解析：27.下列可以打开立即窗口的操作是( )。（分数：2.00）A.Ctrl+DB.Ctrl+EC.Ctrl+FD.Ctrl+G 解析：28.窗体的 Enable 属性的值是( )类型的数据。（分数：2.00）A.整型B.字符型C.逻辑型 D.实型解
35、析：29.在 Visual Basic 环境下，当写一个新的 Visual Basic 程序时，所做的第一件事是( )。（分数：2.00）A.编写代码B.新建一个工程 C.打开属性窗D.进入 Visual Basic 环境解析：30.单击命令按钮时，下列程序代码的执行结果为( )。Private Function FirProc(x As Integer,y As Integer,z As Integer)FirProc=2*x+y+3*zEnd FuncfionPrivate Function SecProc(x As Integer,y As Integer,z As Integer)Se
36、cProc=FirProc(z，x，y)+xEnd FuncfionPrivate Sub Command1_Click()Dim a As IntegerDim b As IntegerDim c As Integera=2b=3c=4Printf SecProc(c,b,a)End Sub（分数：2.00）A.21 B.19C.17D.34解析：31.下列程序段的执行结果为( )。A=“HELLOGOODMORNING“B=“WANGCHANGLI“C=Left(A,5)+“!“D=Right(A,7)E=Mid(A,6,4)F=Mid(B,Len(B)-6,5)+“!“G=E+“ “+D
37、+“!“H=C+“ “+FPrint H+“ “+G（分数：2.00）A.HELLO!CHANG!GOOD MORNING! B.HELLO!WANG!G00D MORNING!C.HELLO!LI!GOOD MORNING!D.HELLO!CHANG!GOOD!MORNING!解析：32.下列程序段的执行结果为( )。I=4x=5DoI=I+1x=x+2Loop Until I=7Print“I=“;IPrint“x=“;x（分数：2.00）A.I=4 x=5B.I=7 x=15C.I=6 x=8D.I=7 x=11 解析：33.假定在窗体上建立一个通用对话框，其名称为 CommonDial
38、og1，用下面的语句可以建立一个对话框：CommonDialog1.Action=4与该语句等价的语句是( )。（分数：2.00）A.CommonDialog1.ShowOpenB.CommonDialog1.ShowFont C.CommonDialog1.ShowColorD.CommonDialog1.ShowSave解析：34.产生10，37之间的随机整数的 Visual Basic 表达式是( )。（分数：2.00）A.Int(Rnd(1)*27)+10B.Int(Rnd(1)*28)+10 C.Int(Rnd(1)*27)+11D.Int(Rnd(1)*28)+11解析：35.下列
39、各种窗体事件中，不能由用户触发的事件是( )。（分数：2.00）A.Load 事件和 Unload 事件B.Click 事件和 Unload 事件C.Click 事件和 DblClick 事件D.Load 事件和 Initialize 事件 解析：二、填空题(总题数：12，分数：30.00)36.图案表示 1。（分数：2.00）填空项 1:_ （正确答案：单选按钮）解析：37.要选择多个不相邻的控件，按住 1 或 SHIFT 键不放，再单击要选择的控件。（分数：2.00）填空项 1:_ （正确答案：Ctrl）解析：38.语句 Print 5*5/5/5 的输出结果是 1。（分数：2.00）填空
40、项 1:_ （正确答案：25）解析：39.表达式 Fix(-12.08)+Int(-23.82)的值为 1。（分数：2.00）填空项 1:_ （正确答案：-36）解析：40.数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，因此，基于逻辑结构的应用程序不必修改，称为 1。（分数：2.00）填空项 1:_ （正确答案：物理独立性）解析：41.在程序运行时，如果将框架的 1 属性设为 False，则框架的标题呈灰色，同时框架内的所有对象均被屏蔽，不允许用户对其进行操作。（分数：2.00）填空项 1:_ （正确答案：Enabled）解析：42.VB6.0 保存工程文件
41、的快捷键是 1。（分数：2.00）填空项 1:_ （正确答案：Ctrl+S）解析：43.扩展名为.bas 的文件称为 1。（分数：2.00）填空项 1:_ （正确答案：程序模块文件）解析：44.图像框控件使用系统资源比图片框 1。（分数：2.00）填空项 1:_ （正确答案：少）解析：在窗体上画一个名称为 Comb01 的组合框，然后画两个名称分别为 Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示“已成功添加新输入项”，如下图所示
42、。如果输入的项目已存在，则在 Label2 中给出提示“输入项已在组合框中”。请填空。（分数：4.00）填空项 1:_ （正确答案：Combo1.List(i)）解析：填空项 1:_ （正确答案：AddItem）解析：以下程序的功能是将字符串“12345”逆序打印出来。请在画线处填上适当的内容使程序完整。Function rev(newl)As Stringb=Mid( (12) ,1,1)if b=“ “thenrev=“ “elserev=rev(Mid(new 1,2)+ (13) end ifEnd FunctionPrivate Sub Form_Click()old=“12345“
43、Print oldPrint rev(old)End Sub（分数：4.00）填空项 1:_ （正确答案：new1）解析：填空项 1:_ （正确答案：b）解析：以下程序代码实现单击命令按钮 Command1 时生成 20 个(0，100)之间的随机整数，存于数组中，打印数组中大于 50 的数，并求这些数的和。Private Sub Command.Click()Dim arr(1 To 20)For i=1 To 20arr(i)= (14) Text1.Text=Text1.TextxSum= (15) End IfNext xPrint Tab(20);“Sum=“;SumEnd Sub（分数：4.00）填空项 1:_ （正确答案：Int(Rnd*99+1)）解析：填空项 1:_ （正确答案：Sum+x）解析：
