Which of the following statements do you think that the writer will agree to？A．We should n

设有如下程序：

Private Sub Form. Click（）

Dim i As Integer，x As String，y As String

x="ABCDEFG"

For i=4 To 1Step-1

y=Mid(X，i，i)+y

Next i

Print y

End Sub

程序运行后，单击窗体，输出结果为（）。

A.ABCCDEDEFG

B.AABBCDEFG

C.ABCDEFG

D.AABBCCDDEEFFGG

设有如下程序： Private Sub Form. Click（） Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+l sum=sum+ary(i) Next i Print sum End Sub 程序运行后，单击窗体，则在窗体上显示的是（）。

A.15

B.16

C.20

D.25

设有如下程序：

Private Sub Form. Click（）

Dim ary(1 To 5)As Integer

Dim i As Integer

Dim sum As Integer

For i=1 To 5

ary(i)=i+l

sum=sum+ary(i)

Next i

Print sum

End Sub

程序运行后，单击窗体，则在窗体上显示的是（）。

A.15

B.16

C.20

D.25

设有如下程序：

Private Sub Form. Click（）

Dim s As Long，f As Long

Dim n As Integer，i As Integer

f=1

n=4

For i=1 To n

f=f*i

s=s+f

Next i

Print s

End Sub

程序运行后，单击窗体，输出结果是（）。

A.32

B.33

C.34

D.35

有如下程序:: Private Sub Form. Click() Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2 ＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。

A． 12

B．30

C．24

D．18

ABCDEFG" For i=4 To 1Step-1 y=Mid(X，i，i)+y Next i Print y End Sub 程序运行后，单击窗体，输出结果为（）。

A.ABCCDEDEFG

B.AABBCDEFG

C.ABCDEFG

D.AABBCCDDEEFFGG

有如下事件过程：

Private Sub Form. Click（）

Dim n As Integcr

x=0

n=InputBox("请输入一个整数")

For i=1 To i

For i=1 To i

x=x+1

Next j

Next i

Print x

End sub

程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（）。

A.13

B.14

C.15

D.16

下列程序运行时输出的结果是()。 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