九九乘法

Home Home
引用 | 编辑 ccna_not
2008-06-09 21:32
楼主
推文 x0
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
引用 | 编辑 andyz
2008-06-09 21:35
1楼
  
i j 位置对调?

献花 x0
引用 | 编辑 ccna_not
2008-06-10 00:06
2楼
  
下面是引用andyz于2008-06-09 21:35发表的 :
i j 位置对调?

可以了
谢谢!
但有方法可以将距离隔开
排列整齐吗
像上面我想印出的距离左右

献花 x0
引用 | 编辑 andyz
2008-06-10 10:41
3楼
  
下面是引用ccna_not于2008-06-10 00:06发表的 :


可以了
谢谢!
但有方法可以将距离隔开
排列整齐吗
像上面我想印出的距离左右


用C我会
用Basic我不会
表情

献花 x0
引用 | 编辑 三仙
2008-06-10 15:38
4楼
  

图 1.
程式
图 2.
运算结果

我run过了
参考看看吧

献花 x0
引用 | 编辑 rubenjy
2008-06-19 12:57
5楼
  
把输出那行改成
    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