[单选题]

以上程序段运行的结果是:______. 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 j

A.20

B.7

C.35

D.8

参考答案与解析:

相关试题

以下程序段运行的结果是______。Dim a(£­1 To 5)As Bool

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

  • 查看答案
  • 以下程序段运行的结果是 ______。Dim a(£­1 To 5)As Boo

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

  • 查看答案
  • 以下程序段运行的结果是______。Dim a(~1 To 5)As Boole

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

  • 查看答案
  • 以下程序段运行的结果是______。Dim a(£­1 To 5) As Boo

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

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

    [单选题]以下程序段运行的结果是: ______。 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(3) As Integer,

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

  • 查看答案
  • 下列程序段的运行结果是()。Subsele()Dim n As Integeri

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

  • 查看答案
  • 下列程序段的输出结果是()。Dim M(5,5),S(5)For i=1 To

    [单选题]下列程序段的输出结果是( )。D.im M(5,5),S(5)F.or i=1 To 5S(i)=0F.or j=1 To 5M(i,j)=i+jS(i)=S(i)+M(i,j)Next jNext iF.or Each x In SPrint x;Next xA.20 23 24 35 40B.20 25 30 35 40C.20 23 25 35 40D.20 25 35 40 45

  • 查看答案
  • 以下程序段的执行结果是 ______。Dim a As Integer,b As

    [单选题]以下程序段的执行结果是 ______。 Dim a As Integer,b As Integer For a=4 To 1 Step-1 b=b+a Next a Print b, aA.100B.9 1C.10 1D.90

  • 查看答案
  • 以上程序段运行的结果是:______. Dim a(£­1 To 5) As B