运行下列程序: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 String

y = "12345"

F．or x = 1 To Len(y)

z = Mid(Left(y, x), 1)

Next x

Print z

E．nd Sub

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

A．1

B．11111

C．55555

D．12345

[单选题]运行下列程序：Private Sub Form_Click( )D．im a As Integera = 1F．or i = 1 To 5C．all fun1(a)Next iPrint aE．nd SubPrivate Sub fun1(x)y = 2D．ox = x + yLoop Until x > 10E．nd Sub单击窗体后，则在窗体上显示的结果是( )。A．5B．1 2 3 4 5C．19D．7

[单选题]运行下列程序:Private Sub form_Click( )Dim xx = 0Do While x < 10x = x £« 3LoopMsgBox x运行下列程序：Private Sub form_Click( )D．im xx = 0D．o While x < 10x = x + 3LoopMsgBox xE．nd Sub单击窗体后，则在窗体上显示的结果是( )。A．0B．3C．10D．12

[单选题]运行下列程序：Private Sub Form_Click()D．im sum As IntegerD．im i As Integersum = 0F．or i =12.4 To3.1 Step -3.8sum = sum + iNext iD．ebug.Print sumE．nd Sub单击窗体后，则在立即窗口上输出结果是()。A．15B．- 0.7C．24D．0

[单选题]运行下列程序：Private Sub Form_Click()D．im sum As Double, i As IntegerF．or i = 1 To 20If i Mod 5 = 0 Thensum = sum + iE．nd IfNext iPrint sumE．nd Sub单击窗体后，则在窗体上显示的结果是()。A．50B．100C．4D．5050

[单选题]运行下列程序:Private Sub form_Click( )Dim sl As String, s2 As Strings1 = "1234&quo运行下列程序：Private Sub form_Click( )D．im sl As String, s2 As Strings1 = "1234"m = 0F．or i = 3 To 1 Step -1m = m + 1s2 = fun1(s1, m)D．ebug.Print s2;Next iE．nd SubPrivat

[单选题]运行下列程序: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

[单选题]运行下列程序：D．im x, yPrivate Sub Form_Click( )x = 1: y = 1: z = 1fun1 (1)Print x; y; zE．nd SubPrivate Sub fun1(a)x = a + x: y = a + x: z = a + yE．nd Sub单击窗体后，则输出结果是( )。A．1 1 1B．2 3 1C．2 3 4D．2 2 1

[单选题]下面程序：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．显示错误信息