A.2
B.4
C.5
D.3
[单选题]下列程序段的运行结果是( )。Sub sele()D.im n As Integeri=21:n=3D.o While i>ni=i-nLoopPrint iE.nd SubA.2B.4C.5D.3
[单选题](12)下列程序段的运行结果是 Sub sele() Dim n As Integer I=21:n=3 Do While i>n I=i-n Loop Print i End SubA.2 B.4 C.5 D.3
[单选题]下列程序段的运行结果是( )。 Subsele() Dim n As Integer i=21:n=3 Do While i>n i=i-n Loop Print i End SubA.2B.4C.5D.3
[单选题]下列程序的运行结果是 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() 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_
[单选题]下列程序段运行后,其运行结果是( )。D.im a(3) As Integer, b(3) As IntegerF.or k = 0 To 3a(k) = k*k +kb(k) = a(k)-kNext kPrint a(2) + b(1)A. 5B. 6C. 7D. 8
[单选题]下列程序段执行后,执行的结果是______ 。 Dim M(10) Dim N(10) i=3 For j = 1 To 5 M(j) = j N(i) = 2 * i + j Next j Print N(i); M(i)A.12 4B.11 3C.3 11D.10 2
[单选题]下列程序运行时输出的结果是 Private Sub Form_Click() Dim x x=Array("天天向上","清华大学","天上人间","程序设计") For i=LBound(a,1)to UBound(a,1) If Left(a(i),1)="天"Then Print a(i); Next End SubA.天天向上B.天天向上天上人间C.出错信息D.天天向上清华大学天上人间程序设计
[单选题]下列程序运行时输出的结果是 Private Sub Form_Click() Dim x x=Array(“天天向上”,“清华大学”,“天上人间”,“程序设计”) For i=LBound(a,1)to UBound(a,1) If Left(a(i),1)=“天”Then Print a(i); Next End SubA.天天向上B.天天向上天上人间C.出错信息D.天天向上清华大学天上人间程序设计
[单选题]以下程序段运行的结果是______。 Dim a(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+l If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print jA.20B.7C.35