[二级VB试题天天练]VB考试试题1

全国等级考试资料网 2022-08-27 15:27:42 100
今天的题目是在不启动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

相关资料

相关阅读