求助🆘求助
vba吧
全部回复
仅看楼主
level 1
贴吧用户_J7JNeaR
楼主
哪位大佬能给出这题的VBA代码,在立即窗口中显示成这样倒式的乘法表
2024年06月18日 07点06分
1
level 13
天之坦克杀手
debug .print可以输出
vbtab是tab字符
2024年06月18日 09点06分
2
level 7
水面上的小草
初学者。。。
好难的样子。。。
2024年06月18日 11点06分
3
level 5
娜乌_西卡
Debug.Print "乘法表3:"
Debug.Print "1X1=1 2X1=2 3X1=3 4X1=4 5X1=5 6X1=6 7X1=7 8X1=8 9X1=9"
Debug.Print " 2X2=4 3X2=6 4X2=8 5X2=10 6X2=12 7X2=14 8X2=16 9X2=18"
Debug.Print " 3X3=9 4X3=12 5X3=15 6X3=18 7X3=21 8X3=24 9X3=27"
Debug.Print " 4X4=16 5X4=20 6X4=24 7X4=28 8X4=32 9X4=36"
Debug.Print " 5X5=25 6X5=30 7X5=35 8X5=40 9X5=45"
Debug.Print " 6X6=36 7X6=42 8X6=48 9X6=54"
Debug.Print " 7X7=49 8X7=56 9X7=63"
Debug.Print " 8X8=64 9X8=72"
Debug.Print " 9X9=81"
2024年06月18日 17点06分
4
level 5
娜乌_西卡
Dim r&, c&, s$
Debug.Print "乘法表3:"
For r = 1 To 9
s = ""
For c = r To 9
s = s & vbTab & c & "X" & r & "=" & c * r
Next c
Debug.Print Tab(r * 8 - 7); Mid(s, 2)
Next r
2024年06月18日 17点06分
5
娜乌_西卡
不过最好还是弄明白原理,变成自己的知识
2024年06月18日 17点06分
娜乌_西卡
2种方法,看的懂哪种写哪种,如果是电脑判卷的话,一般输出结果对就行
2024年06月18日 17点06分
贴吧用户_J7JNeaR
@娜乌_西卡
大佬,谢谢您
2024年06月19日 00点06分
level 1
新七彩º
好**的问题
2024年06月19日 00点06分
6
1