您的位置：首页 > 其它

课堂作业

2012-04-16 19:54 253 查看
编写判断一个数是否同时被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
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息
标签：  作业 integer function command
相关文章推荐
新的分享
章节导航