vb从1到100挑出3的倍数和7的倍数,分别计算他们的个数-搜答案-智慧作业帮

(1)xMod3=0OrxMod7=0(2)CInt(Rnd*101)+100

1:12:1,23:1,34:1,2,45:1,56:1,2,3,67:1,78:1,2,4,89:1,3,910:1,2,5,1011:1,1112:1,2,3,4,6,1213:1,1314:1,

这个采用枚举算法：枚举的关键：一一列举,逐个检验一一列举：用循环逐个检验：用选择n3=0'存放3的倍数的个数n7=0'存放7的倍数的个数Fori=1To100ifiMod3=0Thenn3=n3+1i

3再答：6再答：9再答：12再答：12再答：15再答：18再答：21再答：24再答：27再答：30再答：33再答：36再答：39再答：42再答：45再答：48再答：51再答：54再答：57再答：60再

告诉你一个方法,把1到100的数列成这样：123456789······9798991003个数的和是3的倍数的情况有四种：1.三个数都在第一列里面34*33*32=359042.三个数都在第二列里面

1到100是5050,9的倍数的和是594,减去后就是4456

for(inti=1;i

1到100的和是是5050,9的倍数的和是594,减去后就是4456

3和5的最大倍数是945这三个数的数字和是3的倍数,且个位是0或5,满足条件的数最大是945.

（1）66+33=9966-33=33好不容易的,都有点怀疑你了

从1到100的自然数分成3类：第1类,除以3余1的,有34个；1,4,7,……,100.第2类,除以3余2的,有33个：2,5,8,……,98.第3类,3的倍数,有33个：3,6,9,……,99.不等

dimxasinteger,dimsumasintegerforx=1to100ifxmod3=0thensum=sum+xendifnextxprintsum

if(xmod3=0)and(xmod5=0)then

在窗口上建立一个按钮：FunctionTotal(Num1,Num2)AsString'Num1为奇数和'Num2为偶数和Fori=1To100IfiMod20ThenNum1=Num1+iElseN

先把1到200所有的数加起来1+2+...+200=20100把1到200中所有是2的倍数的数,即偶数加起来.2+4+..+200=10100把1到200中所有是3的倍数的数加起来.3+6+..+19

PrivateSubCommand1_Click()Dimm%,n%Fori=1To100IfiMod3=0Thenm=m+1IfiMod7=0Thenn=n+1NextiPrint"统计1~100中

先求出5和7的最小公倍数因为5和7互质,所以5和7的最小公倍数=35再用所给的范围（最大的数）÷最小公倍数,得到的商就是个数100÷35=2.30所以：有2个这是做这类题的方法,希望能给你带来帮助

从0,2,3,4,8中挑出四个数字组成一个四位数,既是2的倍数,又是3的倍数,这个四位数最小是（2034）最大是（8430　　）施主,我看你骨骼清奇,器宇轩昂,且有慧根,乃是万中无一的武林奇才.潜心修

PrivateSubCommand1_Click()Dimi%,j3%,j7%Fori=1To100IfiMod3=0Thenj3=j3+1IfiMod7=0Thenj7=j7+1NextPrint"

楼上推荐的程序有个问题.3*7*9应该写成7*9,否则会漏掉63dimiasintegerdimjasintegerdimSasLongS=0fori=1to13230ifimodj=0thenS=S