单项选择题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后输写如下程序：

Private Sub Command1_Click()

Dim x，y，z As Integer

x=5

y=7

z=0

Text1.Text=""

Call Fun1(x，y，z)

Text1.Text=Str(z)

End Sub

Sub Fun1(ByVal a As Integer，ByVal b As Integer，c As Integer)

c=a+b

End Sub

程序运行后，如果单击命令按钮，则在文本框中显示的内容是

A．0
B．12
C．Str(z)
D．没有显示

<上一题目录下一题>

热门试题

单项选择题

有如下程序： Private Sub Form_Click() Dim i As Integer，Sum As Integer Sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then Sum=Sum+i EndIf Next Print Sum End Sub 程序运行后，单击窗体，输出结果为

A．12
B．30
C．24
D．18

单项选择题

以下用户自定义函数 Function Func(a As Integer，b As Integer) As Integer Static m As Integer，i As Integer m=0:i=2 i=i+m+i m=i+a+b Func=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim k As Integer，m As Integer，p As Integer k=4:m=1 P=Func(k,m) Print p End Sub 程序运行后，单击命令按钮，输出结果为

A．8
B．9
C．10
D．11

相关试题