如何输出一个九九乘法表？

Question

如题
先谢谢大家了

Answer 1

dim i as long 
dim j as long 
dim sum as long for i=1 to 9
    for j=i to 9
        sum=i*j
        debug.print sum
    next j
next i

Answer 2

dim i as integer,j as inreter,a as integer
  print "九九乘发表"
   for i=1 to 9
      forj=i to 9
        a=i*j
   print a
  next j
next i

Answer 3

Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
Dim strResult As StringFor x = 1 To 9
    For y = 1 To x
        strResult = strResult & vbTab & y & "x" & x & "=" & (x * y)
    Next
    strResult = strResult & vbCrLf
Next
MsgBox strResult
End Sub

Answer 4

Private Sub Command1_Click()
Dim i As Integer, j As Integer, b As String
For i = 1 To 9
    j = 0
    Do While j < i
        j = j + 1
        b = b & Str(i) & "×" & Str(j)
    Loop
    Print b
    b = ""
Next i
End Sub好了,可以结了,嘿嘿

Answer 5

Private Sub Form_load()
   Me.show
   dim i as integer,j as integer
   for i=1 to 9
      for j=1 to i
         me.print j;"*";i;"=";i*j;"      "
      next j
      me.print
   next i
End Sub

Answer 6

不好意思！
上面的me.print j;"*";i;"=";i*j;"      "再加上一个“；”就更好了，如下：
me.print j;"*";i;"=";i*j;"      ";

Answer 7

liuyanghe111(yang) 的方法好象不能满足楼主的要求
   zengniangao(小米) 的方法只能把九九乘法表显示在一列里，和我们的习惯上的乘法表不一样的
还是 hsboy(hsboy) 的方法比较现实可以实现楼主的要求的。
liyan010(我是大坏蛋) 你有没有调试你的程序，显示的是什么呀，只有式子没有结果的，
 iiboy(信息男孩) 的方法没有hsboy(hsboy)的好，不过是可以实现要求的。

Answer 8

我做过一个九九乘法表不知道是不是你想要得，不过比他们的代码写得少。
Private Sub Command1_Click()
    Dim a As Integer
    Dim b As Integer
    For a = 1 To 9
    For b = 1 To a
    Print b & "*" & a & "=" & b * a & "  ";
    Next b
        Print
    Next a
    
End Sub
如果有什么不好的地方还请大家指教

Answer 9

vbtab 更好些：
Private Sub Command1_Click()
    Dim i As Integer,j As Integer
    For i = 1 To 9
    For j = 1 To i
    Print j & "X" & i & "=" & i * j & vbTab;
    Next
     Print
    Next
    End Sub

Answer 10

这个比较像我们小学课本上的标准格式，呵呵，怎么样啊？楼主还满意吗？Private Sub Form_Click()
For i = 1 To 9
   For j = 1 To i
      Print Tab((j - 1) * 7 + 1); j & "*" & i & "=" & i * j;
   Next j
   Print
Next i
End Sub