题目内容
（请给出正确答案）
下面程序： Private Sub Form_Click() Dim x，y，z As Integer x=5 y=7 z=0 Call P1(x，y，z) Print Str(z) End Sub Sub P1(ByVal a As Integer，ByVal b As Integer,c As Integer) c=a+b End Sub 运行后的输出结果为 ______。
A．0
B．12
C．Sb(z)
D．显示错误信息
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“下面程序：Private Sub Form_Click（) Dim x，y，z As Integer x=5 y=7 z=0 Call P1（x，y，z) Print St”相关的问题
下面程序的输出是______。Private Sub Command1_Click() Print 7\3End Sub
A．3.5
B．7
C．3
D．2
下面程序的运行结果是()。 Private Sub Commandl_Click() a=1.5 b=1.5 Callfun(a,B) Printa,b End Sub Private Subfun(x,y) x=y*y y=y+x End Sub
A．2．25 1.5
B．1.5 2.25
C．2.25 3.75
D．0.75 1.5
下面程序运行后的输出结果是______。Private Sub Command1_ Click () for j = 1 To 10 if j Mod 3 ＜＞ 0 then a =a+j\3 Next j Print aEnd Sub
A．20
B．10
C．3
D．9
下面程序实现将预先装载在Picture1中的图形清除，在横线上填写正确的语句。
Private Sub Form_Load()
Picture1．Picture=LoadPicture("face.bmp")
End Sub
Private SubCommand1 Click()
【 】
End Sub
Private Sub f(a%, b%)
a=a+b
b=a-b
End Sub
Private Sub Form_ _Click()
Dim a%, b%
a=23
b=12
Call f(a, b)
Print"a=" &a;",b=" & b
End Sub
下面程序执行的结果是______。 Private Sub Form_ Click() A＄=“123”：B＄=“456” C=Val(A＄)+Val(B＄) Print C\100 End Sub
A． 123
B．3
C．5
D．579
下面程序执行的结果是()。 Private Sub Form_Click() AS="123"：B$="456" C=Val(A$)+Val(B$) Print C\100 End Sub
A．123
B．3
C．5
D．579
下面程序用来计算： Private Sub Command1_Click() A = Val(TextText) B = Val (TextText) Select Case A Case【 】 N=A+B Case Is = 5 N = B/A Case Is＜5 N=0 End Select TextText = N End Sub
下面程序的输出结果是【 】。
Private Sub Commandl_Click()
Dim a(1 To 20)
Dim i
Fori = 1 To 20
a(i) = i
Next i
For Each i In a()
a(i) = 20
Next i
Print a(2)
End Sub
下面程序运行后的输出结果是 Private Sub Command1_Click() For j=1 To 10 If j Mod 3＜＞0 Then a=a+j\3 Next Print a End Sub
A．20
B．10
C．3
D．9
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
