vb 求1到n中能被3或7整除的数
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/05 18:36:24
subcommand1_click()dimiasinteger,sasintegers=0fori=1to100if(imod3=0andimod7=0)thens=s+inextmsgboxsen
#include/*用for循环实现*/voidmain(){\x09intn;\x09intm;\x09printf("pleaseinputn\n");\x09scanf("%d",&n);\x0
dimnum3,num7asintegerfori=1to1000ifimod3=0thennum3=num3+1endififimod7=0thennum7=num7+1endifnext最后num
iTot=0Fori=1To100IfiMod5=0OriMod7=0TheniTot=iTot+iNextiPrintiTot结果是:1680【由于字数限制,去除了Sub,及变量定义】
dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext
intmain(void){\x09intsum=0,i;\x09for(i=1;i
3再答:6再答:9再答:12再答:12再答:15再答:18再答:21再答:24再答:27再答:30再答:33再答:36再答:39再答:42再答:45再答:48再答:51再答:54再答:57再答:60再
int sum(int n){ List<int> list = new List
设置了没5个换行PrivateSubBcompute_Click()t=0Fori=1To12260If(iMod3=0)And(iMod7=0)And(iMod9=0)ThenTresult.Tex
for(x=n;x>=3;x--)'判断的最小值为3,小于3的值就没有意义{if(!(xmod3)or!(xmod7))'被3除无余数或被7除无余数count+=x;}x=n;while(x-->=4
先分析一下逻辑,1到2008的自然数,先找能被2整除的数的集合设为A,在A中的数满足不能被3整除或不能被7整除中的一个条件就算满足题意.翻译成逻辑语言为:设i为一到2008中的自然数,如果i满足(i%
PrivateSubCommand1_Click()Dimi,sAsIntegers=0Fori=1To100IfiMod3=0OriMod7=0Thens=s+1EndIfNextiPrintsEn
PrivateSubCommand1_Click()s=0Fori=100To200IfiMod3=0Thens=s+iEndIfNextiText1.Text=sEndSu
1填写imod6=0,指的是余数要等于0;2填写S,表示要把S输出.
PrivateSubCommand1_Click()DimsAsIntegerFori=100To200IfiMod3=0AndiMod70Thens=s+iNextiPrint"所求的和为:"&sE
Dim i, j j = 0 &
Fori=100To999IfiMod10=3AndiMod7=0ThenPrintiEndIfNexti
能被3整除的数字共有:1000/3=333个能被5整除的数字共有:1000/5=200个能被7整除的数字共有:1000/7=142能同时被7和5整除的数:1000/35=28能同时被7和3整除的数:1
PrivateSubCommand1_Click()Fori=iTo100IfiMod5=0OriMod7=0Thens=s+iEndIfNextiPrint"能被5或都7整除的数之和为"&sEndS
一个for嵌套一个if,注意n要定义为int,倒数用1.00/n即可再问:哦哦,谢啦