vb编程怎样编啊

Private Sub Command1_Click()
Dim i, j, s
For i = 1 To 9
For j = 1 To i
s = s & j & "×" & i & "=" & IIf(Len(i * j) < 2, i * j & " ", i * j) & " "
Next
s = s & vbCrLf
Next
MsgBox s
End Sub

Private Sub Command1_Click()
For i = 1 To 9
For j = 1 To i
Print j & "*" & i & "="; i * j,
Next
Print ""
Next
End Sub

Dim i, j, s
For i = 1 To 9
For j = 1 To i
s = s & j & "×" & i & "=" & IIf(Len(i * j) < 2, i * j & " ", i * j) & " "
Next
s = s & vbCrLf
Next
print s