真没人知道吗？

左上角的
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
For i = 1 To 6
For j = i To 6
k = i * j
Print k,

Next j
Print
Next i
End Sub