运行下列程序:
Private Sub form_Click( )
D.im sl As String, s2 As String
s1 = "1234"
m = 0
F.or i = 3 To 1 Step -1
m = m + 1
s2 = fun1(s1, m)
D.ebug.Print s2;
Next i
E.nd Sub
Private Function fun1(x, y) As String
fun1 = Right(x, y)
E.nd Function
单击窗体后,则在立即窗口内显示结果是( )。
A.1234
B.4321
C.434234
D.1111
[单选题]运行下列程序: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 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() 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_
[单选题]下列程序的运行结果是 Private Sub Form_Click() Dim k As Integer n=5 m=1 k=1 Do m=m+2 k=k+1 Loop Until k>n Print m End SubA.1B.12C.11D.32
[单选题]有如下程序:Private Sub Form_Click()D.im i As Integer, Sum As IntegerSum=0F.or i=2 To 10If i Mod 2=0 And i Mod 3<>0 ThenSum=Sum+iE.nd IfNextPrint SumE.nd Sub程序运行后,单击窗体,输出结果为A.12B.30C.24D.18
[单选题]有如下程序: Private Sub Form_Click() Dim Check,Counter Check=True Counter=0 Do Do While Counter<20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter,Check End Sub 程序运行后,单击窗体,输出结果为( )。A.15 0B.20 -1C.1