引用 | 编辑
ccna_not
2008-06-09 21:32 |
楼主
▼ |
||
![]() 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 .. 访客只能看到部份内容,免费 加入会员 ![]()
|
引用 | 编辑
ccna_not
2008-06-10 00:06 |
2楼
▲ ▼ |
下面是引用andyz于2008-06-09 21:35发表的 : 可以了 谢谢! 但有方法可以将距离隔开 排列整齐吗 像上面我想印出的距离左右 ![]() |
引用 | 编辑
andyz
2008-06-10 10:41 |
3楼
▲ ▼ |
下面是引用ccna_not于2008-06-10 00:06发表的 : 用C我会 用Basic我不会 ![]() ![]() |
引用 | 编辑
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 ![]() |