填空题

下面程序的功能是找出能够被13、23、43除余数分别为1、2、3的最小的两位正整数。
请填空。
Private Sub Form_Click()
　Dim i As Integer,j As Integer
　j=0
　j=43+3
　Do
　　j=j+1
　　if (12) then
　　　print j
　　　i=i+1
　　end if
　Loop (13)
End Sub