编写判断一个数是否同时被17与37整除的 function过程,输出1000-2000之间所有能被17与37整除的数。
Function S(i As Integer) as boolean If (i Mod 17 = 0 And i Mod 37 = 0) Then S = True Else S = False End If End Function Private Sub Command1_Click() Dim sum As Long Dim i As Integer For i = 1000 To 2000 If S(i) = True Then sum = sum + i End If Next i Text2 = sum End Sub