2002年4月全国计算机等级考试二级VB程序设计笔试试卷及答案

2002年4月全国计算机等级考试二级VB程序设计笔试试卷及答案

一、选择题(1~35题每题2分，共70分)

1．下列不能打开属性窗口的操作是（）

A）执行“视图”菜单中的“属性窗口”命令B）按F4键 C）按Ctrl+T D）单击工具栏上的“属性窗口”按钮

2．下列可以打开立即窗口的操作是（）

A）Ctrl+D B）Ctrl+E C）Ctrl+F D）Ctrl+G

3．InputBox函数返回值的类型为（）

A）数值 B）字符串 C）变体 D）数值或字符串（视输入的数据而定）

4．可以同时删除字符串前导和尾部空白的函数是（） A）Ltrim B）Rtrim C）Trim D）Mid

5．表达式4+5\\6 * 7 / 8 Mod 9 的值是（） A）4 B）5 C）6 D）7

6．如果在立即窗口中执行以下操作： a=8 （是回车键，下同） b=9

print a>b 则输出结果是（）

A）-1 B）0 C）False D）True

7．以下语句的输出结果是（） Print Format$(32548.5, \

A）32548.5 B）32,548.5 C）032,548.50 D）32,548.50

8．执行以下程序段后，变量c$的值为（） a$=\ b$=\

c$=b$ & UCase(Mid$(a$,7,6)) & Right $ (a$,11)

A）Visual BASIC Programing B）Quick Basic Programing C）QUICK Basic Programing D）Quick BASIC Programing

9．为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）

A）Value B）Default C）Cancel D）Enabled

10．为了把焦点移到某个指定的控件，所使用的方法是（）

A）SetFocus B）Visible C）Refresh D）GetFocus

11．设a=6，则执行 x=IIf(a>5,-1,0)后，x 的值为（） A）5 B）6 C）0 D）-1

12．执行下面的程序段后，x 的值为（） x=5

For i=1 To 20 Step 2 x=x+i\\5 Next i

A）21 B）22 C）23 D）24

13．在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4

For j =1 To 3 x=3

For k=1 To 2 x=x+6 Next k ,j ,i Print x End Sub

程序运行后，单击命令按钮，输出结果是（） A）7 B）15 C）157 D）538

14．在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click()

x=0

Do Until x=-1

a = InputBox(“请输入A的值”) a = Val(a)

b = InputBox(“请输入B的值”) b = Val(b)

x = InputBox(“请输入x的值”) x = Val(x) a = a+b+x Loop Print a End Sub

程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为（）

A）2 B）3 C）14 D）15

15．在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：

Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End Sub

Private Sub Form_Load()

Text1.Text=\ Text2.Text=\ End sub

程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（）

A）444 B）321123 C）123321 D）132231

16．阅读下面的程序段： For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k,j,i

执行上面的三重循环后，a 的值为（） A）3 B）9 C）14 D）21 17．在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程： Private Sub Form_Load() Text1.Text=\ Text1.SetFocus For i=1 To 10

Sum=Sum+i Next i

Text1.Text=Sum End Sub

上述程序的运行结果是（）

A）在文本框Text1中输出55 B）在文本框Text1中输出0 C）出错 D）在文本框Text1中输出不定值

提示：焦点只能移到可视的窗体或控件因为在窗体的 Load 事件完成前窗体或窗体上的控件是不可视的，所以如果不是在 Form_Load 事件过程完成之前首先使用 Show 方法显示窗体的话，是不能使用 SetFocus 方法将焦点移至正在自己的 Load 事件中加载的窗体的

18．在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程： Private Sub Command1_Click()

x=0

Do While x<50 x=(x+2)*(x+3) n=n+1 Loop

Text1.Text=Str(n) Text2.Text=Str(x) End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为（） A）1和0 B）2和72 C）3和50 D）4和168

19．用下面语句定义的数组的元素个数是（） Dim A (-3 To 5) As Integer

A）6 B）7 C）8 D）9

20．以下程序的输出结果是（） Option Base 1

Private Sub Command1_Click()

Dim a(10),p(3) As Integer k=5

For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i

For i=1 To 3 k=k+p(i)*2 Next i Print k End sub

A）33 B）28 C）35 D）37

21．在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1

Private Sub Command1_Click()

Dim a

a = Array(1,2,3,4) j = 1

For i = 4 To 1 Step -1 s = s + a(i)*j j =j*10 Next i Print s End Sub