九九乘法表代码（供初学者参考）

时　间:2012-08-09 21:52:10
作　者:心态哥   ID：27358  城市：宜昌
摘　要:九九乘法表代码
正　文:

    要实现乘法口诀的能不能用代码实现?

答案是可以的..

九九乘法表代码

如下:

结果：

1*1=1  
2*1=2   2*2=4  
3*1=3   3*2=6   3*3=9  
4*1=4   4*2=8   4*3=12   4*4=16  
5*1=5   5*2=10   5*3=15   5*4=20   5*5=25  
6*1=6   6*2=12   6*3=18   6*4=24   6*5=30   6*6=36  
7*1=7   7*2=14   7*3=21   7*4=28   7*5=35   7*6=42   7*7=49  
8*1=8   8*2=16   8*3=24   8*4=32   8*5=40   8*6=48   8*7=56   8*8=64  
9*1=9   9*2=18   9*3=27   9*4=36   9*5=45   9*6=54   9*7=63   9*8=72   9*9=81

以上结果的代码如下：

Sub aaa1333331()
Dim m, n, s As Integer
For m = 1 To 9
    For n = 1 To m
        txt = txt + CStr(m) + "*" + CStr(n) + "=" + CStr(m * n) + "   "
               
    Next n
       txt = txt + Chr(13) + Chr(10)
Next m
       Debug.Print txt
End Sub