vb99乘法表不能正确显示

Question

Option Explicit

Private Sub Command1_Click()
Dim i, j As Integer
For i = 1 To 9
j = 1
Do While j <= 1
Print i; "*"; j; "="; i * j,
j = j + 1
Loop
Print
Next i

End Sub

Answer 1

Do While j <= i
j=1，循环条件j<=1永远只循环一次