求如下结果的代码，谢谢！

心态哥　发表于：2012-08-09 11:12:21 　

复制

我想要实现的输出结果如下：

1*1=1 1*2=2 1*3=3 1*4=4
2*1=2 2*2=4 2*3=6 2*4=8
...
4*1=4 4*2=8 4*3=12 4*4=16

求上面结果的代码，谢谢！

Top

irreconcilable 发表于：2012-08-09 12:10:15

点击下载此附件

不知你的真实意图

给你一个乘法口诀表吧

Top

心态哥发表于：2012-08-09 12:41:32

乘法口诀表我有呢，还是谢谢。

Top

心态哥发表于：2012-08-09 12:45:54

我就想要到如题中一样的输出结果。请高人指点。谢谢！

Top

心态哥发表于：2012-08-10 09:49:44

已解决，谢谢各位的支持。分享一下正确代码（如下）

Sub aaa1155555()
Dim m, n, s As Integer
For m = 1 To 4
    For n = 1 To 4
        txt = txt + CStr(m) + "*" + CStr(n) + "=" + CStr(m * n) + Space(3 - Len(m * n))
    Next n
       txt = txt + Chr(13) + Chr(10)
Next m
       Debug.Print txt
End Sub

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

求如下结果的代码，谢谢！