在线等!急!!!1000-2000之间所有同时被17 与37 整除的数据和,编写函数S 判断一个数是否同时被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
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
...中途是否要转车,还是直接坐2站路即可!!再线等!!!
不需要转车,你乘10号线坐2站到虹桥火车站下车,然后按路标指示去火车站就可以了。
急!!!再线等!昆山到上海南怎么走
13 D5409 南京-上海 昆山 09:44 上海 10:11 00时27分 49 15 18 - - 14 K784\/K781 鹰潭-上海 昆山 10:03 上海 10:57 00时54分 49 12 - 107 162 15 D5477 合肥-上海 昆山 11:04 上海 11:31 00时27分 49 15 18 - - 16 D5415 南京-上海 昆山 12:43 上海 13:10 00时27分...
如何计算上海员工的个人所得税,很急!再线等待!!
税前工资扣除个人所交社保金部分,减去2000元,按适用税率:不超过500元的,税率5%,超过500元~2000元的部分,税率10%,速算扣除数为25.3500-2000=1500,适用10%,即1500*10%-25=125元
...今晚就要交作业了,谁会线性代数行列式啊?急啊!!!
| 1 2 3 4 | | 1 3 6 10 | | 1 4 10 20 | =| 1 1 1 1 | | 0 1 2 3 | 0 2 5 9 | 0 3 9 19| =| 1 1
急! 10年北京专科分数线
明天出结果,我也在等,保守估计会在182分,但应该不会超过190分(理科),文科保守估计是195分,估计不会抄205分,只是本人意见哦,坐等实际分数(ˇˍˇ) ~
把1到10分别填入括号内,每条线上数相减等于1,急,在线等
中间是4,每条直线上的三数连减得1,那就是1-10凑成两数相减得5即可。所以“10和5”凑一对填在同一条直线上,“9和4”凑一对填在同一条直线上,“8和3”凑一对填在同一条直线上,“7和2”凑一对填在同一条直线上,“6和1”凑成一对填在同一条直线上。希望可以帮助到你。
·物理问题!!再线等!!急!~
4.人骑在自行车上,轮胎会压扁,这个现象说明轮胎受到力的作用产生了形变 5 1分40秒内听见了11次火车咔嚓声,100秒经过10段距离,每段10秒。一段铁轨长250米。所以V=S\/t=250米\/10秒=25米\/秒 6 长为400米的火车,通过2000米的大桥,总长S=2000米+400米=2400米 t=10分钟=600秒 V=S\/t...
上海地铁10号线时刻表
而主线龙溪路站以西于2010年11月28日开通。第二期将由新江湾城站延伸至基隆路,长10.08公里,共设6站,为上海2010~2020年规划建设线路。由于沿途经过新天地、豫园老城厢、南京路、淮海路、四川路、五角场城市副中心等上海中心区域,因此被称为“白金线路”。运行时刻表如图所示:...
...不要不健康的 在线等,急急急急急 好的加分,加10分!!!
小说以他的生活道路为主线,反映了那个时代某些知识分子(主要是部分欧美留学生、大学教授等等)生活和心理的变迁沉浮。他们不属于那个时代先进的知识分子行列,当抗战烽烟燃烧起来的时候,他们大都置身于这场伟大斗争的风暴之外,先在十里洋场的上海,继在湖南一个僻远的乡镇,围绕着生活、职业和婚姻恋爱等...
经线的含义 急急急! 10字的
地球上连接南北两极的线,每条长度相等
壬固清感: 您好,急用钱,推荐您选择正规的网络渠道进行借款,您可以使用有钱花,“有钱花”是原百度金融信贷服务品牌(原名:百度有钱花,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年的主流配置,而且手机做工也很不错的可以去官网购买此机!