判断并输出1000到2000之间能同被17和37整除的的数

代码：

Private Sub Command1_Click()
 
Dim A As Integer
A = val(Text1.Text)


If A Mod 17 = 0 Then


   If A Mod 37 = 0 Then
      
     Label3.Caption = "此数可以同时被17和37整除"
   
   Else
     Label3.Caption = "此数不可以同时被17和37整除"
   
   End If
Else
   
      Label3.Caption = "此数不可以同时被17和37整除"
End If


End Sub


Private Sub Command2_Click()
Dim i As Integer


 For i = 1000 To 2000 Step 1
     If i Mod 17 = 0 Then
     
        If i Mod 37 = 0 Then
        
             Print i
        
        End If
     End If
  Next


End Sub