第一部分:客观题
一、 单项选择题 1、在窗体模块的通用段中声明变量时,不能使用的关键字是( )
A、 Dim B、 Public C、Private D、 Static
2、在设计阶段,当双击窗体上的某个控件时,所打开的窗口是( )
A、工程资源管理器窗口 B、工具箱窗口 C、 属性窗口 D、代码窗口
3、若要使某可见控件获得焦点,可使用( )方法来实现。
A、Refresh B、Setfocus C、Gotfocus D、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、当用户在窗体上单击鼠标时,不会触发的事件是( )
A、Click B、MouseDown C、MouseUp D、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((ad), \后,x的值为
___【5】___ 。
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 Call mysub(i, j) Print j End Sub
Public Sub mysub(ByVal x As Integer, y As Integer) x = y + x y = x Mod y End Sub
4、程序运行时,单击Command1按钮,显示结果是___【4】___。
VB期末考试试题及答案(1)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)