Private Sub Command1_Click() Dim i, j, k For i = 1 To 10 k = 1 For j = 1 To i k = k * j Next Print i & "!=" & k Next End Sub
