一、单项选择
1．变量未赋值时,数值型变量的值为(). A:0 B:空 C:1
D:无任何值
答案：A
2．.窗体的Caption属性的作用是(). A:确定窗体的名称 B:确定窗体的标题
C:确定窗体的边界类型 D:确定窗体的字体
答案：B
3.窗体设计器是用来设计(). A:应用程序的代码段 B:应用程序的界面 C:对象的属性 D:对象的事件
答案：B
4.Rnd函数不可能产生的()值. A:0 B:1
C:0.1234 D:.00005
答案：B
5.vb 中的坐标圆点位于(). A:容器右上角 B:容器左上角 C:容器正中央 D:容器右下角
答案：B
6. vb 应用程序是分层管理的,其最高的层次为(). A:工程 B:模块 C:窗体 D:过程
答案：A
7.窗体的Enable属性的属性值是()类型的数据. A:整型 B:字符型 C:逻辑型 D:实型
答案：C
8.INT(100*RND(1))产生的随机整数的闭区间是(). A:[0,99] B:[1,100] C:[0,100] D:[1,99]
答案：A
9.表达式X+1>X是(). A:算术表达式 B:非法表达式 C:字符表达式 D:关系表达式
答案：D
10.用键盘的光标键选中某一菜单项,并按回车将触发菜单的()的事件. A:KeyPress B:KeyDown C:Click D:KeyUp
答案：C
11.要清除组合框Combol中的所有内容,可以使用()语句. A:Combo1.Cls B:Combo1.Clear C:Combo1.Delete D:Combo1.Remove
答案：B
12.要强制显示声明变量,可在窗体模块或标准模块的声明段中加入 语句().
A:OptionBase0 B:OptionExplicit C:OptionBase1 D:OptionCompare
答案：B
13.要想清除文本框中的内容则可利用()进行. A:Caption B:Text C:Clear D:Cls
答案：B
14.用语句Dim A (-3 To 5) As Integer定义的数组的元素个数是(). A:6 B:7 C:8 D:9
答案：D
二、程序填空 1.
'-------------------------------------------------------
' 功能：输入一个数,若大于0,则显示\；若小于0，' 则显示 \；若等于\则显示\零\。 '------------------------------------------------------- Private Sub Command1_Click( ) x = Val(Text1.Text) Select Case x
'**********SPACE********** 【?】
Label1.Caption = \ Case Is < 0
'**********SPACE********** 【?】
'**********SPACE********** 【?】
Label1.Caption = \零\ End Select End Sub
答案：
1). Case Is > 0
2). Label1.Caption = \
3). Case 0 或 Case Else 或 Case Is = 0 2.
'-------------------------------------------------------
'功能：根据输入的学习成绩,分别显示优秀(90分以上), 良好 ' (75分以上),及格(60分以上),不及格几个等级。
'------------------------------------------------------- Private Sub Command1_Click() x = Val(Text1.Text) If x >= 90 Then
Label1.Caption = \优秀\'**********SPACE********** ElseIf 【?】Then
Label1.Caption = \良好\ElseIf x >= 60 Then
'**********SPACE********** 【?】
'**********SPACE********** 【?】
Label1.Caption = \不及格\End If End Sub
答案：
1). x >= 75 或 75 <= X
2). Label1.Caption = \及格\或 Label1 = \及格\ 3). Else 3.
'-------------------------------------------------------
'功能：输入数字1-7,显示其对应是星期几(例:输入 1,显示星期日, ' 如果输入其它内容，一律显示\输入错误\'------------------------------------------------------- Private Sub Command1_Click() dim x as integer dim y as string x=val(text1.text)
'**********SPACE********** 【?】
case 1
y=\今天是星期日\ case 2
y=\星期一\
case 3
y=\星期二\ case 4
y= \星期三\ case 5
y=\星期四\ case 6
'**********SPACE********** 【?】 case 7
y= \星期六\'**********SPACE********** 【?】
y = \输入错误\ end select Text2.Text = y End Sub
答案：
1). select case x 2). y=\星期五\ 3). Case Else 4.
'下面的程序段用于打印出以下图形 '
' * ' *** ' ***** ' ******* ' ***** ' *** ' * '
'------------------------------------------------------- Private Sub Form_Click() Dim i%, j%, k%
For i = 3 To 0 Step -1 For j = 0 To 2 * i Print \ Next j
'**********SPACE********** For k = 5 To 【?】