求附件中正确代码

心态哥　发表于：2012-08-09 16:41:53 　

复制

点击下载此附件

Top

irreconcilable 发表于：2012-08-09 18:05:14

点击下载此附件

就是到4为止的口诀吧

我这么理解

Top

品茶论道发表于：2012-08-09 18:09:30

For i = 1 To 4
    For j = 1 To 4
      txt = txt + Str(i) + "*" + Str(j) + "=" + Str(i * j)
    Next j
    txt = txt + Chr(13) + Chr(10)
   Debug.Print txt
Next i

Top

心态哥发表于：2012-08-09 21:00:38

是的，谢谢各位大师的解答。

Top

心态哥发表于：2012-08-09 21:40:58

感谢各位的解答，最终代码如下：

Sub aaa11()
Dim m, n, s As Integer
For m = 1 To 4
    For n = 1 To 4
        ttt = ttt + CStr(m) + "*" + CStr(n) + "=" + CStr(m * n) + "   "

    Next n
       ttt = ttt + Chr(13) + Chr(10)
Next m
       Debug.Print ttt

End Sub

Top

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

Access交流中心

求附件中正确代码