【C14】

下列程序运行时输出的结果是()。 Option Base 1 Private Sub Form_Click() Dimx(10) ForI=1 to 10 x(i)=10-I+1 Next I ForI=10 to 1 step-2 Printx(i)； NextI End Sub

A．1 3579

B．975 3 1

C．1234567 89 10

D．1098765432 1

以下程序运行后输出的结果是 ______。 Option Base 1 Private Sub Form_Click() Dim A(20) For K=1 To 20 A(K)=K^2 Next K Print A(K) End Sub

A．20

B．441

C．400

D．出错信息

下列程序运行时输出的结果是 Option Base 1 Private Sub Form_Click() Dim x (10)As Integer，y(5)As Integer For i=1 to 10 x(i)=10-i+1 Next For i=1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i=1 to 5 Print y(i) Next End Sub

A．3 7 11 45 19

B．19 15 11 7 3

C．1 3 5 7 9

D．不确定的值

下列程序运行时输出的结果是()。 Option Base 1 Private Sub Form_Click() Dimx(10)As Integer,y(5) As Integer ForI=1 to 10 x(i)=10-I+1 NextI ForI=1 to 5 y(i)cx(2*-1)+x(2*I) NextI ForI=1 to 5 Printy(i)； NextI

A．3 7 11 45 19

B．17 13 9 5 1

C．1 3 5 7 9

D．不确定的值

有下列程序段，单击命令按钮执行程序后，输出结果是()。

Option Base 1

Private Sub Command1 Click()

Dim x

x=Array(23,-5,17,38,-31,46,11,8,5,-4)

31=0

s2=0

For k=1 To 10

If(x(k)>0)Then

S1=S1+x(k)

Else

s2=s2+x(k)

End If

Next k

Y=s1/Abs(s2)

Print Y

End Sub

A．148

B．40

C．40

D．3.7

有如下程序，运行时输出的结果是 ______。 Option Base 1 Private Sub Command1_Click() Dim a(3,3) As Integer For m=1 To 3 For n=1 To 3 a(m-1，n-1)=m+n+1 Next n Next m For m=0 To 2 For n=0 To 2 Print a(n,m)； Next n Print Next m End Sub

A．0 1 2 1 2 3 2 3 4

B．3 4 5 4 5 6 5 6 7

C．1 3 5 3 5 7 5 7 9

D．2 4 6 4 6 8 6 8 10

下列程序运行时输出的结果是()。 Option Base 1 Const a=10 Private Sub Form_Click() Dim x(A)As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub

A．1 3 5 7 9 10

B．-1-3-5-7-9

C．-1 2-3 4-5 6-7 8-9 10

D．1-2 3-4 5-6 7-8 9-10

下列程序运行时输出的结果是()。 Option Base 1 Const a=10 Private Sub Form_Click() Dim x(a)As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub

A．1 3 5 7 9 10

B．-1-3-5-7-9

C．-1 2-3 4-5 6-7 8-9 10

D．1-2 3-4 5-6 7-8 9-10