下列程序段的运行结果是( )。 Subsele() Dim n As Integer i=21:n=3 Do While i＞n i=i-n Loop Print i End Sub

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

[单选题]下列程序段的运行结果是( )。 Sub sele() Dim n As Integer i=21: n=3 Do While i ＞ n i=i-n Loop Print i End 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

[单选题]下列程序段运行后,其运行结果是( )。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

[单选题]以上程序段运行的结果是：______. 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+1 if a(i)= False Then a(i)= True Exit For End If If i = 5 Then flag = True End If Next Loop Prin

[单选题]以下程序段运行的结果是： ______。 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+1 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．

[单选题]以下程序段运行的结果是： ______。 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+1 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．

[单选题]以下程序段运行的结果是______。Dim a(-1 To 5) As BooleanDim flag As Booleanflag = FalseDim i As IntegerDim j As IntegerDo Until flag = True For i=-1 To 5 j=j+1 If a(i)= False Then a(i)= True Exit For End If If i = 5 Then flag = True End If NextLoopPrint jA．20B．7C

[单选题]以下程序段运行的结果是 ______。 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+1 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．3