下面程序： 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．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 End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。A． 12B．30C．24D．18

[单选题]下面程序：Private Sub Form_Click()D．im x，y，z As Integerx＝5y＝7z＝0C．all P1(x，y，z)Print Str(z)E．nd SubSub P1(ByVal a As Integer, ByVal b As Integer, c As integer)c＝a＋bE．nd Sub运行后的输出结果为A．0B．12C．Str(z)D．显示错误信息

[单选题]下面程序： 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．0B．12C．Sb(z)D．显示错误信息

[单选题]下面程序： Private Sub Form_Click() Dim x,y,z As Integer x=5 y=7 z=0 CallPI(x,y,z) Print Str(z) End Sub SubP1(By Val a As Integer, By Val b As Integer, c As Integer) C=a+b End Sub 运行后的输出结果为______。A．0B．12C．Str(z)D．显示错误信息

[单选题]有如下事件过程：Private Sub Form. Click()D．im n As Integerx=0n=InputBox(”请输入一个整数”)F．or i=1 To iF．or j=1 To ix=x+1Next jNext 1Print xE．nd sub程序运行后，单击窗体，如果在输入对话框中输入5,则在窗体上显示的内容是( )。A．13B．14C．15D．16

[单选题]编写如下事件过程： Private Sub Form. Click() Dim Char As String，i As Integer Const ch$="#" msg$= "Enter a String：" char=InputBox$(msg$) n=Len(Char) For i=1 To n If Mid$(char，i，1)=ch$ Then Exit For End If Next i Print i - 1 End Sub 其中InputBox函数的功能是弹出一个输入对话

[单选题]假定有如下事件过程： Private Sub Form. Click() Dim x As Integer, n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是______。A．81 4B．56 3C．28 1D．243 5

[单选题]运行下列程序:Private Sub Form_Click( )Dim x As Integer, y As String, z As Stringy = &qu运行下列程序：Private Sub Form_Click( )D．im x As Integer, y As String, z As Stringy = "12345"F．or x = 1 To Len(y)z = Mid(Left(y, x), 1)Next xPrint zE．nd Sub单击窗体后，则在窗体

[单选题]编写如下程序： Private Sub Form. Click() a$=: "4321": b$="abcd" For 3=1 To 4 Print Mid$(a$，5-j，1)+Nid$(b$, j, 1)； Next j Print End Sub 程序运行后，单击窗体，其输出结果为 ______。A．alb2c3d4B．b4c3d2elC．eld2c3b4D．la2b3c4d

[单选题]下面程序运行结果是( )。 Private Sub Form_Click() Dim x As Single,y As Single x=InputBox("请输入数据25"):y=InputBox("请输入数据10") Print x+y;InputBox("请输入数据25")+InputBox("请输入数据10") End SubA．_35_2510B．25102510C．_35_35_D．2510_35_