该项目根据新的要求，需要统一制架梁，由新组建的桥梁处承担箱粱制架任务。其余工程由一个

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

Private Sub Command1_Click()

Dim arr(1 To 10)

For i=1 To 10

Next i

For Each i In arr()

Next i

End Sub

下列程序的输出结果是______。

Private Sub Command1_Click()

Dim arr(1To 10)

For i＝1 To 10

arr(i)＝i

Next i

For Each i In arr()

arr(i)＝arr(i)*2+1

Next i

MsgBox arr(7)

End Sub

Private Sub Command1_Click()

Dim s As Double

Dim i As Integer

s = 5

i = 1

Do While i < 9

i = i + 2

s = s + i

Loop

Text1.Text = s

End Sub

程序运行后，Text1的输出结果是( )。

运行下列程序：

Private Sub Command1_Click()

Dim s1 As String * 1

Dim s2 As String

s1 = "a"

For i = Asc(s1) To Asc(s1) + 4

s2 = s2 & Chr(i)

Next i

Print s2

End Sub

单击Command1命令按钮后，则在窗体上显示的结果是()。

A.a

B.abcde

C.aaaa

D.s2

下列程序的输出结果是______。

Private Sub Command1_Click()

Dim arr(1 To 10)

For i=l TO 10

arr(i)=i

Next i

For Each i In arr()

art(i)=arr(i)*2+1

Next i

MsgBox arr(7)

End Sub

下列程序段的运行结果是：Private Sub Command1_Click() Dim n AS Integer I =21: n = 3 do while I＞n I=I- n Loop Print IEnd Sub在窗体上打印的结果是______。

A．3

B．5

C．6

D．8

运行以下程序，消息框中输出的结果是( )。

Private Sub Command1_Click()

Dim a(10)，P(3)As Integer

K=5

For i=1 To 10

a(i)=i

Next i

For i=1 To 3

P(i)=a(i*i)

Next i

For i=1 To 3

k=k+p(i)*2

Next i

MsgBox k

End Sub

A．28 B．33 C．35 D．37

下列程序的输出结果是【 】。

Private Sub Command1_Click()

Dim a(1 To 20)

Dim i

For i=1 To 20

a(i)=i

Next i

For Each i In a()

a(i)=20

Next i

Print a(2)

End Sub

下列程序的输出结果是【 】

Private Sub Command1_Click()

Dim a(1 To 20)

Dim i

For i=l To 20

a(i)=i

Next i

For Each i In a()

a (i) =20

Next i

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

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