能同时被17和37整除的整数

Private Sub Combo1_Change()


End Sub


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

经过快一个学期的学习，在一些vb基础知识方面有了不少了接，在一些简单的程序方面可以自己制作