代码:
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