0到2000内能同时被17和37整除的数

最新推荐文章于 2021-11-03 16:18:09 发布
最新推荐文章于 2021-11-03 16:18:09 发布
阅读量399 收藏
点赞数
分类专栏： VB
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/liuxiaowu615/article/details/7578657
版权

dim i as long
for i=0 to 2000
   if (i mod (17* 37))=0 then
      print i
      end if
   next i

这个小程序是自己编的，运用了for....next,if...then...else...end if.点鼠标的时候就会输出两千以内能同时被17和37整除的数。

其实这个程序还有一点不足，就是：if (i mod (17* 37))=0 then，这里用17*37有点不妥，但是不妨碍这个程序的结果，主要原因是17和37是素数！！！

kSimpleCoder
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
找出1~1000之间能同时被3和7整除的数，并求出这些数的和，要求使用continue语句提高代码效率。并按示例样式输出。
weixin_46520272的博客
04-11 7002
a=0 b=[] print("1~1000间能同时被3和7整除的数为；") for i in range(1,1001): if i%3==0 and i%7==0: print('{:>4}'.format(i),end='') a+=1 b.append(i) if a%9==0: print() print('...
1000内能被357整除.exe
12-13
1000内能被357整除.exe
1000~2000内能被17与37同时整除的数
chenglili123的专栏
05-05 498
Private Function judge(N As Integer) AsBoolean judge = (N Mod 17 = 0 And N Mod 37 = 0)   End Function   Private Sub Form_Click() Dim i As Integer For i = 1000 To 2000 If judge(i) Then Print i
求 2000 以内能被 17 整除的最大正整数
weixin_44659084的博客
12-07 3571
s=[] for i in range(17,2000): if i%17==0: s.append(i) M=max(s) print(M) ########### for i in range(2000, 17,-1): if(i%17==0): print(i) break
能同时被17和37整除的整数
lixiang315的专栏
04-24 552
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
计算1~100之间，能被3整除但是不能被7整除的数的和（C语言）
weixin_30411997的博客
11-29 1万+
#include<stdio.h> int main(agrc *agrv) { int n,i; int sum=0; scanf("%d",&n); for(i=1;i<=n;i++){ if(i%3==0&&i%7!=0){ sum+=i; } } printf("%d\n",sum); } 转载于:https:/...
JS实现1000以内被3或5整除的数字之和
10-22
今天在技术群里看到一道这样的提：求1000以内被3或5整除的数字之和。小编把我的解决办法分享到脚本之家平台，供大家参考
1至100能被7整除的数 C#
11-14
1至100能被7整除的数，C#小练习
isodd：行人奇偶校验器：对于不能被 2 整除的任何数字 MATLAB 类的整数，ISODD 返回 TRUE-matlab开发
06-01
ISODD 为数值数组的成员 (N) 返回 TRUE，其中- 在±bitmax的范围内- 是整数，使得 N == fix(N) - 是不能被 2 整除的整数 与使用 REM/MOD 的典型计算方法不同， ISODD 为数字生成一个无效标志，它们是1) 不是整数2) ...
python完成FizzBuzzWhizz问题(拉勾网面试题)示例
12-24
4. 学生报数时，如果所报数字同时是两个特殊数的倍数情况下，也要特殊处理，比如第一个特殊数和第二个特殊数的倍数，那么不能说该数字，而是要说FizzBuzz, 以此类推。如果同时是三个特殊数的倍数，那么要说...
1000~2000之间能同时被17和37整除的数的编程
guopiaoyun2012的专栏
05-31 1294
代码编写： Function  Judge  (N  as  Integer)  as  Boolean Judge   =N  Mod  17*37=0 End  Function   Private  Sub  Command1_() Dim  i  as  Integer For  i=1000  To   2000 If  Judge  (i)  then Private
1000—2000能同时被17和37整除的数
萧羽翎钰
05-25 424
1000—2000能同时被17和37整除的数 (2012-04-17 20:49) [编辑] [删除]
Python 计算从1到1000内所有能被3或17整除的数的并输出，计算输出它们的和
热门推荐
alouhahaha的博客
01-18 3万+
Python 计算从1到1000内所有能被3或17整除的数的并输出，计算输出它们的和
【C语言】用三种循环语句 计算1到1000之间能被2或3整除的数的总和
m0_63416413的博客
11-03 5979
#include<stdio.h> int main() { int s=0, i; for (i = 1; i <= 1000; i++) { if (i % 2 == 0 || i % 3 == 0) s += i; } printf("s=%d", s); return 0; } #include<stdio.h> int main() { int i=1, s = 0...
编写程序，输出在1~3000之间能被17整除的最大数值
12-14 6176
--编写程序，输出在1~3000之间能被17整除的最大数值 DECLARE @max int,@i int select @i=3000,@max=0 while @i>=1 begin if @i%17=0 --注意while和if等循环都没有括号()把循环条件包围起来 begin set @max=@i --注意赋值语句不是@max=@i,而是set @max=@i,前面必须加
实现1000到2000内所有能同时被17和37整除的数
songyuexiang1的专栏
05-26 759
一 实验目的 实现1000到2000内所有能同时被17和37整除的数。 二 实验内容 打开vb6.0正式版之后，直接在代码窗口输入以下语言：   Private Function judge(N As Integer) As Boolean judge = (N Mod 17 = 0 And N Mod 37 = 0 End Function   Private Sub Form
计算机
renyaruwen的专栏
05-29 197
Private Function judge(N As Integer) As Boolean judge = (N Mod 17 = 0 And N Mod 37 = 0)   End Function   Private Sub Form_Click() Dim i As Integer For i = 1000 To 2000 If judge(i) Then Print
判断并输出1000到2000之间能同被17和37整除的的数
sunqingxue的专栏
05-22 1622
代码： 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      L
基于springboot+mybatis实现的学生管理系统
最新发布
08-14
springboot 但功能包含(学生，教师，管理员),项目基于springboot2.1.x实现的管理系统。如果你是spring boot初学者，那么此项目非常适合你。如果喜欢，请随手给个star，谢谢。 编译环境 ： jdk 1.8 mysql 5.5 tomcat 7 框架 ： springboot2.0 mybatis jar包管理工具： Maven 编译器 ： IDEA 系统功能 : 学生信息管理 班级信息管理 教师信息管理 课程信息管理 选课信息管理 考勤信息管理 请假信息管理 成绩信息管理 适用人群：学习不同技术领域的小白或进阶学习者；可作为毕设项目、课程设计、大作业、工程实训或初期项目立项。
c语言输出1到1000内能同时整除3和5的数
03-01
C语言输出1到1000内能同时整除3和5的数有15个，分别是15，30，45，60，75，90，105，120，135，150，165，180，195，210，225，240，255，270，285，300，315，330，345，360，375，390，405，420，435，450，465，...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值