真没人知道吗?
左上角的Private Sub Command1_Click()Dim i As Integer, j As Integer, k As IntegerFor i = 1 To 6 For j = i To 6 k = i * j Print k, Next j PrintNext iEnd Sub