运行以下程序,显示的结果是()
Private Sub Command34_Click()
i = 0
D.o
i = i + 1
Loop While i < 10
MsgBox i
E.nd Sub
A.0
B.1
C.10
D.11
[单选题]运行下列程序,显示的结果是Private Sub Command34_Click()i=0D.oi=i+1Loop While i<10MsgBox iE.nd SubA.0B.1C.10D.11
[单选题]下列程序的运行结果是 ______。Private Sub Command1_ Click () a =1: b=1 for i = 1 To 3 a= a+ b: b=b+ a Next i Print a, bEnd SubA.6 6B.5 8C.13 21D.34 55
[单选题]运行下列程序,结果是Private Sub Command32_Click()f0=1:f1=1:k=1D.o While k<=5f=f0+f1f0=flf1=fk=k+1LoopMsgBox“f=”&fE.nd SubA.f=5B.f=7C.f=8D.f=13
[单选题]试题35运行下列程序,在立即窗口显示的结果是()Private Sub Command0_Click()D.im I As Single , J As SingleF.or I= 2 To 10F.or J = 2 To I/2If I mod J = 0 Then Exit ForNext JIf J > sqr (I) Then Debug .Print I;Next IE.nd SubA.1 5 7 9B.4 6 8C.3 5 7 9D.2 3 5 7
[单选题]运行下列程序,在立即窗口显示的结果是Private Sub Command0_Click()D.im I As Integer,J As IntegerF.or I=2 To 10F.or J=2 To I/2If I mod J=0 Then Exit ForNext JIf J>sqr(I) Then Debug.Print I;Next IE.nd SubA.1 5 7 9B.4 6 8C.3 5 7 9D.2 3 5 7
[单选题]下列程序的运行结果是( )。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,B) Print a,b End Sub Private Sub fun(x,y) x=y*y y=y+x End SubA.2.25 3.75B.1.5 2.25C.1.5 0.75D.0.75 1.5
[单选题]下列程序的运行结果是( )。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,b)Print a,b End Sub Private Sub fun(x,y) x=y*y y=y+x End SubA.2.25 3.75B.1.5 2.25C.1.5 0.75D.0.75 1.5
[单选题](32)运行下列程序,结果是Private Sub Command32_Click()f0=1:f1=1:k=1D.o While k<=5f=f0+f1f0=f1f1=fk=k+1LoopMsgBox "f="&fE.nd SubA.)f=5B.)f=7C.)f=8D.)f=13
[单选题](28)下列程序的运行结果是。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,b) Print a,b Private Sub fun(x,y) x=y*x y=y+x End SubA.2.25 3.75 B.1.5 2.25 C.1.5 0.75 D.0.75 1.5
[单选题]下列程序段的运行结果是:Private Sub Command1_Click() Dim n AS Integer I =21: n = 3 do while I>n I=I- n Loop Print IEnd Sub在窗体上打印的结果是______。A.3B.5C.6D.8