呵呵！

Private Sub Form_Click()
Dim i As Integer, j As Integer,M As Integer
For i = 9 To 1 step -1
  For j = 1 To i
      M = j * i
      Print j & "*" & i & "=" & M & "  ";
  Next j
  Print
Next i
End Sub
注意红色字体:
    请单击窗体...

LS说什么了呢？