应重新绘制竣工图的情况是，涉及结构形式、工艺、平面布置、项目等重大改变及 图丽变更面积超过()．

下列程序段的输出结果是()。

Dim M(5,5),S(5)

For i=1 To 5

S(i)=0

For j=1 To 5

M(i,j)=i+j

S(i)=S(i)+M(i,j)

Next j

Next i

For Each x In S

Print x;

Next x

A．20 23 24 35 40

B．20 25 30 35 40

C．20 23 25 35 40

D．20 25 35 40 45

下列程序段的输出结果为()。 Dim M(5，5)，S(5) For i=1 To 5 S(i)=0 For j=1 To 5 M(i，j)=i+j S(i)=S(i)+M(i，j) Next j Next i For Each x In S Print x； Next x

A．20 23 24 35 40

B．20 25 30 35 40

C．20 23 25 35 40

D．20 25 35 40 45

A．20 23 24 35 40

B．20 25 30 35 40

C．20 23 25 35 40

D．20 25 35 40 45

A．2023 24 3540

B．2025 30 3540

C．2023 25 35 40

D．2025 354045

A．2023 24 3540

B．2025 30 3540

C．2023 25 3540

D．2025 354045

下列程序段的输出结果为()。 Dim M(S, S), S(5) For i=1 To 5 S(i)=0 For j=1 To 5 M(i, j)=i+j S(i)=S(i)+M(i, j) Next j Next i For Each x In S Print x; Next x

A．20 23 24 35 40

B．20 25 30 35 40

C．20 23 25 35 40

D．20 25 35 40 45

运行下列程序，单击窗体后输出的结果是()。

Private Sub Form_Click()

Dim a

Dim s As Integer, i As Integer

a = Array(1, 2, 3, 4, 5, 6)

s = 1

For i = 5 To 1 Step -2

s = s * a(i)

Next i

Print s

End Sub

A、 15

B、 48

C、 120

D、 720

A．-5

B．5

C．0

D．-4

下面运行程序后,单击命令按钮,输出的结果是 【 】 。

Private Sub Command1_Click()

Dim a%(1 To 5),i%, s#

For i=1 To 5

a(i)=i

Next

s=Fun(a)

Print "s="; s;

End Sub

Function Fun(a() As Integer)

Dim t#, i%

t=1

For i=LBound(a) To UBound(a)

t=t  a(i)

Next

Fun=t

End Function

A．20 23 24 35 40

B．20 25 30 35 40

C．20 23 25 35 40

D．20 25 35 40 45