2008年 4月 全国计算机等级考试二级笔试试卷(2)

Next Print s End Sub

Public Function f(x As Integer) If x>=10 Then t=x+1 Else

t=x+2 End If f=t

End Function

运行程序，则窗体上显示的是_______。

A）38 B）49 C）61 D）70

(30) 窗体上有一个用菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键。则弹出一个快捷菜单，如图4所示。 以上叙述中错误的是

A) 在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性（有“√”）

B) 菜单中的横线是在该菜单项的标题输入框中输入了一个“—”（减号）字符

C) 在设计“选项”菜单项时，在菜单编辑器窗口中设置了“复选”属性（有“√”） 图4 D) 在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“√” （31）窗体上有一个名称为Picture1的图片框控件，一个名称为Label1的标签控件。如图5所示。

现有如下程序：

Public Sub display(x As Control) If typeOf x Is Label Then x.Caption=\计算机等级考试\

else

x.Picture=LoadPicture(\

End If End Sub

Private Sub Label1_Click() Call display(Label1)

End Sub 图5 Private Sub Picture1_Click() Call display(Picture1) End Sub

对以上程序。下列叙述中错误的是_______。

A) 程序运行时会出错 B)单击图片框，在图片框中显示一幅图片 C) 过程中的x是控件变量 D)单击标签，在标签中显示一串文字

（32）窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)

Dim c As String

c=Ucase(Chr(KeyCode)) Text2.Text=Chr(Asc(c)+2) End Sub

当向文本框Text1中输入小写字母a时，文本框Text2中显示的是_______。 A) A B) a C)C D)c

(33)设窗体上一个文本框Text1和一个命令按扭Command1，有以下事件过程：

Private Sub Command1_Click() Dim s As String,ch As String s=””