vb求100-1000之间共有多少个整数满足他的各位数字之和为5,并显示这些数

PrivateSubCommand1_Click()Dima(1To20)Dimmax,ave,min,summax=0min=300Print"产生的20个数为:";Fori=1To20a(i)=I

subcommand1_click()dimiasinteger,sasintegers=0fori=1to100if(imod3=0andimod7=0)thens=s+inextmsgboxsen

Dimn,x,r,sAsSinglen=2s=0DoWhilen再问：能说一下算法的思路吗？再答：首先1不是素数,就用枚举将2到1000的每个数列举出来,再逐个检验,即从2到n/2一一举例，判断是否能

PrivateSubForm_Load()DimstrAsStringFori=100To200IfiMod3=2AndiMod5=3AndiMod7=2Thenstr=str&""&iEndIfNe

dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext

PrivateSubCommand1_Click()RandomizeDima(10)AsInteger,imasasinteger,iminasinteger,Averageasintegerima

Sum=0Fori=100To300IfiMod21=0ThenSum=Sum+iEndIfNext==>优化一点：Sum=0Fori=100To300IfiMod21=0ThenSum=Sum+ii

PrivateSubCommand1_Click()s=0Fori=100To200IfiMod3=0Thens=s+iEndIfNextiText1.Text=sEndSu

1填写imod6=0,指的是余数要等于0；2填写S,表示要把S输出.

sub平方和()dimsumdimiaslongsum=0fori=1to100sum=sum+i*inextiendsu

2500再问：过程，谢谢再答：1+3+5+...+9999+97+95+...+1(1+99)×50÷2=2500

nd*(b-a+1)+a;这样就会有小数出现的

dimiasintegerdimsumasintegersum=0fori=100to200step5ifimod30thensum=sum+inext

PrivateSubCommand1_Click()Fori=100To999IfIsPrime(i)Thenn=n+1Printi;IfnMod10=0ThenPrintEndIfNextiEndS

PrivateSubCommand1_Click()Dimoushu%,danshu%,sum%oushu=0danshu=0Fori=1To10Randomizesum=Int(Rnd*100)If

Fori=100To999IfiMod10=3AndiMod7=0ThenPrintiEndIfNexti

PrivateFunctionfact(n&)AsBoolean'错误1：参数n的数据类型应该与command1_click事件里的i类型一致Dims&'错误2：s的类型也应该是长整型（&）,你原来定

PrivateSubCommand1_Click()Fori=iTo100IfiMod5=0OriMod7=0Thens=s+iEndIfNextiPrint"能被5或都7整除的数之和为"&sEndS

楼上算法有问题,多了几个PrivateFunctionprime(nAsInteger)AsBoolean'返回值=True是素数,False不是素数DimkAsIntegerprime=TrueFo

Option ExplicitPrivate Sub Form_Load()RandomizeMe.AutoRedraw = TrueDim