[單項(xiàng)選擇題] 在窗體上有一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：

Private Sub Command1_Click()

Dim a(5)As String

　　FOR i=1 To 5

　　　　 a(i)=Chr(Asc("A")+(i-1))

　　Next

　　For Each b In a

　　　　Print b；

　　Next

End Sub

程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是

A．ABCDE

B．1 2 3 4 5

C．a(chǎn)bcde

D．出錯(cuò)信息

A

本題考查數(shù)組的賦值操作及For Each…In循環(huán)語(yǔ)句。本程序段首先定義了一個(gè)一維數(shù)組變量，然后用For循環(huán)為其賦值，Asc()函數(shù)的作用是返回字符的ASCII碼，字符“A”的ASCII碼為65，Chr()函數(shù)的作用是將ASCII碼值變?yōu)橄鄳?yīng)的字符，而“a(i)=Chr(Ase(“A”)+(i-1))”的作用是將每次比原來(lái)大1的ASCII碼值變?yōu)樽址x給a，所以a的元素是“A，B，C，D，E”。For Each…In用于輸出a中元素的值，所以正確答案是選項(xiàng)A) 。