一、填空题（每题1分，共10分）
1.把数学式子：1??2sin25?写成VB的数值表达式为
（ Sqr(1+3.14159/2*Sin(25*3.14159/180)) ）。
2．设A=5，B=6，C=7，D=8，表达式3>2*B OR A=C AND B<>C OR C>D的值是（ True ）。
3．若Case子句中的表达式表列具有形式：<表达式1> To <表达式2>，则它的含义是：当测试表达式的值等于（ 指定范围内的值 ）时，执行该Case子句相应的语句块。
4．执行下面的程序段后，x的值为（ 12 ）。
x=0
For i=1 To 8 Step 3
x=x+i
Next i
5．在图片框上放置的控件称为图片框的（ 子 ）对象，而窗体是图片框的（ 父 ）对象。
6．将命令按钮Command1的Caption属性值赋给文本框Text1的Text属性使用的语句为( Text1.Text=Command1.Caption)
7．复选框的Value属性为（ 1 ）时，表示复选框被选中。
8. 使用滚动条可以获取某一范围内的数值输入。为使垂直滚动条的Value属性值从下往上递增变化，应设置滚动条Min属性值大于( Max )属性值。
9．语句：Dim A(-3 to 4) as Integer定义的一维数组A的元素个数是（ 8 ）。
10．给定如下子过程：
Function fun(ByVal num As Long) As Long
Dim k As Long,i As Integer
k=1
For i=1 To num
k=k*i
Next i
End Function
执行语句Print fun(5) 后在窗体上显示的结果为（ 0 ）。
二、单项选择题（每题1.5分，共30分）
1.装载窗体是窗体的（ C ）。
A) 对象 B) 属性 C) 事件 D) 方法
2.设a=\，下面使b的值为\的赋值语句正确的是( B )。
A) b=Left(a,8,12) B) b=Mid(a,8,5)
C) b=Right(a,5,5) D) b=Left(a,8,5)
3．设X为整型变量,不能正确表达1< X < 5的逻辑表达式是( A )。
A) 1< X <5 B) X=2 or X=3 or X=4
C) 1
4．InputBox函数返回值的类型为( B )。
A) 数值型 B) 字符串型 C) 逻辑型 D) 货币型
5．执行语句：Print 4+5\\6*8/8 Mod 9 输出的值是( A )。
A) 4 B) 5 C) 6 D) 7
6.下列循环语句能正常结束循环的是（ C ）。
A)i=5 B) i=1
Do Do
i=i+1 i=i+2
Loop Until i< 0 Loop Until i=10
C)i=10 D) i=6
Do Do
i=i+1 i=i-2
Loop Until i> 0 Loop Until i=1
7．以下叙述中正确的是 （ A ）。
A) 窗体的Name属性指定窗体的名称 ，用来标识一个窗体
B) 窗体的Name属性的值是显示在窗体标题栏中的文本
C) 可以在运行期间改变窗体的Name属性的值
D) 窗体的Name属性值可以为空
8．VB为命令按钮提供的Cancel属性（ A ）。
A) 用来指定命令按钮是否为窗体的“取消”按钮
B) 用来指定命令按钮的功能是停止一个程序的运行
C) 用来指定命令按钮的功能是关闭一个运行程序
D) 用来指定命令按钮的功能是中断一个程序的运行
9．若使命令按钮失效，要对（ A ）属性设置为False。
A) Enabled B) Visible C) BackColor D)Caption
10．在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：
Private Sub Command1_Click()
a = UCase(Text1.Text) + Left(Text2.Text, 3)
Print a
End Sub
Private Sub Form_Load()
Text1.Text = \
Text2.Text = \
End Sub
程序启动后，单击命令按钮，输出结果为（ C ）
A）abcDEF123456 B）abcDEF123
C）ABCDEF123 D）ab123456
11．在运行程序时，要使文本框获得焦点，则需使用（ B ）方法。
A) Change B) SetFocus C) GotFocus D) Move
12．下列语句中不能把图片框Picture1中的图形清除的是（ A ）。
A) Picture1.Del B) Picture=LoadPicture(\
Picture1.
《VisualBasic程序设计》试题及其答案
