［二级VB试题天天练］VB考试试题1

文章作者 100test 发表时间 2007:03:10 17:56:37
来源 100Test.Com百考试题网

今天的题目是在不启动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