高二年级VB期末试卷
一、单选题（2分×20，共40分）
1、可以在窗体上输出数据的方法的是 （ A ）
A、Print B、Cls C、Show D、Hide
2、在VB中，被称为对象的是（ C ）
A、窗体 B、控件 C、控件和窗体 D、窗体、控件和属性
3、数据：“abcde”是（ C ）数据
A、整型 B、长整型 C、字符型 D、日期型
4、以下各项中，可以作为VB变量名的是（ ）
A、Book B、2_Seek C、123.58 D、Book-1
5、以下各项中，能作为VB变量名的是（ A ）
A、AB7 B、7AB C、If D、A[B]7
6、InputBox函数返回值的类型为（ B ）
A、数值 B、字符串
C、变体 D、数值或字符串(视输入的数据而定)
7、确定窗体控件启动位置的属性是（ D ）
A、Width 和 Height B、Width 或 Height
C、Top 和 Width D、Top 和 Left
8、数学式sin30°写成VB表达式是（ D ）
A、Sin30 B、Sin(30)
C、Sin(30°) D、Sin(30*3.14/180)
9、决定控件上文字的字体、字形、大小、效果的属性是（ D ）
A、Text B、Caption C、Name D、Font
10、设a、b、c为整型变量，其值分别为1、2、3，以下语句的输出结果是（ A ）
Print a;b;c
A、1 2 3 B、 2 3 1 C、3 2 1 D、2 3 2
11、下列说法中错误的是（ C ）
A、窗体文件的扩展名为.frm B、一个窗体对应一个窗体文件
C、VB中一个工程只包含一个窗体文件 D、VB中一个工程最多可以包含255个窗体
12、Visual Basic程序中的注释所使用的字符是（ A ）
A、' B、: C、\ D、_
13、VB中下列两个变量名相同的是（ B ）
A、Japan 和Ja_pan B、English 和ENGLish
C、English 和Engl D、China 和 Chin
14、若要求从文本框中输入密码时在文本框中只显示 * 号，则应在此文本框的属性窗口中设
置（ D ）。
A、Text 属性值为 * B、Caption 属性值为 *
C、Password 属性值为空 D、Passwordchar 属性值为 *
15、表达式“XYZ” + “487”的值是（A ）
A、“XYZ487” B、“XYZ” C、“487” D、“487XYZ”
16、将窗体中的某个按钮设置为无效状态，应设置命令按钮的哪个属性（ C ）
A、Value B、Visible C、Enabled C、Default
17、单击窗体上的关闭按钮时，触发的事件是（ C ）
A、Form_Initialize() B、Form_Load()
C、Form_Unload() D、Form_Click()
18、用于将窗体中的对象分组的控件是（ D ）
A、列表框 B、组合框 C、标签 D、框架
19、能获得一个文本框中被选中文本内容的属性是（ C ）
A、Text B、Length C、Seltext D、SelStart
20、下列程序段的执行后Y的结果为（ C ）
X=2：Y=5
If X*Y<1 Then Y=Y-1 Else Y=-1
A、4 B、 3 C、 －1 D、 1
二、填空题（每题2分×10，共20分）
1、布尔型数据只有__True______和__False______两个值。
2、关系运算符有>、<、=、<>、__>=______、______<=__ 6种。
3、Visual Basic 的print方法输出格式有 输出 和_____计算_______两种。
4、______inputbox()__________函数显示一个能接收用户输入数据的对话框，并返回用户在对话框中输入的消息。
5、__cls_________方法可以清除窗体或图片框中由Print方法在运行时所生成的文本或图形。
6、如果x是一个正实数，对x保留3位小数的表达式_____round(x,3)_______ 。
7、假定一个文本框的Name属性为Text1,为了使该文本框获得焦点，应执行的语句是 text1.setfocus 。
8、当对象失去焦点时，将触发 lostfocus 事件。
9、表达式Ucase(Mid(“abcdefgh”,3,4))的值是 “CDEF” 。
10、产生[5,200]的随机整数的表达式是 ____int(rnd*196+5)_______________。
三、把下列数学表达式改为VB表达式。（4分×4，共16分）
1、3(a-b) 2、1≤X＜5
3、x3÷4y 4、
四、写出下列表达式的值（4分×3，共12分）
1、Abs(-100)+Sqr(100)
2、Not 3<=4 And 4 < > 5
3、Int(Abs(99-100)/2)
五、阅读程序并填空(每空2分，共12分)
1、新建一个工程，内有两个窗体Form1和Form2，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，补充完整。
Private Sub Command1_Click( )
__form1.hide_____________
Form2.__show________
End Sub
2、下列程序可以实现在窗体上由用户任意输入一个整数，程序可以判断该数的奇偶。程序由一个文本框（Textbox）、两个标签（Label）、一个按钮（Command）组成。要求：奇或偶的结果在Label2内显示，请在空格处填入相应的语句，使之完成上述功能。
Private Sub Form_Load ( )
Text1.Text = “”
Label1.Caption = “请输入一个整数”
Label2.Caption = “”
Command1.Caption = “判定”
End Sub
Private Sub Command1_Click( )
Dim x As Integer
x = Val(Text1.text)
If __x mod 2=0______________ Then
label2.caption= x & “是偶数”
Else
label2.caption= x & “是奇数”
End If
End Sub
3、设计工程，输出在指定范围内的1个随机整数（参见运行效果图），范围在文本框中输
入。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = __ Val(Text1)_____________
b = Val(Text2)
__c=int(rnd*(b-a+1)+a)_______________________
Text3.Text = c
End Sub
