Counter= Counter+1 End if Next N
Print Counter End Sub
卷2
第一部分：客观题
一、 单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（ ）
A、 Dim B、 Public C、Private D、 Static
2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ）
A、工程资源管理器窗口 B、工具箱窗口 C、 属性窗口 D、代码窗口
3、若要使某可见控件获得焦点，可使用（ ）方法来实现。
Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value 4、下列不可作为VB变量名的是（ ）
A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\\5*2的值是 （ ）
A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（ ）
A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（ ）。 n = 4: x = 1: i = 1 Do
x = x * i i = i + 1 Loop While i < n
A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（ ）
Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick 9、下列为整型变量的是（ ）
A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。
A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（ ）
A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0 C、x Mod 2 =0 And y Mod 2=0 D、x Mod 2 =1 And y Mod 2 =1
12、在通用声明中给出Option Base 1语句，则数组a包含（ ）个数组元素。 Dim a(3, -2 To 1, 5) As Integer
A、60 B、75 C、120 D、13
13、设窗体上有一个名称为Text1的文本框，要求只能显示信息，不能输入，应选择答案
（ ）
A、Text1.MaxLength=0 B、Text1.Width=0
C、Text1.Visible=False D、Text1.Enabled=False
14、命令按钮CommandButton的Picture,DownPicture和DisablePicture属性都已装入图形,按下命令按钮,其上显示的图形是（ ）
A、Picture属性中的图形 B、DownPicture属性中的图形 C、DisablePicture 属性中的图形 D、不显示图形
15、在窗体上画一个名称为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
程序运行后，单击命令按钮，在窗体上显示的内容是 （ ） A、 10 5 B、 12 5 C、 10 7 D、 12 7
16、执行以下程序段，输出结果为 （ ） Private Sub Command1_Click() a$=\
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 End Sub
A、 ABA B、ABBABA C、 BBABBA D、AABAAB 17、以下（ ）语句可表示[50,100]之间的随机数。
A、Int(Rnd * 51) + 49 B、Int(Rnd * 51 +50) C、Int(Rnd * 50) + 5 D、Int(Rnd * 50 + 50)
18、执行x = InputBox(\请输入半径\求面积\，在输入框中输入3后回车,则下列叙述正确的是（ ）
A、x的值是数值3 B、 x的值是字符\
C、0是默认值 D、 对话框标题是\求面积\
19、设置图像框的（ ）可使框内的图片按图像框大小自动调整。
A、 AutoSize属性为True B、 Stretch属性为True C、 AutoSize属性为False D、 Stretch属性为False
20、有如下事件过程
Private Sub Command1_Click() x = 1
For i = 1 To 3
If i <= 1 Then a = x * x If i <= 2 Then a = x * x + 1 If i >= 3 Then a = x * x + 2 Print a; Next i End Sub
运行时，单击命令按钮，则结果是（ ）：
A、 2 5 11 B、1 5 1 C、 2 2 3 D、1 1 1 21、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click() Static X As Integer Static Y As Integer Cls
Y = 1: Y = Y + 5: X = 5 + X Print X, Y End Sub
，单击命令按钮Command1三次后，窗体上显示的结果为（ ）
A、15 16 B、15 6 C、15 15 D、 5 6 22、设a=3,b=5，则以下表达式值为TRUE的是（ ）
A、 a>=b And b>10 B、 a>b Or b>0 C、 a<0 and b >0 D、 -3+5>a and b>0
23、从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是（ ）
A、 Left B、Mid C、String D、Instr 24、下列哪组语句可以将变量a，b的值互换（ ）
A、 a=b: b=a B、 a=a+b: b=a-b: a=a-b C、 a=c: c=b: b=a D、 a=(a+b)/2: b=(a-b)/2 25、可以同时删除字符串前导和尾部空格的函数是（ ）
A、 Ltrim B、 Rtrim C、Trim D、Mid 26、表达式29\\3的值是（ ）
A、 1 B、7 C、 8 D、 9 27、下列程序运行后，单击command1时显示的结果是（ ） Private Sub Command1_Click() x = 1
mysub x + 2 Print x
End Sub
Public Sub mysub(x As Integer) x = 3 * x - 1
If x < 4 Then x = x + 10
Print x; End Sub
A、 8 1 B、 8 8 C、 19 1 D、 19 19 28、以下有关Visual Basic语言描述中错误的是（ ）。
A、不区分大小写 B、语句是一行一句，以回车键结束 C、用“,”分隔一行中的多个语句
D、一条语句放在多行中，则在前一行结束处使用续行符空格+下划线（“ _”）连接下一行 29、在窗体上添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程： Private Sub Command1_Click() x = 0
Do While x < 50
x = (x + 2) * (x + 3) n = n + 1 Loop
Text1.Text = Str(n) Text2.Text = Str(x) End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为( )
A、1和0 B、2和72 C、3和50 D、4和168 30、设有如下声明：
Dim X As Integer
如果Sgn(X) 的值为-1，则X的值是（ ）
A、整数 B、大于0的整数 C、等于0的整数 D、小于0的数
二、 判断题
下列各题如果是正确的，请在机读卡对应位置上涂A，如果是错误的涂B。答在试卷 上不得分 1、VB程序运行后，在内存中只能驻留一个窗体。
2、在VB中，控件的属性只能在设计时修改，运行时无法改变。 3、执行Unload Form1语句后，窗体Form1消失，但仍在内存中。
4、在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程。
5、Function过程与Sub过程最主要的区别是：SUB过程不能返回值，而FUNCTION 过程能返回值。
6、用Print方法可以在图像框中输出数据。
7、Dim a,b,c As Integer能将a,b,c都声明成整型变量。
8、语句print “*”;tab(10);”a”与语句print “*”;spc(10);”a”的显示结果 是一样的。
9、控件数组使用Index属性来标识控件元素，其范围必须从0开始。 10、文件号的最大取值为512。
第二部分：主观题
三、 填空题
请在答题卷对应位置填写答案，答在试卷上不得分。
1、数学关系式a2+b2 表示成正确的VB表达式为___【1】___ 。 2、计算表达式的值Int(86.567 * 100 + 0.5) / 100＝___【2】___ 。
3、赋值语句g = 123 + Mid(\执行后，变量g中的值是___【3】___ 。 4、VB6.0在编写代码时可以添加说明性文字。注释方法有2种，一种是使用注释标记符撇号（’）；另一种是使用以关键字___【4】___开头的注释语言。
5、设a=\，b=\，c=\，d=\，执行语句x=IIf((a
6、在VB中，描述对象特征的数据称为对象的___【6】___。
7、有下面的表达式x1=val(“1e2abcd”)，运行后，x1的值为：___【7】___ 。 8、产生一个两位数的随机数的表达式为：___【8】___。
9、只有控件对象的Enabled和Visible属性值均为___【9】___ 时，该控件对象才能接受焦点。
10、设a=10，b=5，c=1，执行语句Print a>b>c后，窗体上显示的是___【10】___ 。
四、 读程序写结果
请将答案填写在答题卷对应位置处，答在试卷上不得分。
1、下面程序执行后a的值是___【1】___。
Private Sub Command1_Click() Dim a As Integer, b As Integer a = 1: b = 1
Do While b <> 5 a = b - a b = b + 1 Loop Print a
End Sub
2、下列程序运行后，单击窗体时显示的结果是___【2】___。
Private Sub Form_Click() Dim x As Integer x = 1 mysub x Print x
End Sub
Private Sub mysub(x As Integer) x = 3 * x - 1
If x < 5 Then x = x + 9
End Sub
3、单击窗体，程序运行后结果是___【3】___。
Private Sub form_Click()
Dim i As Integer, j As Integer i = 22: j = 44