九九乘法

Sub Main()

Sum = 0
For i = 1 To 9
For j = 1 To 9

Debug.Print i & "*" & j & "=" & i * j & " ";

Next
Debug.Print vbCrLf
Next


End Sub

================================
1*1=1 1*2=2 1*3=3 1*4=4 1*5=5 1*6=6 1*7=7 1*8=8 1*9=9

2*1=2 2*2=4 2*3=6 2*4=8 2*5=10 2*6=12 2*7=14 2*8=16 2*9=18

3*1=3 3*2=6 3*3=9 3*4=12 3*5=15 ..

訪客只能看到部份內容，免費 加入會員

x0

i j 位置對調？

x0

下面是引用andyz於2008-06-09 21:35發表的 :
i j 位置對調？

可以了
謝謝!
但有方法可以將距離隔開
排列整齊嗎
像上面我想印出的距離左右

x0

下面是引用ccna_not於2008-06-10 00:06發表的 :


可以了
謝謝!
但有方法可以將距離隔開
排列整齊嗎
像上面我想印出的距離左右

用C我會
用Basic我不會


x0

圖 1.
程式
圖 2.
運算結果

我run過了
參考看看吧

x0

把輸出那行改成
    Debug.Print i & "*" & j & "=" & i * j & " ",
或  
    Debug.Print j; "*"; i; "="; Format(i * j, " 0 "),
都可以
差別在於第1個顯示出來的是
1*1=1       1*2=2       1*3=3
而第二個顯示出來的是
1 * 1 = 1   2 * 1 = 2   3 * 1 = 3   4 * 1 = 4

如果把Format(i * j, " 0 ")改成Format(i * j, " 00 ")
則不足十位數的會變成0x
也就是
1 * 1 = 01   2 * 1 = 02   3 * 1 = 03   4 * 1 = 04

x0