某地有一名热心的理发师，他只给村子里的所有不给自己理发的人理发，而村子里所有不为自己理发的人都来找这位理发师理发，则这位理发师()。

在窗体上画一个名为Command1的命令按钮，然后编写下列程序：

Option Base 1

Private Sub Command1_Click()

Dim Arr

Arr=Array(1,2,3,4,5)

j=1

For i=5 To 1 Step-1

S=S+Arr(i)*j

j=j*10

Next

Print S

End Sub

程序运行后，单击命令按钮，输出结果是()。

A．54321

B．123

C．12345

D．345

（30）在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码：

Option Base 1

Private Sub Command1_Click()

Dim a

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

j=1

For i=4 To 1 Step -1

s=s+a(i)*j

j=j*10

Next i

Print s

End Sub

运行上面的程序，其输出结果是（）。

A）1234

B）12

C）34

D）4321

在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京"，"上海"，"天津"，"重庆") Print city(1) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是()。

A．空白

B．错误提示

C．北京

D．上海

在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4) j=1 For i=4 To 1 Step -1 s = s + a(i)* j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出的结果为

A．4321

B．12

C．34

D．1234

在窗体上画一个名称为command1的命令按钮，然后编写如下程序； Option Base 1 Private Sub Command1_Click() Dim arr(4)As String For i=1 To 4 arr(i) = Chr(Asc("A")+(i-1)) Next i For Each b1 In arr Print b1； Next End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。

A．ABCD

B．abcd

C．出错信息

D．1 2 3 4