VB 程序 计算从1到12260之间所有的能同时整除3,7,9的整数的个数

设置了没5个换行
Private Sub Bcompute_Click()
t = 0
For i = 1 To 12260
If (i Mod 3 = 0) And (i Mod 7 = 0) And (i Mod 9 = 0) Then
Tresult.Text = Tresult.Text & i & " "
t = t + 1
If t Mod 5 = 0 Then Tresult.Text = Tresult.Text & Chr(13) & Chr(10)
End If
Next i
End Su