单项选择题

在窗体上画一个名称为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) 没有显示

<上一题目录下一题>

热门试题

单项选择题

有如下函数过程： Function Fun(ByVal x As Integer, ByVal y As Integer)As Integer Do While y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是调用该函数的事件过程，该程序的运行结果是( )。 Private Sub Command1_Click() Dima As Integer Dim b As Integer a=100:b=25 x=Fun(a,B) Print X End Sub

A) 0
B) 25
C) 50
D) 100

单项选择题

设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1_Click() Dim a[3,3) As Integer For i=1 To 3 For j=1 To 3 a(i,j):i*j+i Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是( )。

A) 20
B) 7
C) 16
D) 17

相关试题