中央银行的组织形式主要类型分（）。

运行下列程序，输入如下两行：

Hi，

I amhere．

弹出的窗体中的显示结果是（）。Private Sub Commandll_Click

Dim abeAs String,sum As String

sum Ⅰ””

Do

abc=InputBox(”输入abc”)

If Right(abc，1)=”．”Then Exit Do

sum=sum+abc

Loop

MsgBoxsum

End Sub

A.Hi

B.I

C.am

D.here

A.Hi

B.I

C.am

D.here

【题目描述】

运行下列程序，输入如下两行：

Hi，

I amhere．

弹出的窗体中的显示结果是（）。Private Sub Commandll_Click

Dim abeAs String,sum As String

sum Ⅰ””

Do

abc=InputBox(”输入abc”)

If Right(abc，1)=”．”Then Exit Do

sum=sum+abc

Loop

MsgBoxsum

End Sub

A.Hi

B.I

C.am

D.here

该程序的功能是检查字符串最右边的字符，如果为“．”则退出，否则将输入到InputBox中的字符串连接起来输出。

在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1．Text：Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是

A．1

B．3

C．6

D．10

运行下列程序，显示的结果是

Private Sub Command34_Click()

i=0

Do

i=i+1

Loop While i<10

MsgBox i

End Sub

A．0

B．1

C．10

D．11

设有如下程序

Option Base 1

Private Sub Command1_Click（）

Dim a（10）As Integer

Dim n As Integer

n=InputBox（"输入数据"）

If n<10 Then

Call GetArray（a,n）

End If

End Sub

Private Sub GetArray（b（）As Integer,n As Integer）

Dim c（10）As Integer

j=0

For i=1 To n

b（i）=CInt（Rnd（）*100）

If b（i）/2=b（i）\2 Then

j=j+1

c（j）=b（i）

End If

Next

Print j

End Sub

以下叙述中错误的是（）。

A．数组b中的偶数被保存在数组c中

B．程序运行结束后,在窗体上显示的是c数组中元素的个数

C．GetArray过程的参数n是按值传送的

D．如果输入的数据大于10，则窗体上不显示任何显示

下面程序的运行结果是在窗体中显示的：

运行后窗体上显示的是______。

A、33

B.35

C.37

D.38