7,762
社区成员
发帖
与我相关
我的任务
分享
Sub printstr(Inputstr As String)
'Print String(62 - Len(Inputstr), " ") & Inputstr
Print Space(62 - Len(Inputstr)) & Inputstr '就是前面加空格
End Sub
Private Sub Form_Click()
Dim i As Integer, j As Integer
Dim cache As String
For i = 1 To 9
cache = ""
For j = 1 To i
cache = cache & " " & i & "*" & j & "=" & i * j
Next j
printstr cache
Next i