VB问题 在线等

Option Explicit
Private Sub Form_Click()
Cls
Dim x As Integer
Dim i As Integer
'**********FOUND**********
i = 0
For x = 1 To 40
If (x / 3) = (x \ 3) Then
'**********FOUND**********
Print x;
i = i + 1
End If
'**********FOUND**********
If i Mod 5 = 0 Then
Print
End If
Next x
End Sub

Option Explicit
Private Sub Form_Click()
Cls
Dim x As Integer
Dim i As Integer
'**********FOUND**********
i = 0
For x = 1 To 40
If (x / 3) = (x \ 3) Then
'**********FOUND**********
Print x;
i = i + 1
End If
'**********FOUND**********
If i Mod 5 = 0 Then
Print
End If
Next x
eerr32drfrew3w