内容发布更新时间 : 2024/11/15 2:20:54星期一 下面是文章的全部内容请认真阅读。
46．阅读程序：
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 MsgBox F ( a ) Next i End Sub
运行上面的程序，单击命令按钮，运行后消息框依次输出结果为 。 A．4 4 4 B．4 5 6 C．4 6 8 D．4 7 9 47．有如下程序：
Private Function func ( ByVal a As Integer , ByVal b As Integer ) Func = a + b End Function
Private Sub Command1_Click ( ) Dim x As Integer , y As Integer Dim z As Integer , r As Integer x = 2 : y = 5 : z = 8
r = func ( func ( x , y ) , z ) MsgBox r End Sub
当在Command1按钮上单击，该程序的输出结果是 。 A．12 B．13 C．14 D．15 48．在窗体上画一个名称为Command1的命令按钮和3个名称为Label1、Label2、Label3的标签，然后编写如下程序段： Private x As Integer
Private Sub Command_Click()
Static y As Integer : Dim z As Integer n = 10 : z = n + z : y = y + z : x = x + z
Label1.Caption = x : Label2.Caption = y : Label3.Caption = z End Sub
运行程序，连续3次单击命令按钮后，则3个标签中显示的内容是 。 A．30 30 30 B．10 10 10 C．30 30 10 D．10 30 10
49．在窗体中添加了一个文本框和一个命令按钮（名称分别为tText和
bCommand），并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“计算机等级考试”。以下能实现上述操作的语句是 。
A．Caption＝＂计算机等级考试＂ B．bCommand.Caption＝计算机等级考试
C．Caption＝＂计算机等级考试＂
D．bCommand.Caption＝＂计算机等级考试＂
50．在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As integer
Private Sub Command1_Click（） x＝10
Call s1 ：Call s2 ：MsgBox x End Sub
Private Sub s1（） x＝x＋20 End Sub
Private Sub s2（） Dim x As integer x＝x+20 End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 。 A．10 B．30 C．40 D．50
参考答案
1. C 2.C 3.C 4.D 5.A 6.C 7.B 8.D 9. A 10.C 11.B 12.B 13.B 14.A 15.B 16.C 17.B 18.A 19.A 20.D 21.B 22.B 23.D 24.B 25.B 26.B 27.B 28.B 29.B 30.A 31.C 32.D 33.A 34.D 35.C 36.C 37.B 38.C 39.A 40.C 41.A 42.A 43.D 44.D 45.B 46.B 47.D 48.C
49.D 50.B