今天的题目是在不启动Visual Basic的情况下，写出下面程序的运行结果，呵呵
Option Explicit

Private Sub Command1_Click()
 Dim strA As String
 Dim strB As String
 Dim intL As Integer
 Dim i As Integer
   
   strA = "*****************"
   intL = Len(strA)
   For i = 1 To intL
      strB = Mid(strA, i, i)
      Print strB
   Next
End Sub