运行下列程序：Private Sub Command1_Click（)Dim s1 As String * 1Dim s2 As Strings1 = &quo

运行下列程序：

Private Sub Command1_Click()

Dim s1 As String * 1

Dim s2 As String

s1 = "a"

For i = Asc(s1) To Asc(s1) + 4

s2 = s2 & Chr(i)

Next i

Print s2

End Sub

单击Command1命令按钮后，则在窗体上显示的结果是()。

A.a

B.abcde

C.aaaa

D.s2