问题详情

运行下列程序：

Private Sub Form_Click()

Dim x As Integer, y As String, z As String

y = "12345"

For x = 1 To Len(y)

z = Mid(Left(y, x), 1)

Next x

Print z

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.1

B.11111

C.55555

D.12345