DOC《2009年9月全国计算机等级考试二级笔试试卷》

mumb End Sub 连续3次调用var_dim.过程,第3次调用时输出的是 A)

2 1 B)

2 3 C)

6 1 D)

6 3 (23) 在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command1_Click() For i=5 To

1 Step-0.8 Print Int(i) ;

Next i End Sub 运行程序,单击命令按钮,窗体上显示的内容为 A)

5 4

3 2

1 1 B)

4 4

3 2

1 C)

4 3

2 1

1 D)

4 4

3 2

1 1 (24) 在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command1_Click() Dima(3,3) For m=1 To

3 For n=1 To

3 If n=m Or n=4-m Then a(m,n)=m+n Else a(m,n)=0 End If Print a(m,n);

Next n Print Next m End Sub 运行程序,单击命令按钮,窗体上显示的内容为 A)

2 0

0 B)

2 0

4 C)

2 3

0 D)

2 0

0 0

4 0

0 4

0 3

4 0

0 4

5 0

0 6

4 0

6 0

0 6

0 5

6 (25) 设有以下函数过程: Function fun(a As Integer,b As Integer) Dim c As Integer If ab a=a-b Wend fun=a End Function 在调试时发现函数是错误的.为使函数能产生正确的返回值,应做的修改是 A) 把a=a-b改为a=b-a B) 把a=a-b改为a=a\b C) 把While a>

b改为While ab改为While a>

=b (30) 下列关于通用对话框CommonDialog1的叙述中,错误的是 A) 只要在 打开 对话框中选择了文件,并单击 打开 按钮,就可以将选中的文件打开 B) 使用CommonDialogl.ShowColor方法,可以显示 颜色 对话框 C) CancelError属性用于控制用户单击 取消 按钮关闭对话框时,是否显示出错警告 D) 在显示 字体 对话框前,必须先设置CommonDialogl的Flags属性,否则会出错 (31) 在利用菜单编辑器设计菜单时,为了把组合键 Alt+X 设置为 退出(X) 菜单项的访问键,可以将该菜单项的标题设置为 A) 退出(X&

) B) 退出(&

X) C) 退出(X#) D) 退出(#X) (32) 在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,再编写如下程序: Dim ss As String Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) Then ss=ss+Chr(KeyAscii) End Sub Private Sub Command1_Click() Dim m As String,i As Integer For i=Len(ss) To

1 Step-1 m=m+Mid(ss,i,1) Next Text1.Text=UCase(m) End Sub 运行程序后,在文本框中输入 Number100 ,并单击命令按钮,则文本框中显示的是 A) NUMBER

100 B) REBMUN C) REBMUN

100 D)

001 REBMUN (33) 窗体的左右两端各有1条直线,名称分别为Line

1、Line2;

名称为Shape1的圆靠在左边的Line1直线上(见图);

另有1个名称为Timer1的计时器控件,其Enabled属性值是True.要求程序运行后,圆每秒向右移动100,当圆遇到 Line2时则停止移动. 为实现上述功能,某人把计时器的Interval属性设置为1000,并编写了如下 程序: Private SubTimer1_Timer() For k=Line1.X1 To Line2.X1 Step

100 If Shape1.Left+Shape1.Width=60 Then Leve1= C Else Leve1= D End If 下面用Select Case结构改写上述程序,使两段程序所实现的功能完全相同,请填空. Select Case s Case [9] >

=90 Leve1= A Case

75 To

89 Leve1= B Case

60 To

74 Leve1= C Case [10] Leve1= D [11] (8) 窗体上有名称为Command1的命令按钮.事件过程及2个函数过程如下: Private Sub Command1_Click() Dim x As Integer,y A8 Integer,z X=3 y=5 z=fy(y) Print fx(fx(x) ),y End Sub Function fx(ByVal a As Integer) a=a+a fx=a End Function Function fy(ByRef a As Integer) a=a+a fy=a End Function 运行程序并单击命令按钮,则窗体上显示的两个值依次是 [12] 和[13] . (9) 窗体上有名称为Command1的命令按钮及名称为Text