急啊,希望大家帮帮我!

Question

我写了一个显示乘法表的代码
Dim a(1 To 9), b(1 To 9) As Integer
Dim i, j As Integer
For i = 1 To 9
   a(i) = i
    For j = 1 To a(i)
        b(j) = a(i) * j
      Form1.Print Str(a(i)) & "*" & j & " =" & Str(b(j)); Tab(10)
    Next jNext i
但他显示出来的是
1*1=1
1*2=2
2*2=4
可我想显示出这样的效果
1*1=1
1*2=2   2*2=4
1*3=3   2*3=6   3*3=9
还有就是我把这个代码写在form_load中怎么不能显示只能在事件单激的情况下可以实现,大家帮帮我吧!

Answer 1

dim a as long ,b as long ,c as longfor a=1 to 9
    for b=1 to 9
         form1.print a & " * " & b & " = " a*b;
    next
    print     '打印一個空行
next
2、我也遇到過這種問題，　form_load事件估計會重繪窗體，所以你看不到了
試試將autoredraw設為true

Answer 2

Private Sub Form_Load()
Me.Show
Me.WindowState = 2
Dim a(1 To 9), b(1 To 9) As Integer
Dim i As Integer, j As Integer
For i = 1 To 9
   a(i) = i
    For j = 1 To a(i)
        b(j) = a(i) * j
        Form1.Print Str(a(i)) & "*" & j & " =" & Str(b(j)); Spc(10);
    Next j
 Print vbCrLf
Next i
End Sub

Answer 3

load 事件是窗体生成前的第一个事件。此时不能在窗体上打印。窗体生成时会更新掉。
可以在Form_Activate()事件中添加代码，Form_Activate()是窗体被激活时的第一个
事件。

Answer 4

load 事件是窗体生成前的第一个事件。此时不能在窗体上打印。窗体生成时会更新掉。
可以在Form_Activate()事件中添加代码