VB6程序设计-试题大全(含答案)1
0. 下列叙述中正确的是(C)(单)
A.只有窗体才是Visual Basic中的对象
B.只有控件才是Visual Basic中的对象
C.窗体和控件都是Visual Basic中的对象
D.窗体和控件都不是Visual Basic中的对象
1.下列可以激活属性窗口的操作是(D)(单)
A.用鼠标双击窗体的任何部位
B.执行"文件"菜单中的"属性窗口"命令
C.执行"编辑"菜单中的"属性窗口"命令
2.下列能打开工具箱窗口的操作是(A)(单)
A.执行"视图"菜单中的"工具箱"命令&&&
C.单击属性窗口上的"工具箱"按钮&&&&&
D.按Ctrl键
3.假定已在一个窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置该窗体的Name属性，预先应执行的操作是(D)(单)
A.单击窗体上没有控件的地方&& B.单击任一个控件
C.不执行任何操作&&&&&&&&&&
D.双击窗体的标题栏
4.为了把窗体上的某个控件变为活动的，应执行的操作是(B)(单)
A.单击窗体的空白处&&&&
B.单击该控件的内部
C.双击该属性列表框&&&&
D.双击窗体
5.确定一个控件在窗体上的位置的属性是(D)(单)
A.Width或Height&&&&
B.Top和Height
C.Top或Width&&&&&&&
D.Top和Left
6.确定一个窗体或控件的大小的属性是(A)(单)
A.Width或Height&&&&
B.Top和Width
C.Top或Left&&&&&&&&
D.Top和Left
7.为了同时改变一个活动控件的高度和宽度，正确的操作是(A)(单)
A.拖拉位于控件左上角&
&&&&B.只能拖拉位于控件右下角
C.只能拖拉位于控件左下角
D.不能同时改变控件的高度和宽度
8.面向对象的程序设计指满足(B)(单)
A.虚拟化、结构化、动态化&&
B.封装性、继承性、多态性
C.对象的链接、动态链接、动态数据交换
D.ODBC、DDE、OLE
9.用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为(A)(单)
A.面向对象的程序设计&&&
B.结构化程序设计
C.事件驱动的编程机制&&&
D.程序设计
10.VB集成开发环境开发的应用程序不适宜的运行环境是(A)(单)
32&&&&&&&&&&&&
B.WINDOWS 9X
NT&&&&&&&&&&&
D.WINDOWS 2000
11.VB6共有三个版本，按功能从弱到强的顺序排列应是(C)(单)
A.学习版、专业版和工程版&&
B.学习版、工程版和专业版
C.学习版、专业版和企业版&&
D.学习版、企业版和专业版
12.VB集成开发环境有三种工作状态，不属于三种工作状态之一的是(B)(单)
A.设计状态&&&&&&&&&
B.编写代码状态
C.运行状态&&&&&&&&&
D.中断状态
13.不能打开代码窗口的操作是(B)(单)
A.双击窗体设计器的任何地方&&&&&&&
C.单击工程窗口中的"查看代码"按钮
D.选择"视图"下拉菜单中的"代码窗口"
14.在VB中，工程文件的扩展名是(B)(单)
A..frm&&&&
B..vbp&&&&
C..bas&&&&
15.在VB中，窗体文件的扩展名是(A)(单)
A..frm&&&&
B..vbp&&&&
C..bas&&&&
16.VB集成开发环境可以(D)(单)
A.编辑、调试、运行程序，但不能生成可执行程序
B.编辑、生成可执行程序、运行程序，但不能调试程序
C.编辑、调试、生成可执行程序，但不能运行程序
D.编辑、调试、运行程序，也能生成可执行程序
17.英文"VISUAL"的含义是(A)(单)
A.可视化&&&&&
B.集成&&&&
C.结构化&&&&&&
18.标准模块文件的扩展名是(C)(单)
A.frm&&&&&&
B.vbp&&&&&&&&&&
C.bas&&&&&&
19.VB集成开发环境中，在(C)中编写代码(单)
A.状态栏&&
B.属性列表框&&&&
C.代码框&&&
20.在面向对象的程序设计过程中，英文缩写"OOP"的含义是(C)(单)
A.事件驱动的编程机制&&&&
B.结构化程序设计语言
C.面向对象的程序设计&&&&
D.可视化程序设计
21.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是(D)(单)
A.Timer1.Interval=0.5&&&
B.Timer1.Interval=5
C.Timer1.Interval=50&&&&
D.Timer1.Interval=500
22.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Static x As Integer
For t=1 To 2
程序运行后，连续三次单击Command1按钮后，窗体上显示的是(B)(单)
23.以下关于多重窗体程序的叙述中，错误的是(A)(单)
A.用Hide方法不但可以隐藏窗体,且能清除内存中的窗体
B.在多重窗体程序中，各窗体的菜单是彼此独立的
C.在多重窗体程序中，可以根据需要指定启动窗体
D.对于多重窗体程序中，单独保存每个窗体
24.以下关于文件的叙述中，错误的是(B)(单)
A.顺序文件中的记录一个接一个顺序存放
B.随机文件中记录的长度是不相同的
C.执行打开文件的命令后，自动生成一个文件指针
D.EOF函数作用是判断文件的指针是否指向文件末尾
25.以下叙述中错误的是(D)(单)
A.事件过程是响应特定事件的一段程序
B.不同的对象可以具有相同名称的方法
C.对象的方法是执行指定操作的过程
D.编程者可以自由更改代码框右上边的过程列表的事件名称
26.以下合法的Visual Basic变量的名称是(A)(单)
A.a3&&&&&&&&
B.Const&&&&&
C.9abc&&&&&&
27.当一个复选框被选中时，它的Value属性的值是(C)(单)
&&&&B.2&&&&&&&
28.表达式 5 Mod 3+5\3的值是(B)(单)
B.3&&&&&&&
29.设x=4,y=8,z=7, 表达式：(x＜y) 　Or z＜x 的值是(C)(单)
A.1&&&&&&&&&
C.TRUE&&&&&&
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
30.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
a$="VisualBasic"
Print String(3,a$)
程序运行后，单击命令按钮，在窗体上显示的内容是(A)(单)
A.VVV&&&&&&
B.Vis&&&&&&
C.sic&&&&&&
31.设有如下程序段：
For c=1 To 4 Step 2
运行以上程序后，x的值是(A)(单)
B.7&&&&&&&&&&
32.以下叙述中错误的是(A)(单)
A.在KeyPress事件过程中不能识别键盘键的按下与释放
B.在KeyPress事件过程中不能识别回车键
C.在KeyDown和KeyUp事件过程中，从键盘输入的字母"A"和字母"a"对应的KeyCode视作相同的字母
D.在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符
33.执行如下两条语句，窗体上显示的是(C)(单)
Print Format(a,"000.00")
A.0,009.86&&
C.009.86&& D.0,009.86
34.在窗体上画一个名称为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
对于这个程序，以下叙述中错误的是(D)(单)
A.该对话框被设置为"打开"对话框
B.在该对话框中指定的文件名为空
C.该对话框的标题为VBTest
D.在该对话框中指定的默认文件类型为文本文件(*.Txt)
35.设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：
Private Sub Command1_Click( )
Dim a As Integer
Call g(Form2,a)
Private Sub g(f As Form,x As Integer)
y=Iif(x＞10,100,-100)
f.Caption=y
运行以上程序，正确的结果是(B)(单)
A.Form1的Caption属性值为100
B.Form2的Caption属性值为-100
C.Form1的Caption属性值为-100
D.Form2的Caption属性值为100
36.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
Private Sub Command1_Click( )
Dim x As Integer
Static y As Integer
Call f1(x,y)
Private Sub f1(ByRef x1 As Integer, y1 As Integer)
程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)
37.Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
Dim n As Integer
If n＜10 Then
Call GetArray(a,n)
Private Sub GetArray(b( ) As Integer,n As Integer)
Dim c(10) As Integer
For t=1 To n
b(t)=Rnd*100
If b(t)/2=b(t)\2 Then
以下叙述中错误的是(C)(单)
A.数组b中的数范围为0-100
B.c数组下标的下界从1开始
C.GetArray过程的参数n是按值传送的
D.语句If b(t)/2=b(t)\2 Then 是判断数组b中元素的值是否为偶数
38.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click( )
a= Array(1,2,3,4,5)
For c=1 To Ubound(a)
a(c) = a(c)+c-1
Print a(3)
程序运行后，单击命令按钮，则在窗体上显示的内容是(B)(单)
39.阅读程序：
Option Base 1
Private Sub Form_Click( )
arr = Array(1, 3, 5, 7, 9)
For t = 1 To 5
Sum = Sum + arr(t)
程序运行后，单击窗体，输入结果为(C)(单)
A.5&&&&&&&
C.25&&&&&&
40.在窗体上画一个名称为File1的文件列表框，并编写如下程序：
Private Sub File1_DblClick( )
x=Shell(File1.FileName,1)
以下关于该程序的叙述中，错误的是(A)(单)
A.x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1)
B.双击文件列表框中的文件，将触发该事件过程
C.要执行的文件的名字通过File1.FileName指定
D.File1中显示的是当前驱动器、当前目录下的文件
41.在窗体上画一个名称为Label1、标题为"VisualBasic考试"的标签，两个名称分别为Command1和Command2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500。编写如下程序：
Private Sub Form_Load( )
Timer1.Enabled=False
Private Sub Command1_Click( )
Timer1.Enabled=True
Private Sub Timer1_Timer( )
If Label1.Left＜ Form1.Width Then
Label1.Left = Label1.Left + 20
Label1.Left=0
程序运行后，单击"开始"按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是(A)(单)
A.标签的移动方向为自右向左
B.单击"停止"按钮后再单击"开始"按钮，标签从停止的位置继续移动
C.当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D.标签按指定的时间时隔移动
42.规范地说，VB是一种(A)的开发工具(单)
A.面向对象&& B.面向用户
& C.面向屏幕&&
D.面向窗体
43.VB6设计界面包含多个视窗，控制这些视窗显示或关闭的命令包含在(D)下拉菜单中(单)
B.工程&&&&
C.编辑&& D.视图
44下面(D)操作不是激活或显示属性列表框的操作(单)
A.按快捷键F4
B.点击工具栏中的"属性列表框"按钮
C.选择"视图"下拉菜单的"属性窗口"项
D.双击窗体中的某一对象
45.Visual Basic程序中分隔各语句的字符是(B)(单)
B.:&&&&&&&&&
C.\&&&&&&&
52046.假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为"VB
Test"的语句为(B)(单)
A.Form1 = "VB
&&& B.Caption
="VB Test"
C.Form1.Text = "VB
D.Form1.Name ="VB Test"
52047.下列不能打开代码窗口的操作是(D)(单)
A.双击窗体上的某个控件双击&&&&&
B.双击窗体
C.按F7键&&&&&&&&&&&&&&&&&&&&&&
D.单击窗体或控件
52048.Visual Basic程序中语句行的续行符是(D)(单)
B.:&&&&&&&&&
C.\&&&&&&&
52049.Visual Basic程序中的注释所使用的字符是(A)(单)
B.:&&&&&&&&&
C.\&&&&&&&
52050.下列说法中正确的是：为了保存一个Visual Basic应用程序，应当(D)(单)
A.只保存窗体模块文件(.frm)& B.只保存工程文件(.vbp)
C.分别保存工程文件和标准模块文件(.bas)
D.分别保存工程文件、窗体文件和标准模块文件
52051.为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为(B)(单)
B.2&&&&&&&&&&
52052.下列说法中正确的是：为了载入一个只有一个工程（此工程下有三个窗体）的Visual
Basic应用程序，应当(B)(单)
A.只装入窗体模块文件(.frm)
B.先装入工程文件(.vbp)即可
C.分别装入工程文件和标准模块文件(.bas)
D.分别装入工程文件、窗体文件和标准模块文件
52053.要使一个标签能够显示所需要的文本，应设置该标签的(A)属性的值(单)
A.Caption&&&&
C.Text&&&&&&
D.AutoSize
52054.要使一个命令按钮上有图形，应该设置该按钮的(A)属性值，同时设置它的style属性为1(单)
&&&&&&&&&&&&&
C.DownPicture&&&&&&&&&&
D.DisabledPicture
52055.为使计时器对象每隔5秒钟产生一个时钟事件(Timer事件)，则其Interval属性值应设置为(D)(单)
A.5&&&&&&&&
B.300&&&&&&
C.500&&&&&&
52056一个标准的VB应用程序至少要包含一个(C)对象(单)
A.文本框&&&
B.标签框&&&
C.窗体&&&&&&
D.命令按钮
52057.要使一个文本框对象能够显示多行文字，应设置该对象的(B)属性值为True(单)
A.Text&&&&
B.MultiLine&&
C.Style&&&&&&
52058.下列的(A)对象支持KeyPress事件(单)
A.文本框&&
B.命令按钮&&
C.标签框&&&&&&
52059.若要将窗体从内存中卸载，其实现的方法或语句是(B)(单)
A.Show&&&&&&
B.Unload&&
C.Load&&&&&&
52060.以下选项中，不是VB标准控件的是(C)(单)
A.命令按钮&&&
B.定时器&&
C.通用对话框&&&
52061.双击窗体中的对象后，VB将显示的窗口是(C)(单)
A.工具箱& B.项目（工程）窗口C.代码窗口&
D.属性窗口
52062.下述选项中，VB的程序设计方法是(B)(单)
A.面向对象、顺序驱动&&&
B.面向对象、事件驱动
C.面向过程、事件驱动&&&
D.面向过程、顺序驱动
52063.在VB中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)
B.Unload&&&&&
C.Load&&&&&&
52064.文本框的默认属性是(B)(单)
A.Caption&&&&&
C.Name&&&&&&&&
52065.标签默认属性是(A)(单)
A.Caption&&&&&
C.Name&&&&&&&&
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)
输出结果为(B)(单)
A.ABA&&&&&&&
B.BBABBA&&
C.ABBABA&&&&
52067.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a As Variant
a=Array(1,2,3,4,5)
For I=1 To 5
Sum = sum+a(I)
For I =1 To 5
If a(I)＞x Then Print a(I);
程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)
3&&& C.3 4
52068.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。Model1代码如下：
Public x As Integer
Public y As Integer
Form1.Show
Model2的代码如下：
Sub Main( )
其中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】
Do While num＜＝2
num = num+1
52071.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Move 500，500
程序运行后，单击命令按钮，执行的操作为(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
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&&&&&&&&&&
52077.以下叙述中错误的是(D)(单)
A.下拉式菜单能用菜单编辑器建立
B.在多窗体程序中，每个窗体都可以建立自己的菜单系统
C.能够对菜单项的Click事件编程
D.如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
52078.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click( )
a = "12345"
Print Format$(a, "000.00")
程序运行后，单击命令按钮，窗体上显示的是(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"
程序运行后，如果单击命令按钮，则在文本框中显示的是(C)(单)
A.Visual&&
&&&&B.Basic&&&&&
C.Program&&&&&
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)(单)
52085.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click( )
strText = InputBox("请输入")
Text1.Text = strText
Private Sub Text1_Change( )
Label1.Caption = Right(Trim(Text1.Text), 3)
程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是(D)(单)
&&&&B.abcdef&&&&
C.abc&&&&&
52086.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
If x ＞0 Then
程序运行后，单击命令按钮，窗体上显示的是(A)(单)
A.-5&&&&&&
B.25&&&&&&&&
C.1&&&&&&&
52087.一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X
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( )
a = Array(1, 2, 3, 4)
For I = 4 To 1 Step -1
s = s + a(I)
运行上面的程序，单击命令按钮，其输出结果是(D)(单)
A.4321&&&&&&
B.1234&&&&
C.34&&&&&&&&
52090.在窗体上画一个名称为Text1的文本框，编写以下代码：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii ＜ 65 　Or　 KeyAscii＞ 90 Then
msgBox "请输入大写字母"
KeyAscii = 0
以下能说明该事件过程正确是(A)(单)
A.要求文本框只能接收大写字母的输入
B.要求文本框只能接收小写字母的输入
C.要求文本框只能接收数字的输入
D.要求文本框只能接收65到90之间的数值的输入
52091.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
If n\2 = n/2 Then
Public Function f1(ByRef x)
End Function
Public Function f2(ByVal x)
End Function
程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)
52092.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
c = "1234"
For i = 1 To 4
c1 = Trim(Str( ))
程序运行后，单击命令按钮，要求在窗体上显示如下内容
则在下划线处应填入的内容为(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
If j ＞Sqr(i) Then Print i
该事件过程的功能是(C)(单)
A.输出n以内的奇数&&&&&
B.输出n以内的偶数
C.输出n以内的素数&&&&&
D.输出n以内能被j整除的数
52094.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
End Function
Private Sub Command1_Click( )
Dim i As Integer
For i = 1 To 5
s = s + f(i)
程序运行后，单击命令按钮，在窗体上显示的是(C)(单)
B.10&&&&&&
C.9&&&&&&&
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
Text1.Text = array1(2, 3) + array1(3, 4)
程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)
A.15&&&&&&
C.13&&&&&&
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
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
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】
a = "宋体"
a = "黑体"
a = "楷体＿GB2312"
End Select
text1.fontname=a
52104.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
Private Sub Option1_Click(Index As Integer)
Select Case index
a = "宋体"
a = "黑体"
a = "楷体＿GB2312"
End Select
text1.【fontname】=a
52105.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2。程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。
Private Sub Combo1_Click( )
Call ShowItem(Combo1, Label1)
Private Sub Combo2_Click( )
Call ShowItem(Combo2, Label2)
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
【tmplabel】.Caption =tmpCombo.Text
52106.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。
Private Sub Combo1_Click( )
Call ShowItem(Combo1, Label1)
Private Sub Combo2_Click( )
Call ShowItem(Combo2, Label2)
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
tmpLabel.Caption =【tmpcombo】.Text
52107.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
For c = 1 To n
f = f*【7】
该事件过程的功能是计算1!+2!+3!+…+n!的值。
52108.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
For I = 1 To 10
Call【swap】a( )
For I = 1 To 10
Print a(I);
Sub swap(b( ) As Integer)
n = ubound(b)
For I = 1 To n / 2
b(I) = b(n)
上述程序的功能是，通过调用过程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
Call swap（a( )）
For I = 1 To 10
Print a(I);
Sub swap(b( ) As Integer)
n =【ubound(b)】
For I = 1 To n / 2
b(I) = b(n)
上述程序的功能是，通过调用过程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
Call swap（a( )）
For I = 1 To 10
Print a(I);
Sub swap(b( ) As Integer)
n = ubound(b)
For I = 1 To n / 2
b(I) = b(n)
上述程序的功能是，通过调用过程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日")
A.7/21/97 日
B.7-21-97 日
C.97/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")
A.July-97 9:21:30
B.July-97 09:21:30 P
C.07-97 9:21:30
D.July-97 9:21:30
52113.以下程序段运行的结果为(C)(单)
Private Sub Form_Click( )
MyDate = #7/21/1997#
Print Format(MyDate, "dddd,mmmm,dd,yyyy")
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
MsgBox "帐号正确"
当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)
A.显示对话框，提示信息为"帐号正确"
B.显示对话框，提示信息为"帐号有非数字字符错误"
C.程序出错&&&&&&&&&
D.没有任何提示
52115.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Text1_LostFocus( )
If Not IsNumeric(Text1) Then
MsgBox "帐号有非数字字符错误"
Text1.Text = ""
Text1.SetFocus
MsgBox "帐号正确"
当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)
A.显示对话框，提示信息为"帐号正确"
B.显示对话框，提示信息为"帐号有非数字字符错误"
C.程序出错&&&&&&&&&
D.没有任何提示
52116.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Command1_Click( )
Dim I As Integer
If Text1.Text ＜＞ "Gong" Then
I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")
If I ＜＞ 4 Then
Text1.Text = ""
Text1.SetFocus
MsgBox "密码帐号正确！"
若在text1中输入字符串"Gong"，则程序运行结果为(A)(单)
A.显示对话框，提示"密码帐号正确！"
B.显示对话框，提示"密码错误"
C.程序出错&&&&&&
D.没有任何提示
52117.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Command1_Click( )
Dim I As Integer
If Text1.Text ＜＞ "Gong" Then
I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")
If I ＜＞4 Then
Text1.Text = ""
Text1.SetFocus
MsgBox "密码帐号正确！"
若在text1中输入字符串"gong"，则程序运行结果为(B)(单)
A.显示对话框，提示"密码帐号正确！"
B.显示对话框，提示"密码错误"
C.程序出错&&&&&&
D.没有任何提示
52118.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Command1_Click( )
Dim I As Integer
If Text1.Text ＜＞ "Gong" Then
I = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")
If I ＜＞ 4 Then
Text1.Text = ""
Text1.SetFocus
MsgBox "密码帐号正确！"
若在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的是(A)(单)
A.显示对话框中有“重试”按钮
B.显示对话框中有“确定”按钮
C.显示对话框中有“是”按钮&&&&
D.以上说法都不正确
52119.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：
Private Sub Command1_Click( )
Dim x!, y!, z!, t!
If x ＜ y Then
If y ＜ z Then
If x＜ y Then
Label1.Caption = x & "," & y
当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为(C)(单)
A.3,5,8&&&&&&
B.5,3,8&&&&&&
C.8,5,3&&&&&&
52120.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Result = Num1 + Num2
Result = Num1 - Num2
Result = Num1 * Num2
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2
& "=" & Result
窗体运行后，输入1，则label1的标题显示结果为(A)(单)
A.3+2=5&&&&&&
C.3&2=6&&&&&
52121.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Result = Num1 + Num2
Result = Num1 - Num2
Result = Num1 * Num2
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2
& "=" & Result
窗体运行后，输入2，则label1的标题显示结果为(B)(单)
A.3+2=5&&&&&&
C.3&2=6&&&&&
52122.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Result = Num1 + Num2
Result = Num1 - Num2
Result = Num1 * Num2
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2
& "=" & Result
窗体运行后，输入3，则label1的标题显示结果为(C)(单)
A.3+2=5&&&&&
B.3-2=1&&&
C.3&2=6&&&&
52123.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Result = Num1 + Num2
Result = Num1 - Num2
Result = Num1 * Num2
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2
& "=" & Result
窗体运行后，输入4，则label1的标题显示结果为(D)(单)
A.3+2=5&&&&&
B.3-2=1&&&
C.3&2=6&&&&
52124.以下程序段的作用是(A)(单)
Private Sub Picture1_Click( )
Dim asci As Integer, i As Integer
For asci = 32 To 126
Picture1.Print Tab(7 * i + 2); Chr(asci); "=";
If i = 7 Then i = 0: Picture1.Print
A.打印ASCII码表，一行7个表达式
B.打印九九乘法表，一行7个表达式
C.打印ASCII码表，一行8个表达式
D.以上说法都不正确
52125.我国现在人口有13亿，按人口增长0.8%计算，多少年后我国人口将超过26亿。
Private Sub Command1_Click( )
x = Val(Text1)
Do While 【x】＜26
x = x * (1 + 0.008)
Text2 = Str(n)
52126.以下程序的作用是(B)(单)
For i = 1 To 9
For j = 1 To 9
se = i & "&" & j
& "=" & i * j
Picture1.Print Tab((j - 1) * 9 + 1);
Picture1.Print
A.打印ASCII码表&&&&&&&
B.打印九九乘法表
C.打印加法表&&&&&&&&&&&
D.以上说法都不正确
52127.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和结果
I = 0 ' 计数器
n = 1 ' 存放阶乘的值
t = 1 ' 级数第I项值
Do While 【t&】 0.00001
Print "计算了 "; I; " 项的和是 "; e
52128.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和结果
I = 0 ' 计数器
n = 1 ' 存放阶乘的值
t = 1 ' 级数第I项值
Do While t＞0.00001
e = e + 【t】
Print "计算了 "; I; " 项的和是 "; e
52129.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和结果
I = 0 ' 计数器
n = 1 ' 存放阶乘的值
t = 1 ' 级数第I项值
Do While t＞0.00001
n = n * 【I】
Print "计算了 "; I; "项的和是"; e
52130.以下程序是求最大公约数和最小公倍数的程序。
Private Sub Form_Click( )
Dim m1, n1, m, n, r As Integer
n1 = InputBox("输入自然数n", "输入数")
m1 = InputBox("输入自然数m", "输入数")
If m ＜ n Then
t = m: m = n: n = t
r = m Mod 【n】
Do While (r＜＞0)
r = m Mod n
Print "最大公约数=", n
Print "最小公倍数= ", m1 * n1 / n
52131.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。
Private Sub Form_Click( )
Dim m1, n1, m, n, r As Integer
n1 = InputBox("输入自然数n", "输入数")
m1 = InputBox("输入自然数m", "输入数")
If m ＜n Then
t = m: m = n: n = t
r = m Mod n
Do While r 【&&】　0
r = m Mod n
Print "最大公约数=", n
Print "最小公倍数= ", m1 * n1 / n
52132.下面是求100以内素数的程序。
Private Sub Command1_Click( )
Dim i As Integer, m As Integer, tag As Boolean
For m = 2 To 100
tag = True
For i = 2 To m - 1
If m Mod 【i】 = 0 Then tag = False
If tag Then Print m
52133.下面是求100以内素数的程序，下面说法正确的是(A)(单)
Private Sub Command1_Click( )
Dim i As Integer, m As Integer, tag As Boolean
For m = 2 To 100
tag = True
For i = 2 To m - 1
If m Mod i = 0 Then tag = False
If tag=true Then Print m
A.tag为true时，表示m是素数
B.tag为false时，表示m是素数
C.语句m Mod i = 0，说明m是素数& D.以上说法都不正确
52134.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列出了所有可能的购鸡方案。
Private Sub Command2_Click( )
Dim x%, y%, z%
For x = 0 To 33
For y = 0 To 50
If 3 * x + 2 * y + 0.5 * (100 - x - y) = 100 Then
Picture2.Print x, y, 【100-x-y,10-y-x】
52135.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列出了所有可能的购鸡方案。
Private Sub Command1_Click( )
Dim x%, y%, z%
For x = 0 To 33
For y = 0 To 50
For z = 0 To 100
If 3 * x + 2 * y + 0.5 * z = 100 And 【x+y+z=100】 Then
Picture1.Print x, y, z
52136.随机产生10个100～200之间的数，求它们的最大值程序如下：
Private Sub Command1_Click( )
For i = 1 To 10
x = Int(Rnd * 101 + 100)
If x ＞ Max Then 【】
Print "最大值="; Max
在此程序中，其中【】处应该填写的是(C)(单)
100&&& B.Max
=200&& C.Max =
52137.随机产生10个100～200之间的数，求它们的最大值程序如下：
Private Sub Command1_Click( )
For i = 1 To 10
int【RND*101+100或100+RND*101或RND()*101+100或100+RND()*101】
If x ＞ Max Then Max=x
Print "最大值="; Max
52138.随机产生10个100～200之间的数，求它们的最大值程序如下：
Private Sub Command1_Click( )
For I = 1 To 10
x =Int(Rnd * 101 + 100)
If 【】 Then Max=x
Print "最大值="; Max
在【】处应该填写的是：（A）(单)
A.x ＞ Max&& B.x
＜Max& C.x =
Max&& D.以上都不正确
52139.以下是求1～100之间5或7的倍数的和，如下程序段：
For i = 1 To 100
If i Mod 5 = 0 Or i Mod 7 = 0 Then
其中【】处书写正确的是（B）(单)
i&&&&&&&&&&&&
B.Sum = Sum + i
C.Sum = Sum +
D.以上都不正确
52140.以下是求1～100的5或7的倍数的和程序段：
For i = 1 To 100
If i Mod 5 = 0 Or i 【mod】 7=0 Then
Sum = Sum + i
52141.以下叙述中错误的是(B)(单)
A.Visual Basic 是事件驱动型可视化编程工具
B.Visual Basic应用程序不具有明显的开始和结束语句
C.Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
D.Visual Basic中控件的某些属性只能在运行时设置
52142.以下叙述中错误的是(A)(单)
A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B.以.BAS为扩展名的文件是标准模块文件
C.窗体文件包含该窗体及其控件的属性
D.一个工程中可以含有多个标准模块文件
52143.以下叙述中错误的是(B)(单)
A.双击鼠标可以触发DblClick事件
B.在编程过程中，窗体或控件的事件的名称可以由编程人员自由确定
C.移动鼠标时，会触发MouseMove事件
D.控件的名称可以由编程人员设定
52144.以下不属于Visual Basic系统的文件类型是(B)(单)
A..frm&&&&&&
B..bat&&&&
C..vbg&&&&&&
52145.以下叙述中错误的是(C)(单)
A.打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B.保存Visual Basic程序时，应分别保存窗体文件及工程文件
C.Visual Basic应用程序只能以解释方式执行
D.事件可以由用户引发
52146.以下声明语句中错误的是(B)(单)
var1=123&&&&&&&&&&
B.Dim var2 = 'ABC'
C.Public a,b as integer &&
D.Static a as single
52147.设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是(D)(单)
A.List1.List&&&&&&
B.List1.ListIndex
C.List1.Index&&&&&
D.List1.Text
52148.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是(C)(单)
A.MouseDown&&
B.MouseUp&&&&
C.Load&&&&&&
52149.设a=10，b=5，c=1，执行语句Print a ＞b ＞ c后，窗体上显示的是(B)(单)
B.False&&&&&&
D.出错信息
52150.如果要改变窗体的标题，则需要设置窗体的(A)属性(单)
A.Caption&&
C.BackColor&& D.BorderStyle
52151.以下能判断指针是否指向文件尾的函数是(D)(单)
A.BOF&&&&&&
B.LOC&&&&&&
C.LOF&&&&&&
52152.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是(B)(单)
A.如果工程中含有Sub Main过程，则程序一定首先执行该过程
B.不能把标准模块设置为启动模块
C.用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体
D.任何时刻最多只有一个窗体是活动窗体
52153.窗体的过程Form_MouseDown (Button As Integer, Shift As Integer,
X As Single, YAs Single) ，有4个参数，关于这些参数，正确的描述是(D)(单)
A.通过Button参数判定当前按下的是键盘上哪一个键
B.Shift参数只能用来确定是否按下Shift键
C.Shift参数只能用来确定是否按下Alt和Ctrl键
D.参数x,y用来设置鼠标当前位置的坐标
52154.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是(B)(单)
A.Combo1.RemoveItem
B.Combo1.RemoveItem 2
C.Combo1.RemoveItem 3
D.Combo1.RemoveItem Combo1.Listcount
52155.以下关于焦点的叙述中，错误的是(A)(单)
A.如果文本框的Enabled属性为False，能接收从键盘上输入的数据
B.当文本框失去焦点时，触发LostFocus事件
C.当文本框的Enabled属性为False时，其Tab顺序不起作用
D.可以用TabIndex属性改变Tab顺序
52156.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为(D)(单)
52157.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
Private Sub Command1_Click( )
n = val(Text1.Text )
Select Case n
Case 1 To 20
Case 2, 4, 6
Case Is ＜ 10
End Select
Text2.Text = x
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是(A)(单)
A.10&&&&&&
C.30&&&&&&
52158.设有以下循环结构
Loop While ＜条件＞
则以下叙述中错误的是(A)(单)
A.若"条件"是一个为0的常数，则一次也不执行循环体
B."条件"可以是关系表达式、逻辑表达式或常数
C.循环体中可以使用Exit Do语句
D.如果"条件"总是为True，则不停地执行循环体
52159.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim num As Integer
Do Until num ＞ 6
num = num + 2.4
程序运行后，单击命令按钮，则窗体上显示的内容是(B)(单)
A.1 3.4 5.8&& B.1 3
7&&& D.无数据输出
52160.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim a As Integer, s As Integer
Loop While a ＜＝ 0
程序运行后，单击命令按钮，则窗体上显示的内容是(C)(单)
A.7 9&&& B.34
52161.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
End Function
Private Sub Command1_Click( )
Static x As Integer
程序运行后，如果单击命令按钮，则在窗体上显示的内容是(C)(单)
52162.设有如下通用过程：
Public Sub Fun(a( ), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click( )
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Call Fun(arr( ), n)
Text1.Text = n
程序运行后，单击命令按钮，则在文本框中显示的内容是(A)(单)
A.10&&&&&&
C.25&&&&&&
52163.在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click( )
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i) ＞ c Then
d = d + x(i)
程序运行后，如果单击命令按钮，则在窗体上输出的内容为(C)(单)
A.89&&&&&&
B.99&&&&&&&&
C.23&&&&&&
52164.在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label
4、Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示Hscroll1、Hscroll2滚动条的数值，Label3显示A*B的计算结果。当移动滚动条时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是(C)(单)
A.Private Sub Command1_Click( ) 　
Label3.Caption = =Str(Val(Label1.Caption)*Val(
Label2.Caption))
B.Private Sub Command1_Click( ) 　
Label3.Caption = HScroll1.Value *HScroll2.Value
C.Private Sub Command1_Click( ) 　
Label3.Caption = HScroll1 * HScroll2
D.Private Sub Command1_Click( )
Label3.Caption = HScroll1. Text *HScroll2.Text
52165.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
For n = 1 To 20
If n Mod 3 ＜＞ 0 Then m = m + n \ 3
程序运行后，如果单击命令按钮，则窗体上显示的内容是(C)(单)
A.15&&&&&&
&&&&&&D.24
52166.在窗体上画一个名称为Text1的文本框，并编写如下程序：
Private Sub Form_Load( )
Text1.Text = ""
Text1.SetFocus
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X
AsSingle, Y As Single)
Print "程序设计"
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As
Print "Visual Basic";
程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是(A)(单)
A.Visual Basic&
&& B.程序设计
C.A程序设计&&&&&&&
D.Visual Basic程序设计
52167.设有如下程序：
Private Sub Command1_Click( )
Dim sum As Double, x As Double
For i = 1 To 5
sum = sum + x
该程序通过For循环计算一个表达式的值，这个表达式是(C)(单)
2/3+3/4+4/5&&&
B.1+1/2+2/3+3/4
C.1/2+2/3+3/4+4/5&&&&&&
D.1+1/2+1/3+1/4+1/5
52168.以下有关数组定义的语句序列中，错误的是(D)(单)
A.Static arr1(3) ：arr1(1) = "100" ：
arr1(2) = "Hello" ：arr1(3) = "123.45"
B.Dim arr2( ),size As Integer
Private Sub Command2_Click( )
size =InputBox("输入：") ReDim arr2(size) ......
C.Option Base 1 Private Sub Command3_Click( )
Dim arr3(3) As Integer ......
D.Dim n As Integer Private Sub Command4_Click( )
Dim arr4(n) As Integer......
52169.执行下面的程序段后，I的值为【5.6】
For I = 3.2 To 4.9 Step 0.8
52170.执行下面的程序段后，S的值为【5】
Private Sub Command1_Click( )
For c = 3.2 To 4.9 Step 0.8
52171.把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As
Print Chr(KeyCode)
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
程序运行后，如果直接按键盘上的"A"键（即不按住Shift键），则在窗体上输出的字符分别是A和【a】
52172.把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As
Print Chr(KeyCode)
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
程序运行后，如果直接按键盘上的"A"键（即不按住Shift键），则在窗体上输出的字符分别是【A】和a。
52173.在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：
Private Sub Form_Load( )
Timer1.Enabled = False
Timer1.Interval = 【1000】
Private Sub Form_Click( )
Timer1.Enabled = True
Private Sub Timer1_Timer( )
Label1.Caption = time
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。
———————
14：54：41
———————
52174.在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：
Private Sub Form_Load( )
Timer1.Enabled = False
Timer1.Interval = 1000
Private Sub Form_Click( )
Timer1.Enabled = 【true】
Private Sub Timer1_Timer( )
Label1.Caption = time
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。
———————
14：54：41
———————
52175.在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：
Private Sub Form_Load( )
Timer1.Enabled = False
Timer1.Interval = 1000
Private Sub Form_Click( )
Timer1.Enabled = true
Private Sub Timer1_Timer( )
Label1.Caption = 【time】
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。
———————
14：54：41
———————
52176.ASIC在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click( )
S$ = InputBox("请输入一个字符串")
Text1.Text = S$
Private Sub Text1_Change( )
Label1.Caption = Ucase(Mid(Text1.Text, 7))
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"VisualBasic"，则在标签中显示的内容是【basic】
52177.在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为："第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择"第四个项目"的情况)。
Private Sub Command1_Click( )
If List1.ListIndex ＞＝ 【0】 Then
List1.RemoveItem　List1.ListIndex
Label1.Caption = List1.ListCount
MsgBox "请选择要删除的项目"
运行情况(选择"第四个项目"的情况)：
label1标签显示: 3
list1列表框显示:
————————
第一个项目
第二个项目
第三个项目
————————
52178.在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为："第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择"第三个项目"的情况)。
Private Sub Command1_Click( )
If List1.ListIndex &= 0 Then
List1.RemoveItem List1.【listindex】
Label1.Caption = List1.ListCount
MsgBox "请选择要删除的项目"
运行情况(选择"第三个项目"的情况)：
—————————————————————
第一个项目
第二个项目 COMMAND1
第三个项目 3
—————————————————————
52179.在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为："第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择"第三个项目"的情况)。
Private Sub Command1_Click( )
If List1.ListIndex ＞＝ 0 Then
List1.RemoveItem List1.Listindex
Label1.Caption = List1.【listcount】
MsgBox "请选择要删除的项目"
运行情况(选择"第三个项目"的情况)：
—————————————————————
第一个项目
第二个项目 COMMAND1
第三个项目 3
—————————————————————
52180.设有程序：
Option Base 1
Private Sub Command1_Click( )
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
【max】= arr1(1)
For I = 1 To 8
If arr1(I) ＞Max Then Max=arr1(I)
Print "最大值是: "; Max
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。
52181.VB预先设置好的，能够被对象识别并且能够响应的动作是(B)(单)
&&&&B.事件&&&&&&&&
C.对象&&&&&&
52182.下面是窗体的四个属性，在界面设计时，改变(D)属性值看不到窗体变化(单)
A.Top&&&&&&
B.Width&&&&&&&&
C.Left&&&&&&
52183.下面四个选项，不是窗体属性的是(D)(单)
A.MinButton&&
B.MaxButton&&
C.Caption&&&
52184.下面四个选项，不是事件或语句的是(B)(单)
A.Load&&&&&&
B.Enabled& &
C.Unload&&&&
D.DblClick
52185.用来设置窗体背景图片的属性是(B)(单)
A.Moveable&&
B.Picture& C.ForeColor&
D.WindowState
52186.Load事件是在窗体被装入工作区时(D)触发的事件(单)
B.程序员&&&&&&&
C.手工&&&&&&
52187.修改控件属性，一般可以使用属性窗口，也可以通过(D)为属性赋值(单)
A.命令&&&&&&
B.对象&&&&&&&&
C.方法&&&&&&
52188.在VB6中的每一个对象都具有自己的属性、(C)和方法(单)
A.控件&&&&&&
B.函数&&&&
C.事件&&&&&&
D.公用过程
52189.在设计VB6应用程序界面时，改变窗体下面的(C)属性看不到效果.(单)
A.Left&&&&&&
B.Top&&&&&
C.Visible&&&
D.BackColor
52190.下列可作为Visual Basic的变量名的是(A)(单)
A.Delta&&&&&&
B.Print&&&&&&
C.Abs&&&&&&&&
52191.下列可作为Visual Basic的变量名的是(B)(单)
A.Filename&&&&&
B.ABC&&&&&&
C.A％D&&&&&&
52192.Visual Basic中，在文本框中所允许输入的形式数是(C)(单)
A.±25.74&&&&&
B.3.457E&&&&
C.368&&&&&&
D.1.87E+50
52193.在Visual Basic中的文本框中所允许输入形式的数是(D)(单)
A.10^(1.256)&&&&&
C.2.5E&&&&&&&&&&&
52194.下面(B)数写成普通的十进制数是8.6787E+8(单)
C.8678700&& D.
52195.下面（B）数写成普通的十进制数是2.567E-2.(单)
A.0.0002567&
B.0.02567&&
C.0.002567&& D.0.
52196.设a=2，b=3，c=4，d=5，下列表达式的值是(B)(单)
a ＞b 　And　 c＜＝d　 Or　 2 * a＞c
A.True&&&&
B.False&&&&&
C.-1&&&&&&
#52197.设a=2，b=3，c=4，d=5，下列表达式的值是(B)(单)
3 ＞2*b 　Or　 a=c 　And　 b＜＞c 　Or　 c＞d
B.TRUE&&&&&&
C.FALSE&&&
52198.设a=2，b=3，c=4，d=5，下列表达式的值是(D)(单)
NOT 　a＜＝c　 OR 　4*c=b＾2　 AND　 b＜＞a+c
A.-1&&&&&&&&
C.TRUE&&&&&&
52199.实现字符转换为数值的函数是(B)(单)
A.Str&&&&&&
B.Val&&&&&&
C.Trim&&&&&
52200.假设X=3，Y=6，Z=5，则表达式：(X^2+Y)\Z的值是(C)(单)
52201.假设A=3，B=7，C=2，则表达式：(A＞B)　OR　(B＞C)的值是(A)(单)
A.TRUE&&&&&&&
B.FALSE&&&&
C.表达式错误&&&
52202.在表达式y=InputBox("a","b","c")中，b为输入函数对话框的(A)(单)
A.标题&&&&&&
&&&C.默认值&&&&
D.帮助文件名
52203.假设A=3，B=7，C=2，则表达式： NOT(BA) 的值是(B)(单)
A.TRUE&&&&&&&&
C.表达式错误&& D.不确定
52204.在表达式y=InputBox("a","b","c")中，c为输入函数对话框的(C)(单)
A.标题&&&&&&
B.提示&&&&
C.默认值&&&&
D.帮助文件名
52205.假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是(C)(单)
A.Print 25&&&
&&&&&&&&&&&&&
B.Picture1.Print 25
C.Text1.Print
25&&&&&&&&&&&
D.Text1.text= 25
52206.以下语句的输出结果是(在立即窗口中)(B)(单)
(＜CR＞为回车，Δ表示空格)
a=27＜CR＞ (＜CR＞为回车，下同)
b=65＜CR＞
A.＜CR＞27＜CR＞65&&&&&&
B.27 65＜CR＞
C.Δ27＜CR＞65＜CR＞&&&&
D.以上都不对
52207.以下语句的输出结果是(C)(单)
(＜CR＞为回车，Δ表示空格)
a="Beijing" ＜CR＞
b="ShangHai" ＜CR＞
A.Beijing＜CR＞ShangHai
B.＜CR＞beijing＜CR＞ShangHai
C.BeijingShangHai＜CR＞
D.ΔBeijingΔ
52208.语句Print 5*5＼5／5的输出结果是(B)(单)
B.25&&&&&&&&&
52209.设a、b、c为整型变量，其值分别为1、2、3，以下程序段的输出结果是(D)(单)
A=b:b=c:c=a
52210.语句Print Abs(6 ^ 2) + Int(-3.6 ^ 2) 的输出结果是(D)(单)
A.-36&&&&&&
B.1&&&&&&&&
C.-1&&&&&&
52211.以下语句的输出结果是(B)(单)
Print Format(a,"$$####.###")
A.$1.732&&&&
B.$$1.732&&&
52212.以下程序段的输出结果是(D)(单)
A.-1&&&&&&
C.FALSE&&&
52213.以下语句的输出结果是(C)(单)
Print Format$(0,000.00")
A.32548.5&&&&&&&
B.32,548.5
C.032,548.50&&&&
D.32,548.50
52214.执行以下程序段后，变量c$的值为(D)(单)
a$="Visual Basic Programing"
b$="Quick"
c$=b$ & Ucase(Mid$(a$,7,6)) &
Right$(a$,11)
A.Visual BASIC Programing
B.Quick Basic Programing
C.QUICK Basic Programing
D.Quick BASIC Programing
52215.表达式 4 + 5 \ 6 * 7 / 8 Mod 9 的值是(B)(单)
52216.InputBox函数返回值的类型为(B)(单)
A.数值&&&&
B.字符串&&&&&&&
D.数值或字符串(视输入的数据而定)
52217.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
a=InputBox$("Enter the First integer")
b=InputBox$("Enter the Second integer")
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入123和456，则输出结果是(D)(单)
A.579&&&&&&
B.123&&&&&&
C.456&&&&&&
52218.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim a, b As Integer
a = val(InputBox("Enter the First integer"))
b = val(InputBox("Enter the Second integer"))
Print a + b
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入123和456，则输出结果是和(A)(单)
A.579&&&&&&
B.123&&&&&
C.456&&&&&&
52219.执行下面的语句后，所产生的信息框的标题是(A)(单)
a = MsgBox("AAAA", , "BBBB", "", 5)
D.出错，不能产生信息框
52220.语句Print"25+32=";25+32的输出结果是【25+32=57】
52221.EIJING以下语句的输出结果是【beijing】
S$="china"
S$="beijing"
52222.以下语句的输出结果是【3】
A%=3.14156
52223.以下程序段的输出结果是【98】
Print X + 1; str(X)
52224.假定x的值为5，则在执行以下语句时，其输出结果为"Result"的正确表示Select
Case语句是(A)(单)
A.Select Case x Case 1 To 10 Print "Result" End Select
B.Select Case x Case Is＞5,Is＜5 Print "Result" End Select
C.Select Case x Case Is＞5,1,3 To 4 Print "Result" End Select
D.Select Case x Case 1,3,Is＞5 Print "Result" End Select
52225.假定有以下循环结构:
Do WHILE 条件=0
则正确的描述是(B)(单)
A.如果"条件"是一个为0的常数，则一次循环体也不执行
B.如果"条件"是一个为0的常数，则无限次执行循环体
C.如果"条件"是一个不为0的常数,则至少执行一次循环体
D.不论"条件"是否为"真"，至少要执行一次循环体
52226.假定有以下程序段
For I = 1 To 3
For j = 5 To 1 Step - 1
Print I * j
则语句Print I*j的执行次数是(A)(单)
&B.1&&&&&&&&&
C.17&&&&&&
52227.以下程序段的输出结果为(B)(单)
Do Until y＞4
52228.设a=6，则执行x=Iif(a＞5，-1，0)后，x的值为(D)(单)
B.6&&&&&&&&
52229.执行下面的程序段后，x的值为(A)(单)
For c = 1 To 20 Step 2
A.21&&&&&&
C.23&&&&&&
52230.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
For I= 1 To 4
For j = 1 To 3
For k= 1 To 2
程序运行后，单击命令按钮，输出结果是(B)(单)
B.15&&&&&&&&&
52231.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Do Until x = -1
a=InputBox("请输入A的值")
b=InputBox("请输入B的值")
x=InputBox("请输入x的值")
x = Val(x)
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为(A)(单)
52232.阅读下面的程序段：
For I=1 To 3
For j = 1 To I
For k =j To 3
执行上面的三重循环后，a的值为(C)(单)
52233.在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：
Private Sub Form_Load( )
Text1.Text = ""
For I = 1 To 10
Sum = Sum + I
Text1.Text = Sum
上述程序的运行结果是(A)(单)
A.在文本框Text1中输出55&&
B.在文本框Text1中输出0
C.出错&&&&&&&&&&&&&&&
D.在文本框Text1中输出不定值
52234.在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：
Private Sub Command1_Click( )
Do While x ＜ 50
x=(x+2)*(x+3)
Text1.Text = Str(n)
Text2.Text = Str(x)
程序运行后，单击命令按钮，在两个文本框中显示的值分别为(B)(单)
A.1和0&&&&
B.2和72&&&
C.3和50&&&
52235.RR1(C)设有程序：
Option Base 1
Private Sub Command1_Click( )
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
Max = arr1(1)
For c = 1 To 8
If arr1(c) ＞ Max Then Max = 【arr1(c)】
Print "最大值是: "; Max
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。
52236.以下不能在"工程资源管理器"窗口中列出的文件类型是(B)(单)
A.．bas&&&&&&
B.．ocx&&&&&&
C.．frm&&&&&&
52237.以下关于窗体的描述中，错误的是(A)(单)
A.执行Unload Form语句后,窗体Form消失,但仍在内存中
B.窗体的Ioad事件在加载窗体时发生
C.当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止
D.窗体的Height、width属性用于设置窗体的高和宽
52238.下列可作为VIsual Basic变量名的是(C)(单)
A.A#A&&&&&&
B.4A&&&&&&
C.a3&&&&&&&
52239.函数String(n，"strsdfsdfsdf")的功能是(B)(单)
A.把数值型数据转换为字符串&&&&
B.返回由n个"s"字符
C.从字符串"strsdfsdfsdf")中取出前n个字符
D.从字符串中第n个字符的位置开始取子字符串
52240.将数学表达式Cos(a+b)+5|2*-a|写成Visual
Basic的表达式，其正确的形式是(C)(单)
A.Cos(a+b)+5abs(2*(-a))&&
B.Cos(a+b)+5*|2*(-a)|
C.Cos(a+b)+5*abs(2*(-a)&&
D.(Cosa+b)+5*abs(2*(-a))
52241.在窗体上画一个命令按钮，名称为Commandl。单击命令按钮时，执行如下事件过程：
Private Sub Command1_Click( )
a$ = "software and hardware"
b$ = Right(a$, 8)
c$ = Mid(a$, 1, 8)
MsgBox a, , b, c, 1
则在弹出的信息框的标题栏中显示的信息是(C)(单)
A.software and hardware&&
&&B.software
C.hardwafe&&&&&
&&&&&&&&&&&
52242.执行如下语句：a＝inputBox("Today","Tomorrow","Yesterday",,,"Day
before yesterday",5)将显示一个输入对话框，在对话框的输入区中显示的信息是(C)(单)
A.Today&&&&&&&&&&
B.Tomorrow
C.Yesterday&&&&&&
D.Day before yesterday
52243.表示滚动条控件取值范围最大值的属性是(A)(单)
B.LargeChange&&
C.Value& D.Max-Min
52244.在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是(C)(单)
A.Private Sub Listl_C1ick( )
Labell.Caption＝list1.listlndex End Sub
B.Private Sub Listl_C1ick( )
Labell.Name＝Listl.listindex End Sub
C.Private Sub Listl_C1ick( )
Labell.Caption＝list1.text End Sub
D.Private Sub Listl_C1ick( )
Labell.Name＝Listl．text End Sub
52245.假定有以下函数过程：
Function Fun(ByVal S As String) As String
Dim s1 As String
For I = 1 To Len(S)
s1 = UCase(Mid(S, I, 1)) + s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim Str1 As String, Str2 As String
Strl = InputBox("请输入一个字符串")
Str2 = Fun(Strl)
Print Str2
Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"，则单击"确定"按钮后在窗体上的输出结果为(D)(单)
A.abcdefg&&
B.ABCDEFG&&&
C.gfedcba&& D.GFEDCBA
52246.以下叙述中错误的是(D)(单)
A用Shell函数可以调用能够在Windows下运行的应用程序
B.用Shell函数可以调用可执行文件,也可以调用VisualBasic的内部函数
C.调用Shell函数的格式应为:＜变量名＞＝Shell(字符串）
D.用Shell函数不能执行DoS命令
52247.以下关于过程及过程参数的描述中，错误的是(C)(单)
A.过程的参数可以是控件名称
B.用数组作为过程的参数时，使用的是"传地址"方式
C.只有函数过程能够将过程中处理的信息传回到调用的程序中，子过程不可以
D.窗体可以作为过程的参数
52248.在窗体上画一个名称为Txta的文本框，然后编写如下的事件过程：
Private Sub Txta_KeyPress(keyascii as integer)
若焦点位于文本框中，则能够触发KeyPress事件的操作是(D)(单)
A.单击鼠标&&&&
B.双击文本框
C.鼠标滑过文本框&&&&&&&
D.按下键盘上的某个键
52249.目录列表框的Path属性的作用是(A)(单)
A.显示当前驱动器或指定驱动器上某文件夹的路径
B.显示当前驱动器或指定驱动器上的某目录下的文件名
C.显示根目录下的文件名&&&
D.只显示当前路径下的文件
52250.假定有如下事件过程：
PriVate Sub Form_MouseDown(button As Integer,Shift As Integer, x
Single,Y As Single)
If Button＝2 then
PopupMenu popForm
则以下描述中错误的是(D)(单)
A.该过程的功能是弹出一个名称为popForm 的菜单
B.popForm 是在菜单编辑器中定义的弹出式菜单的名称
C.参数X、Y指出鼠标的当前位置
D.Button=2 表示按下的是鼠标左键
52251.以下能够正确计算n!的程序是(A)(单)
A.& Private Sub Command1_Click( )
Dim n, x As Integer n = 5 x = 1 i = 1 Do
While i ＜＝n x = x * i i = i + 1 Loop Print x
B.& Private Sub Command1_Click( )
Dim n, x As Integer n = 5 x = 1 i = 1 Do
While i ＜n x = x * i i = i + 1 Loop Print x
C.& Private Sub Command1_Click( )
Dim n, x As Integer n = 5 x = 1 i = 1 Do
While i ＞＝ n x = x * i i = i + 1 Loop Print x
D.& Private Sub Command1_Click( )
Dim n, x As Integer n = 5 x = 1 i = 1 Do
While i ＞n x = x * i i = i + 1 Loop Print x
52252.在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labell、Label2的标签，然后编写如下程序代码：
Private Sub Command1_Click( )
x = 5: Y = 3
Call proc(x, Y)
Label1.Caption = x
Label2.Caption = Y
Private Sub proc(ByVal a As Integer, ByVal b As Integer)
程序运行后，单击命令按钮，则两个标签中显示的内容分别是(A)(单)
A.5和3&&&&&&
B.25和3&&&&&&
C.25和6&&&&&&
52253.在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过程：
Private Sub Command1_Click( )
For i = 1 To 15
x = 2 * i - 1
If x Mod 3 = 0 Then
Label1.Caption = S
程序运行后，单击命令按钮，则标签中显示的内容是(B)(单)
C.27&&&&&&
52254.在窗体上画一个名称为Commandl的命令按钮和三个名称分别为Labell、Label2、Label3的标签，然后编写如下代码：
Private Sub Command1_Click( )
Static y As Integer
Dim z As Integer
Label1.Caption = x
Label2.Caption = y
Label3.Caption = z
运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是(A)(单)
A.10 10 10&&&
C.30 30 10&&&
D.10 30 30
52255.设在窗体上有一个名称为Commandl的命令按钮，并有以下事件过程：
Private Sub Command1_Click( )
Static b As Variant
b = Array(1, 3, 5, 7, 9)
For I = 0 To 5 \ 2
tmp = b(I)
b(I) = b(5 - I - 1)
b(5 - I - 1) = tmp
For I = 0 To 4
Print b(I);
对此过程说法正确的是(A)(单)
A.此段程序的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)
B.把数组b中的5个数存放顺序为1，3，5，7，9
C.程序输出结果为：1 3 5 7 9
D.数组b下标的下界从1开始
#52256.一个工程中包含两个名称分别为Forml、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Forml、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：
Forml中定义的过程：
PriVate Sub frmfunctionl( )
Form2中定义的过程：
Public Sub frmfunction2( )
mdlFunc中定义的过程：
PubliC Sub mdlFunction( )
在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是(C)(单)
A.上述三个过程都可以在工程中的任何窗体或模块中被调用
B.frmfunction2和mdlfunction过程能够在工程中各个窗体或模块中被调用
C.上述三个过程都只能在各自被定义的模块中调用
D.只有mdlFunction过程能够被工程中各个窗体或模块调用
52257.在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Commandl的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为"Save"，缺省文件名为"SaveFile"，在"文件类型"栏中显示*.txt。则能够满足上述要求的程序是(D)(单)
A.& Commondialogl.FileName="Savefile":
Commondialogl.filter＝"All
Files|*.*|(*.txt)|*.txt|(*.doc).|*.doc":
CommonDialogl．Filterindex=2 :
CommonDialogl.Dialogt＝"Save":
CommonDialogl．Action＝2
B.CommonDialogl.FileName="SaveFile":
CommonDiaLogl．Filter＝"A11
Files|*.*|(*.txt)|*.txt|*.doc|*.doc":
CommonDialogl．FilterIndex＝1:
CommonDialogl.DialogTitle="Save" :
CommonDialogl．Action＝2
C.CommonDialogl．FileName＝"Save":
CommonDialogl.FiLter="A11Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
CommonDialogl.Filterindex=2 :
CommonDialogl．DialogTitle＝"SaveFile" :
CommonDialogl．Action＝2
D.CommonDialogl.FileName="SaveFile":
CommonDialogl.Filter = "All
Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc":CommonDialogl.FilterIndex
2:CommonDialogl.DialogTitle="Save":
CommonDialogl.Action = 1
52258.Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是【组合框】。
52259.Visual
Basic提供的对数据文件的三种访问方式为随机访问方式、【顺序访问方式】和二进制访问方式。
52260.执行下面的程序段后，变量S的值为【9】。
For I ＝2.6 To 4.9 Step 0.6
52261.为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框PP，所使用的语句为【PP.PICTURE=LOADPICTURE(“D:\PIC\A.JPG”)】。
52262.计时器控件能有规律的以一定时间间隔触发【Timer】事件，并执行该事件过程中的程序代码。
52263.计时器控件唯一能够触发的事件是【Timer】事件。
52264.以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。
Private Sub Commandl_C1ick( )
For I＝1 To 20
x＝Int(【Rnd】*101+200)
If　x Mod 5＝0 Then
Print "Sum＝";S
52265.以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。Private
Sub Commandl_C1ick( )
For I＝1 To 20
x＝Int(Rnd*101+200)
If 【x mod 5】＝0 Then
Print "Sum＝";S
52266.以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。
Private Sub Commandl_C1ick( )
For I＝1 To 20
x＝Int(Rnd*101+200)
If　x Mod 5＝0 Then
S＝S+【x】
Print "Sum＝";S
52267.设有如下程序：
Private Sub Form_Click( )
Dim a AS Integer,b As integer
a＝20：b=50
Print"a＝";a,"b＝";b
Sub pl(x As Integer，ByVal y As Integer)
Sub p2(byVal x As Integer, y As Integer)
Sub p3(ByValx As Integer, ByVal y As Integer)
该程序运行后，单击窗体，则在窗体上显示的内容是：a＝【30】和b=70。
52268.设有如下程序:
Private Sub Form_Click( )
Dim a AS Integer,b As integer
a＝20：b=50
Print"a＝";a,"b＝";b
Sub pl(x As Integer,ByVal y As Integer)
Sub p2(byVal x As Integer, y As Integer)
Sub p3(ByValx As Integer, ByVal y As Integer)
该程序运行后，单击窗体，则在窗体上显示的内容是：a＝30和b=【70】。
52269.在窗体上画一个名称为Commandl的命令按钮，编写如下事件过程：
PriVate Sub Commandl_C1ick( )
Dim As String
a=【“”】
For I ＝1 To 5
Print Space(6-I)：Mid$(a,6－I,2*I－1)
程序运行后，单击命令按钮，要求窗体上显示的输出结果为：
52270.在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”；如果存在，则在Label2中给出提示“输入项已在组合框中”。
Private Sub Combol_( )(KeyAscii As integer)
1f KeyAscii＝13 Then
For I＝0 To Combo1．listCount-1
1f Combo1．Text＝Combo1.List【keypress】 Ihen
Label2．Caption＝"输入项己在组合框中"
Label2．Caption＝"已成功添加输入项"
Combo1．AddItem Combo1．Text
52271.在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”；如果存在，则在Label2中给出提示“输入项已在组合框中”。
Private Sub Combol KeyPress(KeyAscii As integer)
1f KeyAscii＝13 Then
For c＝0 To Combo1．listCount-1
1f Combo1.Text＝Combo1.【list（c）】 Ihen
Label2.Caption＝"输入项己在组合框中"
Label2．Caption＝"已成功添加输入项"
Combo1．AddItem Combo1.Text
52272.DDITEM在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”；如果存在，则在Label2中给出提示“输入项已在组合框中”。
Private Sub Combol　KeyPress(KeyAscii As integer)
If KeyAscii = 13 Then
For I = 0 To Combo1.ListCount
If Combo1.Text = Combo1.List(I) Then
Label2.Caption = "输入项己在组合框中"
Label2.Caption = "已成功添加输入项"
Combo1.【additem】
Combo1.Text
52273.设有如下程序：
Private sub search(a( )As variant，ByVal key As
Variant，index%)
For I＝Lbound(a) To Ubound(a)
If key＝a(I) Then
Private Sub Form_Load( )
Dim b( ) As Variant
Dim n As Integer
b＝Array(1，3，5，7，9，11，13，15)
Call search(b，11，n)
程序运行后，输出结果是【5】。
52274.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是(C)(单)
A.工程资源管理器窗口&&&&&&
B.工具箱窗口
C.代码窗口&&&&&&&&&
D.属性窗口
52275.以下叙述中正确的是(A)(单)
A.窗体的Name属性指定窗体的名称，用来标识一个窗体
B.窗体的Name属性的值是显示在窗体标题栏中的文本
C.可以在运行期间改变对象的Name属性的值
D.对象的Name属性值可以为空
52276.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是(C)(单)
A.单选按钮&&&
B.图片框&&&&&
C.通用对话框& D.文本框
@52277.设有如下变量声明:Dim TestDate As Date
,为变量TestDate正确赋值的表达方式是(A)(单)
A.TextDate=#1/1/2002#&&&&&
B.TestDate=#"1/1/2002"#
C.TextDate=date("1/1/2002")
D.TestDate=Format("m/d/yy","1/1/2002")
52278.设有如下声明： Dim X As Integer , 如果Sgn(X)
的值为-1，则X的值是(D)(单)
A.一定是整数&&&&&&&&&&&
B.一定是大于0的整数
C.一定是等于0的整数&&&
D.一定是小于0的数
52279.在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
Private Sub Command1_Click( )
Static x As Integer
Static y As Integer
程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为(B)(单)
B.15 6&&& C.15
52280.设a=3,b=5,则以下表达式值为真的是(B)(单)
A.a＞＝b And
b＞10&&&&&&&&&
B.(a＞b) Or (b＞0)
C.(a＜0) Eqv
(b＞0)&&&&&&&&
D.(-3+5＞a) And (b＞0)
52281.设有语句: x = InputBox$("输入数值",
"示例","0"),程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中不正确的是(A)(单)
A.变量X的值是数值10
B.在InputBox对话框标题栏中显示的是"示例"
C.0是默认值&&&&&&&&
D.变量X的值是字符串"10"
52282.从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是(D)(单)
A.Left&&&&&&
B.Mid&&&&&
C.String&&&&
52283.设a="Visual Basic"，下面使b="Basic"的语句是(B)(单)
A.b=Left(a,8,12)&&&&&&&
B.b=Mid(a,8,5)
C.b=Rigth(a,5,5)&&&&&&&
D.b=Left(a,8,5)
52284.以下能够触发文本框Change事件的操作是(D)(单)
A.文本框失去焦点&&&&&&&
B.文本框获得焦点
C.设置文本框的焦点&&&&&
D.改变文本框的内容
52285.在窗体上有一个文本框控件，名称为TxtTime,一个计时器控件，名称为Timerl,要求每一秒钟在文本框中显示一次当前的时间。程序为：
Private Sub Timer1_( )【】
TxtTime.text=Time
在【】中填入合适的事件（D）(单)
A.Enabled&&&&
B.Visible&&&
C.Interval&&&&&
52286.在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为"宋体"和"黑体"；一个复选框，名称为Check1,标题为"粗体"；一个文本框，名称为Text1，Text属性为"改变文字字体"。要求程序运行时，"宋体"单选按钮和"粗体"复选框被选中，则能够实现上述要求的语句序列是(D)(单)
A.Option1.Value=True Check1.Value=True
B.Option1.Value=True Check1.Value=False
C.Option2.Value=False Check1.Value=True
D.Option1.Value=True Check1.Value=1
52287.以下程序是求3～10的乘积：
For i =3 To 10
其中【】填写正确的是：（B）(单)
B.t = t * i
C.t = t + i&& D.以上都不正确
52288.以下程序是求3～10的乘积：
For i =3 To 10
将【】处填写变量t的初始值。
52289.在VB中，当表达式的类型与变量的类型不一致时,强制转换成等号左边的精度。如：
s% = 10 / 3
s中的结果为(B)(单)
A.3.3333333&&&&
B.3&&&&&&&&
52290.在求解分段函数时，可以用双分支结构来实现：
If x＜＞0 Then
y=sin(x)+sqr(x*x+1)
y=cos(x)－x^3+3*x
但也可以用单分支结构来实现：
y=cos(x)－x^3+3*x
If x＜＞0 Then 【Y=SIN(X)+SQR(X*X+1)】
52291.已知变量strC中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符。用多分支结构实现：
If Ucase(strC) ＞＝" A" And Ucase (strC) ＜＝" Z" Then
Print strC + "是字母字符"
ElseIf strC ＞＝"0" And 【strc&="9"】 Then
Print strC + "是数字字符"
Print strC + "其他字符"
52292 .判断下面的程序段是否正确。√
If mark ＞＝ 90 Then
Print "优"
ElseIf mark ＞＝ 80 Then
Print "良"
ElseIf mark ＞＝ 70 Then
Print "中"
ElseIf mark ＞＝ 60 Then
Print "及格"
Else Print "不及格"
52293 .判断下面的程序段是否正确。√
If mark ＜60 Then
Print "不及格"
ElseIf mark ＜ 70 Then
Print "及格"
ElseIf mark ＜ 80 Then
Print "中"
ElseIf mark ＜ 90 Then
Print "良"
Print "优"
52294 .判断下面的程序段是否正确。&
If mark ＞＝ 60 Then
Print "及格"
ElseIf mark ＞＝70 Then
Print "中"
ElseIf mark ＞＝80 Then
Print "良"
ElseIf mark ＞＝90 Then
Print "优"
Print "不及格"
52295.已知变量strC中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符。用情况语句实现：
Select Case strC
Case "a" To "z"，"A" To "Z"
Print strC + "是字母字符"
Case 【"0" To "9"】
Print strC + "是数字字符"
Print strC + "其他字符"
52296 .判断下面的程序段是否正确。&
Select Case mark
Case mark ＞＝ 90
Print "优"
Case mark ＞＝80
Print "良"
Case mark ＞＝70
Print "中"
Case mark ＞＝60
Print "及格"
Print "不及格"
End Select
52297 .判断下面的程序段是否正确。√
Select Case mark
Case Is ＞＝ 90
Print "优"
Case Is ＞＝ 80
Print "良"
Case Is ＞＝ 70
Print "中"
Case Is ＞＝ 60
Print "及格"
Print "不及格"
End Select
52298 .判断下面的程序段是否正确。√
Select Case mark
Case Is ＞＝ 90
Print “优"
Case 80 To 89
Print "良"
Case 70 To 79
Print "中"
Case 60 To 69
Print "及格"
Print "不及格"
End Select
52299 .判断下面的程序段是否正确。&
Select Case mark1,mark2,mark3
Case (mark1 + mark2 + mark3) / 3 ＞＝ 95
Print "一等奖"
Case mark1=100 And mark2=100 And mark3＞＝ 80
End Select
52300.下面程序段执行的次数为(C)(单)
For I=2 To 13 Step 3
Print "i="; i
52301.下面程序段执行结束后变量i 的值为(C)(单)
For I=2 To 13 Step 3
Print "i="; i
A.11&&&&&&
B.13&&&&&&&&
C.14&&&&&&
52302.在Do ......Loop循环的形式中：
Do { While|Until }＜条件＞
下面说法正确的是(A)(单)
A.While用于当条件为真时，执行循环体中的语句
Until用于当条件为假时，执行循环体中的语句，一旦条件为真时，就退出循环
B.While用于当条件为假时，执行循环体中的语句
Until用于当条件为假时，执行循环体中的语句，一旦条件为真时，就退出循环
C.While用于当条件为真时，执行循环体中的语句
Until用于当条件为真时，执行循环体中的语句，一旦条件为假时，就退出循环
D.只要遇到Exit Do 语句,不一定使得整个do循环运行结束
52303.在Do ... ... Loop语句中有两种形式：
Do { While|Until }＜条件＞
Loop {While|