VBA:乘法口诀表
Sub 乘法表()
Dim i As Integer
Dim j As Integer
For i = 1 To 9
For j = 1 To i
s = j & "*" & i & "=" & i * j
Sheets("乘法表").Cells(i, j) = s'将s写入到名称为“乘法表”的工作表中
Next
Next
End Sub
结果如下图所示:
VBA:乘法口诀表
Sub 乘法表()
Dim i As Integer
Dim j As Integer
For i = 1 To 9
For j = 1 To i
s = j & "*" & i & "=" & i * j
Sheets("乘法表").Cells(i, j) = s'将s写入到名称为“乘法表”的工作表中
Next
Next
End Sub
结果如下图所示: