vb求出100到999之间所有的水仙花数

#include#includevoidmain(){intcount=0,i,m,n;for(m=2;m

5035095215235415475575635695715775875935996016076136176196316416436476536596616736776836917017097197

dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext

fori=100to500ifimod5=4andimod7=2thensum=sum+1nextprintsum再问：这是完整的吗我是新手不好意思麻烦一个完整的要直接刻通过的再答：将它放入按钮事件即

dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum

PrivateSubCommand1_Click()Fori=100To999IfLeft(i,1)=Right(i,1)ThenPrintiNextEndSu

代码如下:运行条件:form1上有一个文本框,名称text1,一个按钮,名称command1运行结果显示在text1里面PrivateSubCommand1_Click()DimiAsIntegerM

PrivateSubCommand1_Click()Fori=100To999IfLeft(i,1)=Right(i,1)ThenPrinti;n=n+1IfnMod10=0ThenPrintEndI

设置了没5个换行PrivateSubBcompute_Click()t=0Fori=1To12260If(iMod3=0)And(iMod7=0)And(iMod9=0)ThenTresult.Tex

PrivateSubCommand1_Click()Fori=3To100Forj=2ToSqr(i)IfiModj=0ThenExitForNextIfj>Int(Sqr(i))Thens=s&i&

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

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

'10个数相乘?PrivateSubCommand1_Click()Dimi,nn=1Fori=1To10n=n*iNextMsgBoxnEndSu

sum=0fori=1to100if(imod3)thensum=sum+inextiprintsum

在窗体上添加三个文本框,和一个按钮.在按钮的单击事件中写:privatesubcommand1_clickdimsumasinteger'和dimcountasinteger'个数sum=0count

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

满足除3余2,除5余3条件的数符合公式15n+8（n是整数）,所以可用以下代码：PrivateSubCommand1_Click()n=0:m=0:k=8Print"满足条件的数有：";DoWhile

Fori=100To999IfiMod10=3AndiMod7=0ThenPrintiEndIfNexti

#include#includevoidmain(){inti,j,sum=0,s;for(i=3;i{s=sqrt((double)i);for(j=2;j{if(i%j==0)break;}if(

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