以下程序段的执行结果是 ______。 Dim a As Integer，b As Integer For a=4 To 1 Step-1 b=b+a Next a Print b， a

A．100

B．9 1

C．10 1

D．90

[单选题]下列程序段的运行结果是( )。Sub sele()D．im n As Integeri=21:n=3D．o While i＞ni=i-nLoopPrint iE．nd SubA．2B．4C．5D．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 A(3, 3) For m = 1 To 3 For n = 1 To 3 If n = m Or n = 3 - m + 1 Then A(m, n) =m + n Else A(m, n) = 0 End If Next n Next m For m = 1 To 3 For n = 1 To 3 Print A(m, n); Next n Print Next mA． 1 1 1 1 1 1 1 1 1B．2 0 4 0 4 0 4 0 6C

[单选题]下列程序段执行后，执行的结果是______ 。 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 i As Integer,X As Integer x=0 For i=20 To 1 Step -2 x=x+i/5 Next Print x 后,x的值为______。A． 16B．17C．18D．19

[单选题]执行以下程序段后，x的值为( )。 Dim x As Integer,i As Integer x=0 For i=20 To 0 Step -2 x=x+i/5 Next iA．16B．17C．18D．19

[单选题]下列程序段的执行的结果是 Dim a(10)，b(10) i=3 For j=1 To 5 a(j) =j b(i) =2 * i + j Next j Print b(i)；a(i)A．11 3B．3 15C．3 11D．15 3

[单选题]有如下程序段： Dim I As Integer I=Int(-3.25)执行后，I的返回值是A．-3B．-4C．3D．3.25

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