vb6程序(能被5整除在0~200中)-搜答案-百度作业网

#includevoidmain(){inta,sum=0;for(a=1;a

30n+1316191121151181211241271301

上面犯了一个错误算被5整除的数应该÷5,他÷4了可以被2整除的数：200÷2=100个可以被3整除的数:200÷3≈66个（去尾法）可以被5整除的数200÷5=40个可以被2、3整除的数200÷（2*

#includevoidmain(){inti,sum=0;for(i=0;i

SubMain()MsgBoxFunc(100,2,5)'按照要求写的例子EndSubRem参数(最大值,被整除的数的数组)FunctionFunc(n&,ParamArrayx())Dimi&,b&

PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=1To3000IfiMod17=0OriMod23=0Then_n=n+1NextPrin

dim sum as longdim i as integerfor i = 2 to 1

#include<iostream.h>void main(){ int n; &nbs

for(inti=1;i再问：有没有完整一点的啊再答：这就是核心了，嵌入主程序就可以运行了因为我学得是C++输入输出有点不一样#includeusingnamespacestd;intmain(){f

-7再问：书上的答案是-6再答：Int(-4.8)*6=-30-30\9=-3Fix(-4.8)=-4-3-4=-7书上也会有错的时候，特别是教材，编写的人并不懂编程再问：-30\9=-3为什么是-3

1000之间能被2整除的数个数：1000÷2=5001000之间能被3整除的数个数：[1000÷3]=3331000之间能被5整除的数个数：1000÷5=200既能被2整除又能被3整除的数个数：[10

fori=1to100ifimod3=0orimod5=0thenlabel1=label1&i&""next

#includemain(){inti=100;for(i=100;i

cleari=0dowhilei

sum没有初始化flostsum=0

dimsum%,i%fori=1to40ifimod5=0thensum=sum+inextprintsum再问：mod什么意思啊没怎么听课不懂啊谢谢啊

分析：因为凡是被3和5整除的正整数都是15的倍数,而1000＝15×66＋10,因此,1000以内一共有66个这样的正整数．引入变量a表示输出的数,引入计数变量n,计数变量n可以从1～66,反复输出a

Private Sub Command1_Click() Dim j As Long, x&n

程序:n=1s=0DOIFnMOD5=0s=s+nENDIFn=n+1LOOPUNTILi>100PRINTsEND这是我按你的要求写的,恩．．．你自己检查下吧

#includeusingnamespacestdvoidmain(){intm,i;for(i=109;i再问：这个dowhile程序会不会

vb6程序(能被5整除 在0~200中)