EXCEL_九九乘法表
━━━━━━━━━━━━━━━━━━━━━━
Sub 按钮1_Click()
With Sheets("Sheet1")
For i = 1 To 9
For j = 1 To 9
If i >= j Then
.Cells(i, j) = j & "*" & i & "=" & j * i
End If
Next j
Next i
End With
End Sub
━━━━━━━━━━━━━━━━━━━━━━ 
VB_九九乘法表
Private Sub Command1_Click()
For i = 1 To 9
For j = 1 To 9
If j <= i Then
Picture1.Print j & " × " & i & " = " & j * i & Chr(9);
Else
Picture1.Print vbCrLf
Exit For
End If
Next j
Next i
End Sub
|
