(相关资料图)

1、Private Sub Command1_Click() print99 Me End Sub Private Sub Command2_Click() print99 Picture1 End Sub Private Sub print99(obj1 As Object) Dim i As Integer, j As Integer obj1.Cls For i = 1 To 9 For j = 1 To i obj1.Print i; "x"; j; "="; i * j, Next j obj1.Print Next i End Sub。

本文分享完毕，希望对大家有所帮助。