运行下列程序：

Private Sub form_Click( )

x = 8: y = 2

C．all fun1((x), y)

Print x, y

E．nd Sub

Private Sub fun1(x, y)

s = x

x = s / y

y = s Mod y

E．nd Sub

单击窗体后，则在窗体上显示的结果是( )。

A．4 2

B．8 2

C．8 0

D．2 4

[单选题]运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x运行下列程序：Private Sub Form_Click( )D．im y As Integer, x As IntegerD．o Until x > 20x = x + 10y = y + xIf x > 20 Then Exit DoLoopPrint x, yE．nd Sub单击窗体后，则在窗体上显示的结果是( )。A．1

[单选题]运行下列程序：Private Sub form_Click( )x = InputBox("请输入一个数：")Select Case xC．ase Is > 0: y = x + 1: x = y + 1C．ase Is = 0: y = x + 2: x = y + 2C．ase Else: y = x + 3: x = y + 3E．nd SelectPrint x; yE．nd Sub从键盘输入1，输出的结果是( )。A．3 2B．2 3C．2 2D．1 4

[单选题]运行下列程序: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( )x$ = "123": y$ = "abc"n = Len(x)F．or i = 1 To nPrint Mid(x$, n + 1 - i, 1) + Mid(y$, i, 1);Next iPrintE．nd Sub单击窗体后，则输出结果是( )。A．a1b2c3B．a3b2c1C．3a2b1cD．1c2b3a

[单选题]下面程序：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( )F．or i = 1 To 4t = t * 10 + is = s + tNext iPrint sE．nd Sub单击窗体后，则输出结果是( )。A．1234B．4321C．1370D．4444

[单选题]运行下列程序：Private Sub Form_Click( )F．or i = 3 To 1 Step -1F．or j = 2 To 1 Step -1D．ebug.Print "A"; String(3 - i, "*");Next jNext iE．nd Sub单击窗体后，则在立即窗口内显示结果是( )。A．AAA*A**A***B．AAA*A*A**A**C．A*A*A*A*A*A*D．A***

[单选题]运行下列程序：Private Sub form_Click( )F．or i = 1 To 2x = 1F．or j = 1 To 3x = 5F．or k = 1 To 4x = x + 2Next kNext jNext iPrint xE．nd Sub单击窗体后，则输出结果是( )。A．5B．13C．25D．48