Dim i%, j% Cls For i = 1 To 9 For j = 1 To i Print j & Chr(42) & i & Chr(61) & i * j & vbTab; Next Print Next
漂亮的程序其实就在于精炼。