VB寫九九乘法表??

[Eileen]

各位大大~~~
請問VB中使用巢狀迴圈(NESTED LOOP)做九九乘法表該如何用ㄚ
這是我之前看書打的程式:
Private Sub Form_Activate ()
　 Print
　 For i=1 to 9
　 For j=1 to 9
　 Print i ;"X";j;"=";i*j,
　 Next j
　 Print
　 Next i
End Sub
打出來的結果顯示
1X1=1　 1X2=2......1X6=6
2X1=2　 2X2=4......2X6=12
　　　　　　　　　 .
　　　　　　　　　 .
　　　　　　　　　 .
　　　　　　　　　 .
9X1=9　 9X2=18.....9X6=54
因為整個FORM的位置不夠大
結果從"X7.....X9"都沒顯示出來
這種情形該如何解決呢
還有阿
如果我想將結果顯示成
1X1=1　2X1=2......5X1=5
　　　　　　　　.
　　　　　　　　.(以此類推)
　　　　　　　　.
1X9=9　2X9=18...5X9=45
--------------------------------(下一行)
6X1=6.................10X1=10
　　　　　　　　.
　　　　　　　　.(以此類推)
　　　　　　　　.
6X9=54...............10X9=90
這樣我的程式該如何做修改呢
請各位大大幫個忙吧
謝謝囉 　　

[小誌]

1.

程式碼:

Private Sub Form_Activate ()
　 For i=1 to 5
　 For j=1 to 5
　 Print j ;"X";i;"=";i*j,
　 Next j
　 Print
　 Next i

　　For i=6 to 10
　 For j=6 to 10
　 Print j ;"X";i;"=";i*j,
　 Next j
　 Print
　 Next i
End Sub

2.改變FORM的字型屬性將字形大小設定改小一點

[Eileen]

參考了小誌大大的資料
雖然做出來的結果並不完全符合我的條件
不過這些資料卻給我很大的幫助唷
我將我做出來的程式碼po上來
可以供給以後的人參考唷
Private Sub Form_Activate()
　FontSize = 8
　For i = 1 To 10
　For j = 1 To 5
　Print j; "X"; i; "="; i * j,
　Next j
　Print
　Next i
 Print "===================================================="
　For i = 1 To 10
　For j = 6 To 10
　Print j; "X"; i; "="; i * j,
　Next j
　Print
　Next i
End Sub

[oobird]

我不懂vb，但excel的vba就好寫多了：
Sub 九九乘法()
　For c = 1 To 9
　　 For d = 1 To 9
　　　 Cells(c, d) = c * d
　　 Next d
　Next c
End Sub

[hanson]

Private Sub Form_Activate ()
方法一:form1.width=screen.width
方法二:form1.windowState=2
方法三:form1.AutoRedraw=True
　 Print
　 For i=1 to 9
　 For j=1 to 9
　 Print i ;"X";j;"=";i*j,
　 Next j
　 Print
　 Next i
End Sub
都是設定FORM的屬性,這樣可以吧!

[terry13a]

不知道這個合不合你用!!



Private Sub Form_Activate()
Cls
For i = 1 To 6 Step 5
　For j = 1 To 10
　　 For n = 0 To 4
　　 Print (i + n); "*"; j; "="; j * n,
　　 Next
　Print
　Next
Print
Next
End Sub

[閔]

Sub Test9_9()
Dim X As Integer
Dim Y As Integer
　For X = 1 To 9
　　 For Y = 1 To 9
　　　 Print　= X & "*" & Y & "=" & X * Y
　　 Next Y
　Next X
End Sub