九九乘法表拯救世界【误

Private Sub Command1_Click()
    Dim i, j As Integer
    Label1.Caption = "       万岁！世界重新得到了和平！"
    Form1.Cls
    For i = 1 To 9
        For j = 1 To i
            Print j; "x"; i; "="; j * i,
        Next j
        Print
    Next i
End Sub

Private Sub Command2_Click()
    Form1.Cls
    Label1.Caption = "世界正在遭受着苦难！点击上方按钮拯救世界！"
End Sub