R> End Sub
Sub p2(byVal x As Integer, y As Integer)
x=x十10
y=y十20
End Sub
Sub p3(ByValx As Integer, ByVal y As Integer)
x=x十10
y=y十20
End Sub
该程序运行后,单击窗体,则在窗体上显示的内容是:a=______和b=______。
(8)在窗体上画一个名称为Commandl的命令按钮,编写如下事件过程
PRiVate Sub Commandl_C1icK()
Dim As String
a=_____[11]
For i =1 To 5
Print Space(6—i);Mid$3(a,6—i,2*i—1)
二级V1sualBMic语言程序设计试卷第13页 (共15页)
Nexti
End Sub
程序运行后,单击命令按钮,要求窗体上显示的输出结果为
456
34567
2345678
123456789
请填空。(9)在窗体上画一个名称为Combo1的组合框,画两个名称分别Label1和Label2及Caption
属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项
后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动
添加到组合框的列表中,并在Label2中给出提示“已成功添加输入项”如图所示;
如果存在,则在Label2中给出提示“输入项已在组合框中”。请在[12>、[13]和
[14>处将程序补充完整。
Private Sub Combol_________<12> (KeyAscii As integer)
1f KeyAscii=13 Then
Fori=0 To Combo1.listCount—1
1f Combo1.Text=______ [13] Ihen
Label2.Caption=”输入项己在组合框中”
ExIt Sub
End lf
Next i
Label2.Caption=“已成功添加输入项”
Combo1.______ [14] CombO1.Text
End lf
End Sub (10)设有如下程序
Private sub search(a()As variant,ByVal key As Variant,index%)
Dim I%
ForI=LBound(a)To UBound(a)
If key=a(I) Then
index=I
Exit Sub
End If
Next I
Index=-1
End Sub
Private Sub Form_Load()
Show
Dtm b() As Variant
Dim n As Integer
b=Array(1,3,5,7,9,11,13,15)
Call search(b,11,n)
Printt n
End Sub
程序运行后,输出结果是________。
2003年4月全国计算机等级考试二级Visual Basic笔试答案
一、选择题
1-5:DADBB 6-10:ACCAD 11-15:DBBDD
16-20:ABCDA 21-25:DCBBC 26-30:CCDCA
二、填空题
(1) 组合框
(2) 顺序访问方式
(3) 9
(4) Picture1.picture=LoadPicture("d:\pic\a.jpg")
(5) Timer
(6) Rnd和x Mod 5和x
(7) 30和70
(8) "123456789"
(9) KeyPress和Combo1.List(i)和AddItem
(10) 5
[ 结 束 ]
责任编辑:小草