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
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基础知识方面有了不少了接,在一些简单的程序方面可以自己制作