UC知道VBA中怎样用双层for循环作出乘法口诀表？
来源：百度知道 编辑：UC知道 时间：2024/09/24 00:46:25
窗体中有一个按钮控件，上面写着“输出乘法口诀”，下面有一个标签控件。按一下按钮控件，乘法口诀就在标签中显示。比如说，这个标签名是：Me.label10.caption 这个代码应该怎么写呢。
做出了的乘法口诀要是这样的：
1×1=1
1×2=2 2×2=4
1×3=3 2×3=6 3×3=9
1×4=4 2×4=8 3×4=12 4×4=16
1×5=5 2×5=10 3×5=15 4×5=20 5×5=25
1×6=6 2×6=12 3×6=18 4×6=24 5×6=30 6×6=36
1×7=7 2×7=14 3×7=21 4×7=28 5×7=35 6×7=42 7×7=49
1×8=8 2×8=16 3×8=24 4×8=32 5×8=40 6×8=48 7×8=56 8×8=64
1×9=9 2×9=18 3×9=27 4×9=36 5×9=45 6×9=54 7×9=63 8×9=72 9×9=81
做出了的乘法口诀要是这样的：
1×1=1
1×2=2 2×2=4
1×3=3 2×3=6 3×3=9
1×4=4 2×4=8 3×4=12 4×4=16
1×5=5 2×5=10 3×5=15 4×5=20 5×5=25
1×6=6 2×6=12 3×6=18 4×6=24 5×6=30 6×6=36
1×7=7 2×7=14 3×7=21 4×7=28 5×7=35 6×7=42 7×7=49
1×8=8 2×8=16 3×8=24 4×8=32 5×8=40 6×8=48 7×8=56 8×8=64
1×9=9 2×9=18 3×9=27 4×9=36 5×9=45 6×9=54 7×9=63 8×9=72 9×9=81
Private Sub CommandButton1_Click()
for m= 1 to 9
for n =1 to m
Me.label10.caption =Me.label10.caption & val(m) & "*" & val(n) & "=" m*n
next n
Me.label10.caption = Me.label10.caption & chr(13)+chr(10)
next m
end sub
绝对可行，access中vba。
Private Sub CommandButton1_Click()
On Error GoTo err
Dim i, j, k1
Label10 = ""
For j = 1 To 9 '开始打印
For i = 1 To 9
r = i * j '相乖结果
If Len(r) = 1 Then r = r & " " '为了显示方便补空格
If Len(r) = 2 Then r = r & " " '为了显示方便补空格
k1 = i & "x" & j & "=" & r & " " '乖法算式显示
If i = j Then k1 = k1 & Chr(13) '为了好看点
pr k1 '打印出一行
k1 =