全国计算机等级考试二级vb题库（上）
52000. 下列叙述中正确的是(C)(单)
A.只有窗体才是Visual Basic中的对象
B.只有控件才是Visual Basic中的对象
C.窗体和控件都是Visual Basic中的对象
D.窗体和控件都不是Visual Basic中的对象
52001.下列可以激活属性窗口的操作是(D)(单)
A.用鼠标双击窗体的任何部位
B.执行"文件"菜单中的"属性窗口"命令
C.执行"编辑"菜单中的"属性窗口"命令
D.按F4键
52002下列能打开工具箱窗口的操作是(A)(单)
A.执行"视图"菜单中的"工具箱"命令 B.按Alt键
C.单击属性窗口上的"工具箱"按钮 D.按Ctrl键
52003.假定已在一个窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置该窗体的Name属性，预先应执行的操作是(D)(单)
A.单击窗体上有控件的地方 B.单击任一个控件
C.不执行任何操作 D.双击窗体的标题栏
52004.为了把窗体上的某个控件变为活动的，应执行的操作是(B)(单)
A.单击窗体的空白处 B.单击该控件的内部
C.双击该属性列表框 D.双击窗体
52005.确定一个控件在窗体上的位置的属性是(D)(单)
A.Width或Height B.Top和Height
C.Top或Width D.Top和Left
52006.确定一个窗体或控件的大小的属性是(A)(单)
A.Width或Height B.Top和Width
C.Top或Left D.Top和Left
52007.为了同时改变一个活动控件的高度和宽度，正确的操作是(A)(单)
A.拖拉位于控件左上角 B.只能拖拉位于控件右下角
C.只能拖拉位于控件左下角
D.不能同时改变控件的高度和宽度
52008.面向对象的程序设计指满足(B)(单)
A.虚拟化、结构化、动态化 B.封装性、继承性、多态性
C.对象的链接、动态链接、动态数据交换
D.ODBC、DDE、OLE
52009.用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为(A)(单)
A.面向对象的程序设计 B.结构化程序设计
C.事件驱动的编程机制 D.程序设计
52010.VB集成开发环境开发的应用程序不适宜的运行环境是(A)(单)
A.WINDOS 32 B.WINDOWS 9X
C.WINDOWS NT D.WINDOWS 2000
52011.VB6共有三个版本，按功能从弱到强的顺序排列应是(C)(单)
A.学习版、专业版和工程版 B.学习版、工程版和专业版
C.学习版、专业版和企业版 D.学习版、企业版和专业版
52012.VB集成开发环境有三种工作状态，不属于三种工作状态之一的是(B)(单)
A.设计状态 B.编写代码状态
C.运行状态 D.中断状态
52013.不能打开代码窗口的操作是(B)(单)
A.双击窗体设计器的任何地方 B.按下F键
C.单击工程窗口中的"查看代码"按钮
D.选择"视图"下拉菜单中的"代码窗口"
52014.在VB中，工程文件的扩展名是(B)(单)
A..frm B..vbp C..bas D..frx
52015.在VB中，窗体文件的扩展名是(A)(单)
A..frm B..vbp C..bas D..frx
52016.VB集成开发环境可以(D)(单)
A.编辑、调试、运行程序，但不能生成可执行程序
B.编辑、生成可执行程序、运行程序，但不能调试程序
C.编辑、调试、生成可执行程序，但不能运行程序
D.编辑、调试、运行程序，也能生成可执行程序
52017.英文"VISUAL"的含义是(A)(单)
A.可视化 B.集成 C.结构化 D.调试
52018.标准模块文件的扩展名是(C)(单)
A.frm B.vbp C.bas D.vbg
52019.VB集成开发环境中，在(C)中编写代码(单)
A.状态栏 B.属性列表框 C.代码框 D.标题栏
52020.在面向对象的程序设计过程中，英文缩写"OOP"的含义是(C)(单)
A.事件驱动的编程机制 B.结构化程序设计语言
C.面向对象的程序设计 D.可视化程序设计
52021.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是(D)(单)
A.Timer1.Interval=0.5 B.Timer1.Interval=5
C.Timer1.Interval=50 D.Timer1.Interval=500
52022.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Static x As Integer
Cls
For t=1 To 2
y=y+x
x=x+2
Next t
Print x,y
End Sub
程序运行后，连续三次单击Command1按钮后，窗体上显示的是(A)(单)
A.4 2 B.12 18 C.12 30 D.4 6
52023.以下关于多重窗体程序的叙述中，错误的是(A)(单)
A.用Hide方法不但可以隐藏窗体,且能清除内存中的窗体
B.在多重窗体程序中，各窗体的菜单是彼此独立的
C.在多重窗体程序中，可以根据需要指定启动窗体
D.对于多重窗体程序中，单独保存每个窗体
52024.以下关于文件的叙述中，错误的是(B)(单)
A.顺序文件中的记录一个接一个顺序存放
B.随机文件中记录的长度是不相同的
C.执行打开文件的命令后，自动生成一个文件指针
D.EOF函数作用是判断文件的指针是否指向文件末尾
52025.以下叙述中错误的是(D)(单)
A.事件过程是响应特定事件的一段程序
B.不同的对象可以具有相同名称的方法
C.对象的方法是执行指定操作的过程
D.编程者可以自由更改代码框右上边的过程列表的事件名称
52026.以下合法的Visual Basic变量的名称是(A)(单)
A.a3 B.Const C.9abc D.a#x!
52027.当一个复选框被选中时，它的Value属性的值是(C)(单)
A.3 B.2 C.1 D.0
52028.表达式 5 Mod 3+5\3的值是(B)(单)
A.0 B.3 C.4 D.6
52029.设x=4,y=8,z=7, 表达式：(x＜y) Or z＜x 的值是(C)(单)
A.1 B.-1 C.TRUE D.FALSE
52030.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
a$="VisualBasic"
Print String(3,a$)
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是(A)(单)
A.VVV B.Vis C.sic D.11
52031.设有如下程序段：
x=2
For c=1 To 4 Step 2
x=x+c
Next c
运行以上程序后，x的值是(A)(单)
A.6 B.7 C.8 D.9
52032.以下叙述中错误的是(A)(单)
A.在KeyPress事件过程中不能识别键盘键的按下与释放
B.在KeyPress事件过程中不能识别回车键
C.在KeyDown和KeyUp事件过程中，从键盘输入的字母"A"和字母"a"对应的KeyCode视作相同的字母
D.在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符
52033.执行如下两条语句，窗体上显示的是(C)(单)
A=9.8596
Print Format(a,"000.00")
A.0,009.86 B.9.86 C.009.86 D.0,009.86
52034.在窗体上画一个名称为CommandDialog1 的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：
Private Sub Command1_Click( )
CommonDialog1.FileName =""
CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="VBTest"
CommonDialog1.Action=1
End Sub
对于这个程序，以下叙述中错误的是(D)(单)
A.该对话框被设置为"打开"对话框
B.在该对话框中指定的文件名为空
C.该对话框的标题为VBTest
D.在该对话框中指定的默认文件类型为文本文件(*.Txt)
52035.设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：
Private Sub Command1_Click( )
Dim a As Integer
a=10
Call g(Form2,a)
End Sub
Private Sub g(f As Form,x As Integer)
y=Iif(x＞10,100,-100)
f.Show
f.Caption=y
End Sub
运行以上程序，正确的结果是(B)(单)
A.Form1的Caption属性值为100
B.Form2的Caption属性值为-100
C.Form1的Caption属性值为-100
D.Form2的Caption属性值为100
52036.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
Private Sub Command1_Click( )
Dim x As Integer
Static y As Integer
x=10
y=5
Call f1(x,y)
Print x,y
End Sub
Private Sub f1(ByRef x1 As Integer, y1 As Integer)
x1=x1+2
y1=y1+2
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)
A.10 5 B.12 5 C.10 7 D.12 7
52037.Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
Dim n As Integer
n=3
If n＜10 Then
Call GetArray(a,n)
End If
End Sub
Private Sub GetArray(b( ) As Integer,n As Integer)
Dim c(10) As Integer
j=0
For t=1 To n
b(t)=Rnd*100
If b(t)/2=b(t)\2 Then
j=j+1
c(j)=b(t)
End If
Next t
Print j
End Sub
以下叙述中错误的是(C)(单)
A.数组b中的数范围为0-100
B.c数组下标的下界从1开始
C.GetArray过程的参数n是按值传送的
D.语句If b(t)/2=b(t)\2 Then 是判断数组b中元素的值是否为整数
52038.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click( )
Dim a
a= Array(1,2,3,4,5)
For c=1 To Ubound(a)
a(c) = a(c)+c-1
Next c
Print a(3)
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是(B)(单)
A.4 B.5 C.6 D.7
52039.阅读程序：
Option Base 1
Private Sub Form_Click( )
Dim arr
Dim Sum%
Sum = 0
arr = Array(1, 3, 5, 7, 9)
For t = 1 To 5
Sum = Sum + arr(t)
Next t
Print Sum
End Sub
程序运行后，单击窗体，输入结果为(B)(单)
A.5 B.9 C.25 D.15
52040.在窗体上画一个名称为File1的文件列表框，并编写如下程序：
Private Sub File1_DblClick( )
x=Shell(File1.FileName,1)
End Sub
以下关于该程序的叙述中，错误的是(A)(单)
A.x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1)
B.双击文件列表框中的文件，将触发该事件过程
C.要执行的文件的名字通过File1.FileName指定
D.File1中显示的是当前驱动器、当前目录下的文件
52041.在窗体上画一个名称为Label1、标题为"VisualBasic考试"的标签，两个名称分别为Command1和Command2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500。编写如下程序：
Private Sub Form_Load( )
Timer1.Enabled=False
End Sub
Private Sub Command1_Click( )
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer( )
If Label1.Left＜ Form1.Width Then
Label1.Left = Label1.Left + 20
Else
Label1.Left=0
End If
End Sub
程序运行后，单击"开始"按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是(A)(单)
A.标签的移动方向为自右向左
B.单击"停止"按钮后再单击"开始"按钮，标签从停止的位置继续移动
C.当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D.标签按指定的时间时隔移动
52042.规范地说，VB是一种(A)的开发工具(单)
A.面向对象 B.面向用户 C.面向屏幕 D.面向窗体
52043.VB6设计界面包含多个视窗，控制这些视窗显示或关闭的命令包含在(D)下拉菜单中(单)
A.文件 B.工程 C.编辑 D.视图
52044下面(D)操作不是激活或显示属性列表框的操作(单)
A.按快捷键F4
B.点击工具栏中的"属性列表框"按钮
C.选择"视图"下拉菜单的"属性窗口"项
D.双击窗体中的某一对象
52045.Visual Basic程序中分隔各语句的字符是(B)(单)
A.′ B.: C.\ D._
52046.假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为"VB Test"的语句为(B)(单)
A.Form1 = "VB Test" B.Caption ="VB Test"
C.Form1.Text = "VB Test" D.Form1.Name ="VB Test"
52047.下列不能打开代码窗口的操作是(D)(单)
A.双击窗体上的某个控件双击 B.双击窗体
C.按F7键 D.单击窗体或控件
52048.Visual Basic程序中语句行的续行符是(D)(单)
A.′ B.: C.\ D. _
52049.Visual Basic程序中的注释所使用的字符是(A)(单)
A.′ B.: C.\ D._
52050.下列说法中正确的是：为了保存一个Visual Basic应用程序，应当(D)(单)
A.只保存窗体模块文件(.frm) B.只保存工程文件(.vbp)
C.分别保存工程文件和标准模块文件(.bas)
D.分别保存工程文件、窗体文件和标准模块文件
52051.为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为(B)(单)
A.1 B.2 C.3 D.4
52052.下列说法中正确的是：为了载入一个只有一个工程（此工程下有三个窗体）的Visual Basic应用程序，应当(B)(单)
A.只装入窗体模块文件(.frm)
B.先装入工程文件(.vbp)即可
C.分别装入工程文件和标准模块文件(.bas)
D.分别装入工程文件、窗体文件和标准模块文件
52053.要使一个标签能够显示所需要的文本，应设置该标签的(A)属性的值(单)
A.Caption B.Name C.Text D.AutoSize
52054.要使一个命令按钮上有图形，应该设置该按钮的(A)属性值，同时设置它的style属性为1(单)
A.Picture B.Style
C.DownPicture D.DisabledPicture
52055.为使计时器对象每隔5秒钟产生一个时钟事件(Timer事件)，则其Interval属性值应设置为(D)(单)
A.5 B.300 C.500 D.5000
52056一个标准的VB应用程序至少要包含一个(C)对象(单)
A.文本框 B.标签框 C.窗体 D.命令按钮
52057.要使一个文本框对象能够显示多行文字，应设置该对象的(B)属性值为True(单)
A.Text B.MultiLine C.Style D.Visible
52058.下列的(A)对象支持KeyPress事件(单)
A.文本框 B.命令按钮 C.标签框 D.图像框
52059.若要将窗体从内存中卸载，其实现的方法或语句是(B)(单)
A.Show B.Unload C.Load D.Hide
52060.以下选项中，不是VB标准控件的是(C)(单)
A.命令按钮 B.定时器 C.通用对话框 D.单选框
52061.双击窗体中的对象后，VB将显示的窗口是(C)(单)
A.工具箱 B.项目（工程）窗口C.代码窗口 D.属性窗口
52062.下述选项中，VB的程序设计方法是(B)(单)
A.面向对象、顺序驱动 B.面向对象、事件驱动
C.面向过程、事件驱动 D.面向过程、顺序驱动
52063.在VB中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)
A.Show B.Unload C.Load D.Hide
52064.文本框的默认属性是(B)(单)
A.Caption B.Text C.Name D.Top
52065.标签默认属性是(A)(单)
A.Caption B.Text C.Name D.Top
52066.执行以下程序段：
a$="abbacddcba"
For I=6 To 2 Step -2
X=Mid(a,I,I)
Y=Left(a,I)
z=Right(a,I)
z=Ucase(X&Y&z)
Next I
Print z
输出结果为(B)(单)
A.ABA B.BBABBA C.ABBABA D.AABAAB
52067.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a As Variant
a=Array(1,2,3,4,5)
Sum=0
For I=1 To 5
Sum = sum+a(I)
Next I
x=Sum/5
For I =1 To 5
If a(I)＞x Then Print a(I);
Next I
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)
A.1 2 B.1 2 3 C.3 4 5 D.4 5
52068.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。Model1代码如下：
Public x As Integer
Public y As Integer
Sub S1( )
x =1
S2
End Sub
Sub S2( )
y=10
Form1.Show
End Sub
Model2的代码如下：
Sub Main( )
S1
End Sub
其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是(C)(单)
A.Form1-＞Model1-＞Model2
B.Model1-＞Model2-＞Form1
C.Model2-＞Model1-＞Form1
D.Model2-＞Form1-＞Model1
52069.设有如下程序段：
a$="beijingshanghai"
b$=Mid(a$,InStr(a$,"g")+1)
执行上面的程序段后，变量b$的值为【shanghai】
52070.以下程序段的输出结果是【3】
Num =0
Do While num＜＝2
num = num+1
Loop
Print num
52071.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Move 500，500
End Sub
程序运行后，单击命令按钮，执行的操作为(A)(单)
A.命令按钮移动到距窗体左边界、上边界各500的位置
B.窗体移动到距屏幕左边界、上边界各500的位置
C.命令按钮向左、上方向各移动500
D.窗体向左、上方向各移动500
52072.在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是(D)(单)
A.TabStop B.Enabled C.Visible D.TabIndex
52073.在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为(A)(单)
A.For i=0 To List1.ListCount-1 ...... Next i
B.For i=0 To ListCount-1 ...... Next i
C.For i=1 To List1.listCount ...... Next i
D.For i=1 To ListCount ...... Next i
52074.以下Case语句中错误的是(C)(单)
A.Case 0 To 10 B.Case Is＞10
C.Case Is＞10 And Is＜50 D.Case 3,5,Is＞10
52075.以下关于图片框控件的说法中，错误的是(D)(单)
A.可以通过Print方法在图片框中输出文本
B.清空图片框控件中图形的方法之一是加载一个空图形
C.图片框控件可以作为容器使用
D.用图片框控件的Stretch属性可以自动调整图片框中图形的大小
52076.执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是(A)(单)
A.Visual B.Basic C.6 D.11
52077.以下叙述中错误的是(D)(单)
A.下拉式菜单能用菜单编辑器建立
B.在多窗体程序中，每个窗体都可以建立自己的菜单系统
C.能够对菜单项的Click事件编程
D.如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
52078.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click( )
a = "12345"
Print Format$(a, "000.00")
End Sub
程序运行后，单击命令按钮，窗体上显示的是(B)(单)
A.123.45 B.12345.00 C.12345 D.00123.45
52079.以下关于函数过程的叙述中，正确的是(A)(单)
A.函数过程形参的类型与函数返回值的类型没有关系
B.在函数过程中，过程的返回值可以有多个
C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D.如果不指明函数过程参数的类型，则该参数不能有数据类型的参数
52080.以下关于变量作用域的叙述中，正确的是(C)(单)
A.用dim定义变量是静态变量
B.静态变量必须在标准模块中声明
C.用public定义变量是全局变量
D.Static类型变量的作用域范围是它所在的窗体或模块文件
52081.确定一个控件在窗体上的位置的属性是(C)(单)
A.Width和Height B.Width或Height
C.Top和Left D.Top或Left
52082.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Text1.Text = "Visual"
Me.Text1 = "Basic"
Text1 = "Program"
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的是(C)(单)
A.Visual B.Basic C.Program D.出错
52083.以下关系表达式中，其值为False的是(A)(单)
A."ABC"＞"AbC" B."the"＜＞"they"
C."VISUAL"=UCase("Visual") D."Integer"＞"Int"
52084.语句Print int(5/4*6\5) Mod 2的输出结果是(B)(单)
A.0 B.1 C.2 D.3
52085.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click( )
strText = InputBox("请输入")
Text1.Text = strText
End Sub
Private Sub Text1_Change( )
Label1.Caption = Right(Trim(Text1.Text), 3)
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是(D)(单)
A.空 B.abcdef C.abc D.def
52086.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
x = -5
If x ＞0 Then
y = x ^ 2
Else
y = x
End If
Print y
End Sub
程序运行后，单击命令按钮，窗体上显示的是(A)(单)
A.-5 B.25 C.1 D.-1
52087.一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As
Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是(A)(单)
A.变量X、Y的作用域相同 B.Y的作用域是Model1
C.在Form1的任何地方中可以直接使用Y
D.在Form2中可以直接使用X和Y
52088.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是(A)(单)
A.Drive1_Change B.Drive1_Click
C.Dir1_Click D.Dir1_KeyPress
52089.在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码：
Option Base 1
Private Sub Command1_Click( )
Dim a
s = 0
a = Array(1, 2, 3, 4)
For I = 4 To 1 Step -1
s = s + a(I)
Next I
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是(D)(单)
A.4321 B.1234 C.34 D.10
52090.在窗体上画一个名称为Text1的文本框，编写以下代码：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii ＜ 65 Or KeyAscii＞ 90 Then
msgBox "请输入大写字母"
KeyAscii = 0
End If
End Sub
以下能说明该事件过程正确是(A)(单)
A.要求文本框只能接收大写字母的输入
B.要求文本框只能接收小写字母的输入
C.要求文本框只能接收数字的输入
D.要求文本框只能接收65到90之间的数值的输入
52091.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
If n\2 = n/2 Then
f = f1(n)
Else
f = f2(n)
End If
Print f; n
End Sub
Public Function f1(ByRef x)
x=x*x
f1=x+x
End Function
Public Function f2(ByVal x)
x=x*x
f2=x+x+x
End Function
程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)
A.72 36 B.108 36 C.72 6 D.27 3
52092.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
c = "1234"
For i = 1 To 4
c1 = Trim(Str( ))
Print c1
Next i
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容
1
12
123
1234
则在下划线处应填入的内容为(B)(单)
A.Right(c1,i) B.Left(c1,i)
C.Mid(c1,i,1) D.Mid(c1,i,i)
52093.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j ＞Sqr(i) Then Print i
Next i
End Sub
该事件过程的功能是(C)(单)
A.输出n以内的奇数 B.输出n以内的偶数
C.输出n以内的素数 D.输出n以内能被j整除的数
52094.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click( )
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是(C)(单)
A.11 B.10 C.9 D.8
52095.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i, j) = i + j
Next j
Next i
Text1.Text = array1(2, 3) + array1(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)
A.15 B.14 C.13 D.12
52096.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。
52097.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。
Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
popupmenu mnuEdit
End If
End Sub
52098.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
【popupmenu】 mnuEdit
End If
52099.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【Interval】属性设置为500。
52100.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval属性设置为【500】。
52101.与数学表达式ln(a+b)/(3x)+5 对应的Visual Basic表达式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】
*52102.将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【】
52103.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
Private Sub Option1_Click(Index As Integer)
Select Case 【Index】
Case 0
a = "宋体"
Case 1
a = "黑体"
Case 2
a = "楷体＿GB2312"
End Select
text1.fontname=a
End Sub
52104.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
Private Sub Option1_Click(Index As Integer)
Select Case index
Case 0
a = "宋体"
Case 1
a = "黑体"
Case 2
a = "楷体＿GB2312"
End Select
text1.【fontname】=a
End Sub
52105.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2。程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。
Private Sub Combo1_Click( )
Call ShowItem(Combo1, Label1)
End Sub
Private Sub Combo2_Click( )
Call ShowItem(Combo2, Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
【tmplabel】.Caption =tmpCombo.Text
End Sub
52106.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。
Private Sub Combo1_Click( )
Call ShowItem(Combo1, Label1)
End Sub
Private Sub Combo2_Click( )
Call ShowItem(Combo2, Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
tmpLabel.Caption =【tmpcombo】.Text
End Sub
52107.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
n = 5
f = 1
s = 0
For c = 1 To n
f = f*【7】
s = s + f
Next c
Print s
End Sub
该事件过程的功能是计算1!+2!+3!+…+n!的值。
52108.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
For I = 1 To 10
a(I) = I
Next I
Call【swap】a( )
For I = 1 To 10
Print a(I);
Next
End Sub
Sub swap(b( ) As Integer)
n = ubound(b)
For I = 1 To n / 2
t = b(I)
b(I) = b(n)
b(n) = t
n=n-1
Next I
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。
52109.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
For I = 1 To 10
a(I) = I
Next I
Call swap（a( )）
For I = 1 To 10
Print a(I);
Next
End Sub
Sub swap(b( ) As Integer)
n =【ubound(b)】
For I = 1 To n / 2
t = b(I)
b(I) = b(n)
b(n) = t
n=n-1
Next I
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。
52110.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
For I = 1 To 10
a(I) = I
Next I
Call swap（a( )）
For I = 1 To 10
Print a(I);
Next I
End Sub
Sub swap(b( ) As Integer)
n = ubound(b)
For I = 1 To n / 2
t = b(I)
b(I) = b(n)
b(n) = t
n=【n-1】
Next I
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。
52111.以下程序段运行的结果为(B)(单)
Private Sub Form_Click( )
MyDate = #7/21/1997#
Print Format(MyDate, "m/d/yy")
Print Format(MyDate,"yyyy年m月dd日")
End Sub
A.7/21/97 1997年7月21日
B.7-21-97 1997年7月21日
C.97/7/21 1997年7月21日
D.7/21/97 97年7月21日
52112.以下程序段运行的结果为(B)(单)
Private Sub Form_Click( )
MyTime = #9:21:30 PM#
MyDate = #7/21/1997#
Print Tab(2); Format(MyDate, "mmmm-yy")
Print Tab(2); Format(MyTime, "hh:mm:ss A/P")
End Sub
A.July-97 9:21:30 P B.July-97 09:21:30 P
C.07-97 9:21:30 P D.July-97 9:21:30
52113.以下程序段运行的结果为(C)(单)
Private Sub Form_Click( )
MyDate = #7/21/1997#
Print Format(MyDate, "dddd,mmmm,dd,yyyy")
End Sub
A.21,07,1997 B.21,07,21,1997
C.Monday,July,21,1997 D.Monday,07,21,1997
52114.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Text1_LostFocus( )
If Not IsNumeric(Text1) Then
MsgBox "帐号有非数字字符错误"
Text1.Text = ""
Text1.SetFocus
else
MsgBox "帐号正确"
End If
End Sub
当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)
A.显示对话框，提示信息为"帐号正确"
B.显示对话框，提示信息为"帐号有非数字字符错误"
C.程序出错 D.没有任何提示
