填空。
1、可以通过 文件 菜单中的 退出 命令退出 Visual Basic。 直接点X就可以了，有这么费事？
2、工程文件的扩展名是__VBP____，窗体文件的扩展名是_FRM___。
3、属性窗口分为4个部分。这4个部分分别是_____、_____、_____、_____。不知道，没研究过
4、已知a=2,b=3,c=4,d=5,则表达式 not a<=c or 4*c=b^2 and b<>a+c Xor(5<6)的值为__True___。
5、若用变量x 来存放数据765432.123456，应将x 声明为__Double___变量类型。
6、若X%=3.14，则Len(X)的值是___2__。
7、执行下列循环语句，退出循环后的I值为__16___。
For I=0 To 13.2 Step 3
I=I+1
Next I
Print I
8、执行mid(“You are a good student”,11,4)的值为_good____。
9、X$="abc3456","a"+str$(val(right$(X,4)))的值为__a3456___。
10、为了选择多个控件，可以按住__Shift___键，然后单击每个控件。
二、选择题
1、以下可以构成语句一项是 （ b ）
A、对象名.属性名 B、对象名.方法名
C、对象名.事件名 D、对象名.函数名
2、逻辑表达式的 Not "a">"b" and 9<3 or 9>3 的值为 （A ）
A Ture B False C 表达式错误 D条件不足
3、一下那些变量名是合法的？（ A C ）
A、B B、Global C、City_name D、15A
4、在数值变量类型中占 4 个字节的有哪些？（B ）
A、Byte 类型 B、Long 类型 C、Variant 类型 D、Integer 类型
5、在VB设计界面中不能隐藏的窗口是 （D ） 好像都可以隐藏
A 工程窗口 B 属性窗口 C 立即窗口 D 窗体窗口
6、下列哪组语句可以将变量A、B值互换。 （ C ）
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
7、一下叙述中错误的是 （ B C ）
A、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B、保存Visual Basic程序时，应分别保存窗体文件及工程文件
C、Visual Basic 应用程序只能以解释方式执行
D、时间可以由用户引发，也可以由系统引发
8、循环结构 For i！=1 to 10 step 1.5 工执行几次（B ）
A 6 B 7 C 9 D 10
9、函数Int(10*Rnd)是在哪个范围内的整数。（ D ）
A、[0，1] B、[1，10] C、[1，9] D、[0，9]
10、用情况选择语句Select Case X,选择|X| >5情况的语句为Case __( C )
A、Not (-5 To 5) B、5 To 5 C、Is < -5,Is >5 D、ABS(X) > 5
11、对象可以识别和响应的某些操行为称为 （D ）
A、属性 B、方法 C、继承 D、事件
12、要声明一个长度为256个字符的定长字符串变量 str ，以下语句正确的是 （D ）
A、Dim str as String B、Dim str as String(256)
C、Dim str as String[256] D、Dim str as String*256
13、用于获取字符串长度的函数是 （A ）
A、Len() B、Length() C、StrLen() D、LOF()
14、通常用户自己编写对话框，窗体最好是大小不变的，应该设置窗体以下的（ ）属性。 （ B ）
A、ScaleWidth 和 ScaleHeight B、BorderStyle
C、AutoSize D、ScaleMode
15、Dim b1，b2 as boolean 语句显示声明变量 （ C ）
A、b1 和 b2 都为布尔型变量
B、b1 是整型，b2 是布尔型变量
C、b1 是变体型，b2 是布尔型变量
D、b1 和 b2 都为是变体型变量
16、数学式子sin25°写成VB表达式是 （ C ）
A、sin25 B、Sin(25) C、Sin(25*3.14/180) D、Sin(25°)
17、若 x 是一个整实数，对 x 的第 3 为小数四舍五入的表达式是 （ ）
A、0.01*Int(x+0.005) B、0.01*Int(100*(x+0.005))
C、0.01*Int(100*(x+0.5)) D、0.01*Int(x+0.05)
18、函数 Left(“Hello”，2)的值为 （A ）
A、He B、el C、lo D、True
19、以下能正确定义数据类型 TelBook 的代码是 （ ） 好像A对，但最后一个字母错了
A）Type TelBook
Name As String*10
TelNum As Integer
End Typr
B）Type TelBook
Name As String*10
TelNum A s Integer
End TelBook
C）Type TelBook
Name String*10
TelNum Integer
End Type TelBook
D）Typedef TelBook
Name String*10
TelNum Integer
End Type
20、以下不属于 Visual Basic 系统的文件类型是 （B ）
A）.frm B）.nat C）.vbg D）.vbp
问答题。
1、VB的主要特点？
VB6已经过时了
2、什么是对象？
VB6不支持真正的面向对象
3、用VB开发应用程序的一般步骤？
是软件开发还是VB开发？软件开发的步骤太多了
4、什么是常量、什么是变量？
变量会变，常量的值不变
编程题。
1、输入a、b、c 3个数，输出其中的最大数。
d=a
if b>d then d=b
if c>d then d=c
msgbox d
2、窗体上有一个文本框 Textl 、一个命令按钮，标题为“执行”，名称为 Commandl。运行程序后，向文本框中输入一个数值，然后单击命令按钮“执行”，根据输入的成绩，判断学生的成绩等级：（不及格、及格、中等、良好、优秀）
Private Sub Command1_Click()
Select Case Val(InputBox("请输入成绩"))
Case Is >= 90
MsgBox "优秀"
Case 80 To 89
MsgBox "良好"
Case 70 To 79
MsgBox "中等"
Case 60 To 69
MsgBox "及格"
Case Else
MsgBox "不及格"
End Select
End Sub
3、编写一程序，当我们单击窗体时，用输入框输入一自然数，判断是否“正确”、“负数”或“零”，并根据输入的数用消息框显示“正数”、“负数”或“零”。
Private Sub Form_Click()
a = InputBox("请输入数字")
If a <> Val(a) Then
MsgBox "不是数字"
ElseIf a > 0 Then
MsgBox "正数"
ElseIf a = 0 Then
MsgBox "0"
Else
MsgBox "负数"
End If
End Sub
