在线等！急！！！1000-2000之间所有同时被17 与37 整除的数据和,编写函数S 判断一个数是否同时被17与37整

编制判断是否同时被17和37整除的函数。输出1000—2000之间所有同时能被17和37 整除的数。~

For i = 1000 To 2000 If i Mod 17 = 0 And i Mod 37 = 0 Then print i Next i 呵呵 我只知道前半段确实是表示1000至2000间能同时被17和37整除 后面的你可以试 对照教材 这个应该比较简单 我没有书 现在想不起来了
麻烦采纳，谢谢!

Private Sub Command1_Click()
For i = 1000 To 2000
If thisis(i) Then Print i
Next i

End Sub

Function thisis(n) As Boolean
thisis = n Mod (17 * 37) = 0
End Function

Option Explicit

Function S(i As Integer)
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

结果是3145

Function S(i As Integer)
if(i mod 17=0 and i mod 37=0)
S=true
else
S=false
end if
End Function

Private Sub Command1_Click()
dim k
dim i
k=""
i=1000
while(i<2000)
rem if S(i mod 17=0 and i mod 37=0)
if S(i)=true
k=k+i+","
end if
i=i+1
wend

Text2.text = left(k,len(k)-1)
End Sub

我没环境，我这的用的c#的，你给的这段是vb的代码，就随手写的，只有你自己调试了。

'传入a 是一个整数，返回布尔结果
function S(a as integer) as boolean
if a mod 17 =0 and a mod 37 =0 then S = true
end function

'确认按钮单击事件
sub command1_click()
dim i as integer
dim x as long '记录和
for i = 1000 to 2000
if S(i) then x = x + i
next
text2.text = x
end sub

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

---

凌河区15679677211： 本人急需1000到2000元,请问有什么办法快速获得? - ？
壬固清感： 您好,急用钱,推荐您选择正规的网络渠道进行借款,您可以使用有钱花,“有钱花”是原百度金融信贷服务品牌(原名:百度有钱花,2018年6月更名为“有钱花”), 具有申请简便、放款快、借还灵活、息费透明、安全性强等特点.申请材料简单,最快30秒审批,最快3分钟放款.可提前还款,还款后恢复额度可循环借款.希望这个回答对您有帮助,手机端点击下方,立即测额!最高可借额度20万.

凌河区15679677211： 在线等!急!!!1000 - 2000之间所有同时被17 与37 整除的数据和,编写函数S 判断一个数是否同时被17与37整 - ？
壬固清感： Option ExplicitFunction S(i As Integer)If (i Mod 17 = 0) And (i Mod 37 = 0) ThenS = TrueElseS = FalseEnd If End FunctionPrivate Sub Command1_Click()Dim sum As LongDim i As IntegerFor i = 1000 To 2000If S(i) = True Thensum = sum + iEnd IfNext iText2 = sum End Sub结果是3145

凌河区15679677211： 如何快速搞到两千块钱 在线等急 - ？
壬固清感： 建议2113您选择正规渠道办理借款,如银行渠道;申请低于5万元的小额贷款,可先登录我行5261手机银行,点击“我的”-“全部”-“贷款”-“我要借钱”通4102过此界面尝试申请,1653或者是通过信用卡办理借款;登陆掌上生活,点击下方“卡.金融”-“备用回金”-“立即申请”可在此尝试申请备用金,具体以审核结果为准.答

凌河区15679677211： 有没有可以贷1000 - 2000的软件啊,急求啊 - ？
壬固清感： 有很多,不过利息很贵的,这种小额的基本都是高利息来的,你借这点钱还不如跟家人朋友借,这样还好点,小额的基本都是714没有更久的,最多的就一个月

凌河区15679677211： 急求1000 - 2000元性价比高的手机 - ？
壬固清感： htc desire 816 目前比较好的推荐 至于htc评价不佳 主要是因为htc过分关注高端机市场而忽略了中低端机 导致公司效益滑坡 自然就没人愿意给好评了 htc desire 816是难得的一款面向中端的手机 双卡双待 5.5英寸1280*720分辨率 高通四核 1300万主摄像头 1.5G RAM 8G ROM 就是需要剪小卡 还得是Nano SIM卡 5 中兴旗下的努比亚z5s (不是mini的)3网通吃 5英寸 1920*1080分辨率 高通四核 1300万像素主摄像头 前置500万像素 2G RAM 16G/32G ROM

凌河区15679677211： (急!)1000 - 2000买什么手机好 - ？
壬固清感： 要是只要求拍照推荐索爱的K750(200万像素) /三星的D508(130万像素)/D608(200万像素),这三款都是2000以下照像我个人认为拍照效果比较好的,资料如下:http://phone.younet.com/files/14/14915.html http://phone.younet.com/files/14/14464.html http://phone.younet.com/files/14/14871.html

凌河区15679677211： 想给女朋友买个手机价格在1000 - 2000.直板,最好小点,薄点.性价比高的给介绍个.在线急等.分啊？
壬固清感： E72

凌河区15679677211： 1000到2000元之间的全自动洗衣机那个品牌好,具体型号? - ？
壬固清感： 海尔,美的,小天鹅.都是可以的.在功能,,质量,价格,上来比较,海尔是最好的.多年老品牌/.在售后相比,海尔更不用说.1000-2000元买海尔的完全可以买到一款中高档洗衣机.希望楼主能够选择海尔,信任海尔.支持国产.!!!海尔还有各方面服务哦,家里家电海尔牌子的多了,可以办理海尔五星卡的.,以前能办,现在能不能不清楚了哦!!希望能帮到你!!!

凌河区15679677211： 求一部1000 - 2000块钱左右的手机!要性价比高!质量好的!？
壬固清感： 推荐华为荣耀3X价格才1698,性能配置是14年的主流配置,而且手机做工也很不错的可以去官网购买此机!