自己写的代码实现不了想要输出的结果，求高人指点

心态哥　发表于：2012-08-07 11:02:17 　

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

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

现有的代码如下（实现不了我想要输出的结果）：

Sub xfkj()
Dim i, j, s

Dim zwf As String
zwf = " "
For i = 1 To 4

    For j = 1 To 4
        s = i * j

        Debug.Print CStr(i) & "*" & CStr(j) & "=" & s & zwf
    Next j
    Debug.Print Tab
Next i

End Sub

请高人指点。谢谢！

Top

煮江品茶发表于：2012-08-07 11:16:36

function Result(formula as string) as single

'示例：msgbox Result("24/3*20-5")

Result=Eval(formula)

end function

Top

心态哥发表于：2012-08-09 11:02:35

有些看不懂，但还是谢谢。

Top

心态哥发表于：2012-08-09 21:54:36

已解决：

Sub aaa11()
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) + "   "

    Next n
       txt = txt + Chr(13) + Chr(10)
Next m
       Debug.Print txt
End Sub

Top

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

Access交流中心

自己写的代码实现不了想要输出的结果，求高人指点