正常儿童一时专注于一种或两种事情是常见的现象，比如学某部广告片里面的叮当声，或者要用某种米老鼠碗吃麦片。一般来说，这些临时的狂热最终都会过去。有些正常儿童天生就不爱表示热诚，不喜欢人抱，这并不说明他们就一定有孤独症。 根据这段文字，可以推出的是()。

设有如下程序： 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

设有如下程序： Option Base 0 Private Sub Form_Click（） Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）。

A.4 3 2 1

B.5 4 3 2

C.6 5 4 3

D.7 6 5 4

设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i) Next End Sub 程序运行后，单击窗体，则在窗体上显示的是

A．4 3 2 1

B．54 3 2

C．6 5 4 3

D．7 6 5 4

设有如下程序：

Private Sub Form_Click()

Dim i As Integer，x As String,Y As String

x=”ABCDEFG”

For i=4 To 1 Step-1

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

Next i

Print y

End Sub

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

A．ABCCDEDEFG

B．AABBCDEFG

C．ABCDEFG

D．AABBCCDDEEFFGG

设有如下程序：

Option Base 0

Private Sub Form_Click（）

Dim a

Dim i As Integer

a=Array(1，2，3，4，5，6，7，8，9)

For i=0 To 3

Print a(5-i)；

Next

End Sub

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

A.4 3 2 1

B.5 4 3 2

C.6 5 4 3

D.7 6 5 4

有如下程序：

Option Base 1

Private Sub Form_Click()

Dim arr,Sum

Sum=0

For i=1 To 10

If arr(i)/3=arr(i)\3 Then

End If

Next i

End Sub

程序运行后，单击窗体，消息框的输出结果为()。

设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dimi As Integer a=Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i=0 To 3 Print a(5-i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是______。

A．4 3 2 1

B．5 4 3 2

C．6 5 4 3

D．7 6 5 4

设有如下程序： Private Sub Form_Click() A=1 For i＝1 To 3 Select Case i Case 1,3 A＝A+1 Case 2,4 A＝A+2 End Select Next i Print A End Sub 程序运行后，单击窗体，则在窗体上显示的内容是

A．6

B．5

C．4

D．3

9）设有如下程序：

Private Sub Form_Click()

Cls

a$="ABCDFG"

For i=1 To 6

Print Tab(12-i); 【9】

Next i

End Sub

程序运行后，单击窗体，结果如图所示，请填空。