VB 九九乘法表

   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

 

漂亮的程序其实就在于精炼。