vb编程九九乘法表

Question

Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 1 To 9
For j = 1 To i
Print Tab((i - 1) * 8); i; "*"; j; "=" & i * j
Next j
Print
Next i
End Sub
这个哪里错了啊

Answer 1

因为在不该换行的地方换行了....
调用一次 print 完毕之后vb会自动跳到下一行...
做一个缓冲就好了,需要换行的时候再输出,否则放到strLine里面

Cls
Dim i As Integer, j As Integer
Dim strLine As String
For i = 1 To 9
For j = 1 To i
strLine = strLine & i & "*" & j & "=" & i * j & " "
Next j
Print strLine & vbCrLf
strLine = ""
Next i

Answer 2

Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 1 To 9
For j = 1 To i
Print Tab((j - 1) * 8); i; "*"; j; "=" & i * j;
Next j
Print
Print
Next i
End Sub

Answer 3

Option Explicit

Private Sub Command1_Click()
Dim i&, j&
For i = 1 To 9
For j = 1 To i
Print " " & i; "*"; j; "=" & Format(i * j, "@@");
Next
Print
Next
End Sub

Answer 4

Private Sub Command1_Click()
Dim i, j As Integer
For i = 1 To 9
For j = i To 9
Line (i * 200, j * 250)-(i * 200, j * 250)
ForeColor = i * j * 253'字体颜色
Print Space((i - 1) * 6); i & "×" & j & "=" & i * j
Next j
Next i
End Sub

绝对不错 ，还是渐变色显示（可取消此功能）