VB如果一个三位正整数等于它的各位数的立方和,编写程序1求所有的水仙花数

#include <stdio.h>void main(){    int a,b,c,d,e;  

PrivateSubForm_Click()Sum=0Fori=100To999s=Trim(Str(i))IfVal(Left(s,1))+Val(Right(s,1))+Val(Mid(s,2,1

先把产生的三个随机数保存在一个数组中,输出该三个随机数,然后将数组中的逆序并输出,

那个叫水仙花数：abc=a^3+b^3+c^3#includevoidmain(){intt;inta,b,c;intx,y;for(t=101;t

a=123b=(amod10)*100+(a\10mod10)*10+a\100再问：这样就行了么？能不能换换百位十位个位方式表达？再答：a=123x=(amod10)*100'百位y=(a\10mo

subtt()dimi%fori=100to999ifval(left(i,1))+val(right(i,1))+val(mid(i,1,1))=10thenprintinextiendsu

privatesubcommand1_click()dimi,j,nn=val(inputbox("n="))ifIsPrime(n)thenprintn&"是素数."elsefori=n+1ton+

DimnAsInteger,iAsIntegerDimflgAsBooleann=Val(Text1.Text)n=n+1Fori=2ToSqr(n)IfnModi=0ThenExitForNexti

是这样的,你的P1、P2、P3确实应该放在循环里因为每次循环都是一个新的三位数,需要分别确定其百位数、十位数、个位数你这样将P1、P2、P3放在循环外面,由于最开始i=100,所以P1、P2、P3的值

?"水仙花数："m=100dowhilem

PrivateSubForm_Load()Fori=1To9Forj=0To9Fork=0To9Ifi+j+k=10ThenIf100*i+10*j+k99ThenMsgBox100*i+10*j+k

PrivateSubForm_Load()'函数'MID取字符串中间N个字符'调用格式mid(要取部分字符的字符串,要取的字符的位置,要取的字符的长度)'三位数的个位数就是mid(三位数,3,1)个位

三个位数分别循环dimbai,shi,geasintegerdimnum,sumasintegerforbai=1to8forshi=bai+1to9‘百位数小于十位数forge=bai+1to9’且

把你程序中的　　DimxAsinterger,　　改成：DimxAsinteger,就能运行了.运行结果是21750没有问题呀?!

#includevoidmain(){inti,j,k,n;intc=0;for(i=1;i

PrivateSubForm_Click()DimxAsStringDima%,b%,c%,y%x=InputBox("请输入三位数","提示框")IfLen(x)=3Thena=Val(Mid(x,

PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,dAsIntegera=Val(InputBox("输入三位整数"))b=I

需要2个文本框text和2个按钮command（一个计算一个清除）Dimx,a,b,kAsStringPrivateSubCommand1_Click()a=Val(Text1.Text)x=2Ifa

PrivateSubCommand1_Click()Fori=100To999IfiMod3=0Andi\10Mod10=5ThenPrinti;n=n+1IfnMod5=0ThenPrints=s+

Modulemodule3SubMain()DimnumAsIntegerDimiAsIntegerConsole.Write("请输入一个正整数：")num=Integer.Parse(Consol