vb中picture控件中的输出为什么残缺不全？

有个语句位置错了

Option Base 1
Private Sub Command1_Click()
Dim a() As Integer, m As Integer, n As Integer
Dim st As Double
m = InputBox("请输入", "矩阵的行", u)
n = InputBox("请输入", "矩阵的列", l)
Sum = 0

Randomize
ReDim a(m, n)

For i = 1 To m
For j = 1 To n

a(i, j) = Int(99 * Rnd) + 1
Sum = Sum + a(i, j)

Next j
Next i
st = Sum / (m * n)
For i = 1 To m
For j = 1 To n
If a(i, j) > st Then
Picture1.Print "a(" & i & "," & j & ")=" & a(i, j);
js = js + 1
If js Mod 3 = 0 Then Picture1.Print'此语句应写在这里
End If
Next j
Next i
End Sub