VB程序设计试题及答案一

V B程序设计试题及答案（一）

一、单选题

1. VB6.0是一种面向B 的编程环境。

(A) 机器(B) 对象

(C) 过程(D) 应用

2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。

(A) Forml.Caption=“欢迎使用VB”

(B) Forml.Caption='欢迎使用VB'

(C) Forml.Caption=欢迎使用VB

(D) Forml.Caption="欢迎使用VB"

3. 若要使命令按钮不可操作，要对A 属性进行设置。

(A) EnabIed (B)Visible

(C) Backcolor (D)Caption

4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。

(A) Change (B) LostFocus

(C) KeyPress (D) GotFocus

5. 下面A 是合法的变量名。

(A) X_yz (B) 123ab。(C) integer (D) X-Y

6. 以下关系表达式中，其值为False的是A 。

(A) "ABC">"AbC" (B) "女">"男"

(C) "BASIC"=UCase("basic) (D) "123"<"23"

7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。

(A) x=1:y=1:z=1 (B) x=1,y=1,z=1

(C) x=y=z=1 (D) xyz=1

8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。

(A)递归结构、选择结构、循环结构

(B)选择结构、过程结构、顺序结构

(C)过程结构、输入输出结构、转向结构

(D)选择结构、循环结构、顺序结构

9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。

(A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l

(B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l

(C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l

(D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l

10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。

(A) Do While…Loop循环和Do…Loop Until循环至少都执行一次

(B) Do While…Loop循环和Do…Loop Until循环可能都不执行

(C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行

(D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次

11.以下B 是正确的For…Next结构。

(A) For x=1 To Step 10 (B) For x=3 To -3 Step -3

……

Next x Next x

(C) For x=1 To 10 (D) For x=3 to 10 step 3

re: ……

Next x Next y

If i=10 Then GoTO re

12.如下数组声明语句，B 是正确的。

(A) Dim a[3,4] As Integer

(B) Dim a(3,4) As Integer

(C) Dim a(n,n) As Integer

(D) Dim a(3 4) As Integer

13.下列语句中（假定变量n有值），能正确声明可变长数组的是A 。

(A) Dim a( ) As Integer (B) Dim a( ) As Integer

ReDim a(n) ReDim a(n) As String

(C) Dim a( ) As Integer (D) Dim a(10) As Integer

ReDim a(3, 4) ReDim a(n+10)

ReDim Preserve a(4, 4)

14.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是C 。

(A) Sub f2(ByVal n%, ByVal m%) (B) Sub f1(n%, ByVal m%)

(C) Sub f1(n%, m%) (D) Sub f1(ByVal n%, m%)

15.设有如下程序段：

Public Sub F1(n%)

…

n=3*n+4

…

End Sub

Private Sub Command1_Click( )

Dim n%, m%

n=3

m=4

…

‘调用F1语句

…

End Sub

则在Command1_Click事件中有效的调用语句是B 。

(A) Call F1(n+m) (B) Call F1(m) (C) Call F1(5) (D) Call F1(m+5)

16.用来设置粗体字的属性是C 。

(A) FontItalic (B) FontName (C) FontBold (D) FontSize

17.假定定时器的Interval属性为1000，Enabled属性为True，调用下面的事件过程，程序运行结束后变量x的值为 D 。

Dim x As Integer

Sub Timer1_Timer( )

For i=1 to 10

x=x+1

Next i