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

运行上面的程序，单击命令按钮，其输出结果是（） A）4321 B）12 C）34 D）1234

22．在窗体上画一个命令按钮（其Name属性为Command 1），然后编写如下代码：

Option Base 1

Private Sub Command1_Click( )

Dim a(4,4) For i =1 To 4 For j =1 To 4 a(i,j) = (i-1)*3+j Next j Next i

For i =3 To 4 For j =3 To 4 Print a(j,i); Next j Print Next i End Sub

程序运行后，单击命令按钮，其输出结果为（） A）6 9 B）7 10 7 10 8 11 C）8 11 D）9 12 9 12 10 13 23．假定有如下的Sub过程： Sub S（x As Single,y As Single）

t = x x =t/y y =t Mod y End Sub

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

Dim a As Single Dim b As Single a =5 b =4 S a,b Print a,b End Sub

程序运行后，单击命令按钮，输出结果为（） A）5 4 B）1 1 C）1.25 4 D）1.25 1

24．阅读程序：

Function F(a As Integer)

b = 0 Static c b = b+1 c = c+1 F = a+b+c End Function

Private Sub Command1_Click ()

Dim a As Integer a =2

For i =1 To 3 Print F(a) Next i End Sub

运行上面的程序，单击命令按钮，输出结果为（） A）4 B）4 C）4 D）4 4 5 6 7 4 6 8 9 25．阅读程序：

Sub subP(b() As Integer) For i =1 To 4 b(i)=2*i Next i End Sub

Private Sub Command1_Click() Dim a(1 To 4)As Integer a (1)=5 a (2)=6 a (3)=7 a (4)=8 subP a () For i =1 To 4

Print a(i) Next i End Sub

运行上面的程序，单击命令按钮，输出结果为（） A）2 B）5 C）10 D）出错 4 6 12 6 7 14 8 8 16

26．下列不能打开菜单编辑器的操作是（）

A）按Ctrl+E B）单击工具栏中的“菜单编辑器”按钮

C）执行“工具”菜单中的“菜单编辑器”命令 D）按Shift + Alt + M

27．假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为（）

A）MenuItem. Enabled=False B）MenuItem. Enabled=True C）MenuItem. Visible=True D）MenuItem. Visible=False

28．在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是（） A）Move B）Change C）Scroll D）GetFocus

29．假定窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，则正确的属性设置为（）

A）Label1. BackStyle=0 B）Label1.BackStyle=1 Label1.Borderstyle=0 Label1.Borderstyle=1 C）Label1.BackStyle=True D）Label1.BackStyle=False Label1.BorderStyle=True Label1.Borderstyle=False

30．在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_Load ()

List1.AddItem\ List1.AddItem\ List1.AddItem\ Listl.AddItem\ Text1.Text=\ End Sub

Private Sub List1_ DblClick ( )

a =List1.Text

Print a+Text1.Text End Sub 程序运行后，在文本框中输入“789”（见图附录-1），然后双击列表框中的“456”，则输出结果为（） 图附录-1

A）1245 B）456789 C）789456 D）0

31．为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是（）

A）Visible B）Timer C）Enabled D）Interval 32．为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为（）

A）Get文件号，记录号，变量名 B）Get文件号，变量名，记录号 C）Put文件号，变量名，记录号 D）Put文件号，记录号，变量名

33．对窗体编写如下事件过程：

Private Sub Form _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As

Single)

If Button =2 Then Print \ End If End Sub

Private Sub Form _ MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Print \ End Sub

程序运行后，如果右击鼠标，则输出结果为（） A）AAAAA B）BBBBB BBBBB AAAAA C）AAAAA D）BBBBB

34．为了在运行时能显示窗体左上角的控制框（系统菜单），必须（） A）把窗体的Contro1Box属性设置为False，其他属性任意

B）把窗体的ControlBox属性设置为True，并且把Boder Style属性设置为1-5 C）把窗体的ControlBox属性设置为False，同时把BoderStyle属性调协为非0值

D）把窗体的ControlBox属性设置为True，同时把BoderStyle属性设置为0值

35．对窗体编写如下代码： Option Base 1

Private Sub Form_KeyPress(KeyAscii As Integer)

a = Array(237,126,87,48,498) m1 = a(1) m2 = 1

If KeyAscii = 13 Then For i =2 To 5 If a(i)>ml Then m1 =a(i) m2 =i End If Next i End If Print m1 Print m2 End Sub

程序运行后，按回车键，输出结果为（） A）48 B）237 4 1 C）498 D）498 5 4