VB输入一个数,求各位数字和

PrivateFunctionFunc(ByValSAsString)AsByteIfLen(S)4ThenExitFunctionFunc=Val(Left$(S,1))+Val(Mid$(S,3,

Text1.text用于输入正整数Label1.Caption存放各位数字之和的计算结果计算事件Command1_ClickPrivateSubCommand1_Click()DimvalueAsLo

#include<stdio.h>int main(){int n,max=-1,s=0;scanf("%d",&n);while(n

#includeintmain(){intm[10],i,j=0,k;longn;scanf("%ld",&n);k=n;while(k>0){k/=10;j++;}i=j;while(i--){m[

PrivateSubCommand1_Click()a=cint(inputbox("输入一个四位数"))ifa9999thenmsgboxa&"不是四位数!":exitsubfori=1to4b=b

团队俊狼猎英#includeusingnamespacestd;intmain(){inta[10];inti,j;intb,k=100000;cin>>b;for(i=1;i再问：这个程序有好多错误

一种方法是写个方法求一个数字的各位只和,然后用while循环控制：publicintresult(intn){intr=0;while(n!=0){r+=n%10;n=n/10;}returnr;}i

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

varn,s:longint;beginread(n);s:=0;whilen0dobegins:=s+nmod10;n:=ndiv10;end;writeln(s);end.自创!

这个地方会是死循环for(i=0;;i++){if(a/pow(10,i)>=1){n++;}没有循环结束语句,那么什么时候会结束呢?也就是说下面的语句其实都没有执行.----------------

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

不是已经有人问过了吗?这里：根据3512174的顺序自己敲一下代码就是了.

#includeintmain(){intn,sum=0;printf("请输入一个整数：");scanf("%d",&n);while(n){sum=sum+n%10;n/=10;}printf("

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

PrivateSubCommand1_Click()DimxAsSinglex=Val(InputBox("请输入第"&i+1&"个所得分数："))Ifx>0ThenMsgBoxx+1/xEndIfE

Functiona(n)DimmAsLongm=n\2a=m*(m+1)EndFunction

clearinput"输入整数N:"tonn=abs(n)ifn>0\x05sn=len(alltrim(str(n)))\x05?"此数是个"+alltrim(str(sn))+"位数.各位数是："

'楼主您好!'在窗体上画一个按钮,一个文本框'代码如下：Option ExplicitDim intNumber1 As Long,&n

数字操作：varn,s:integer;beginreadln(n);s:=0;whilen>0dobegins:=s+nmod10;n:=ndiv10;end;writeln(s);end.字符串操

1.第一个空填in0.判断循环里面做了运算之后,剩下的这个in是不是已经为0了,否则的话,说明还有某位需要求和,累加