11/14 VB作九九乘法表

Private Sub CommandButton1_Click()
Dim i As Integer

For i = 1 To 9
    For j = 1 To 9
'列出9*9個格子
        Cells(i, j).Value = i * j
'格子值為i*j
    Next j
Next i
End Sub