求助🆘求助
vba吧
全部回复
仅看楼主
level 1
哪位大佬能给出这题的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分
@娜乌_西卡 大佬,谢谢您[泪][泪]
2024年06月19日 00点06分
level 1
好**的问题
2024年06月19日 00点06分 6
1