Private Sub Form_Click() Form1.Width = 13000 Dim i As Integer, j As Integer Cls Print Print "***************九九乘法表*****************" Print For j = 1 To 9 Print " 1 *"; j; "="; j; For k = 2 To j Print Tab(15 * (k - 1)); k; "*"; j; "="; j * k; Next k Print Next jEnd Sub
