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 NextEnd Sub
关于我们| 联系我们| 免责声明| 网站地图| 手机版