在1到1000的正整数中,能被5整除,但不能倍7整除的数有几个?
#include void init() { int count = 0; for (int i = 1; i <= 300; i++) { if (i % 3 == 0 && i % 5 == 0) { count++; printf("%d
", i); } } printf("totalNum : %d
", count);}int main() { init();}
Private Sub Command1_Click()
Dim i%, n%, s%
n = Val(InputBox("n="))
For i = 1 To n
If i Mod 3 = 0 And i Mod 7 0 Then s = s + i
Next
在VB中，注释有2种方式：
1、以Rem关键字开头，并且Rem关键字与注释内容之间要加一个空格。注释可以是单独的一行，也可以写在其他语句行的后面。
2、使用一个撇号（'）来代替Rem关键字。若使用撇号，则在其他语句行使用时不必加冒号。
扩展资料：
制作应用程序安装盘等为用户提供了友好的集成开发环境，具体表现在：
可视化的设计平台：在使用传统的程序设计语言编程时，一般需要通过编写程序来设计应用程序的界面，在设计过程中看不见界面的实际效果。而在Visual Basic 6.0中，采用面向对象程序设计方法。
把程序和数据封装起来作为一个对象，每个对象都是可视的。开发人员在界面设计时，可以直接用Visual Basic 6.0的工具箱在屏幕上"画"出窗口、菜单、命令按键等不同类型的对象。
参考资料来源：百度百科-Visual Basic
1000÷5 = 200
在1到1000的正整数中,能被5整除的有：5*1、5*2、……5*200，共200个
又不能被7整除，即
200÷7 = 28，有5*7*1、5*7*2、……5*7*28这28个。
综上，在1到1000的正整数中,能被5整除,但不能倍7整除的数有200-28=172个
②
被除数相减，余数抵消
318-286=32 = 2*2*8
286-210=76 = 2*2*19
这个除数是32、76的公约数
因此
这个除数是2时，余数都是0（不符合余数是正整数）。
这个除数是4时，余数都是2。这个正整数是4.
在1到1千这1000个自然数中能被25整除的数有几个不能被25整除的又有几...
答：在1～1000中，25的最小倍数是它自身25最大倍数=1000÷25=40。所以一共有40个数能被25整除，剩下的960个数都不能被它整除。
在11000这1000个自然数中,有几个数不能被3,5,7任何一个数整除
答：能被5整除的有200个。能被7整除的有142个。能同时被3和5整除，也就是能被15整除的有66个。能同时被3和7整除，也就是能被21整除的有47个。能同时被5和7整除，也就是能被35整除的有28个。能同时被3、5、7整除，也就是能被105整除的有9个。那么能被3、5、7中任何一个整除的数就有333+...
写出求1至1000的正数中的3倍数的一个算法
答：解：则依题意有3k≤1000,(k为正整数），所以 k≤1000/3,即 k≤333(1/3)又因为n为正整数，即n可以取1，2，3，...，333.所以1到1000中，是3的倍数的数有333个。总结：解这类题基本方法都是先设好，比如5的倍数就设为5n,(n为正整数），接着用不等式解就可以了。
在1-1000中的自然数中能被13整除数共有多少个
答：这样的数为13n，n为正整数，据题意有：13n<1000 n<76.9 所以在1000内最大的能被13整除的倍数是76 所以在1000内能整除13的数依次为13的1到76倍额 所以总共有76个额
在一到一千的自然数中能被6或13整除的数过有几个
答：1000/6＝166.6...1000/13＝76.9...1000/78=12.8...166+76-12=230 在1到1000中，能被6或13整除的数共有230个。
vb编程:求在[1~1000]区间中的所有整数中能被3整除的数的个数及能被7...
答：private sub command1_click()dim i,a,b for i=1 to 1000 if i mod 3=0 then a=a+1 if i mod 7=0 then b=b+1 next print "1~1000中能被3整除的数的个数=" & a print "1~1000中能被7整除的数的个数=" & b end sub ...
在正整数20只1000之间能被13整除的数有多少个
答：1-1000之间能被13整除的数有：1000÷13=76个 1-20之间能被13整除的数有：20÷13=1个 20-1000之间能被13整除的数有：76-1=75个
在自然数1--1000中不能被11和13整除的数有___个
答：1000÷11=90…10，即自然数1--1000中能被11整除的数为90个，1000÷13=76…12，即能被13整除的数有76个；1000÷（13×11）=6…142，即自然数1--1000中能同时被11和13整除数有6个．1000-（90+76-6）=1000-160，=840（个）．即则在自然数1--1000中不能被11和13整除的数有840个．故...
在1~1000的自然数中,不能被7和13整除的数有几个
答：在1~1000的自然数中，能被7整除的数有142个，能被13整除的数有76个，能被7和13整除的数有10个，不能被7和13整除的数有1000－142－76＋10＝792
在1,2,...1000中有多少个正整数既不是2的倍数,又不是5的倍数
答：在1到1000中,是2的倍数的有1000/2=500个 是5的倍数的有1000/5=200个 既是2的倍数,又是5的倍数有1000/(2*5)=100个 所以 在1,2,...1000中有多少个正整数既不是2的倍数,又不是5的倍数 有1000-500-200+100=400个
