运行下列程序:
Private Sub Form_Click( )
D.im y As Integer, x As Integer
D.o Until x > 20
x = x + 10
y = y + x
If x > 20 Then Exit Do
Loop
Print x, y
E.nd Sub
单击窗体后,则在窗体上显示的结果是( )。
A.10 20
B.30 60
C.10 30
D.20 60
[单选题]运行下列程序: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 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( )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()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( )x = 8: y = 2C.all fun1((x), y)Print x, yE.nd SubPrivate Sub fun1(x, y)s = xx = s / yy = s Mod yE.nd Sub单击窗体后,则在窗体上显示的结果是( )。A.4 2B.8 2C.8 0D.2 4