先写两个数列.PublicSubaa()DimabAsStringDimi,jAsIntegerDima,bAsInteger'素数序列Fori=1To1000Forj=1ToiIfiModj=0Andj1AndjiThenExitForEndIfNex...
'水仙花'二位数Fori=1To9Forj=0To9Ifi*10+j=i^2+j^2Thenab=ab&""&i^2+j^2NextNext'三位数ab=""Fori=1To9Forj=0To9Fork=0To9Ifi*100+j*10+k=i^3+j^3+k^3Thenab=ab&""&i^3+j^3+k^3NextNextNextMsgBoxab