VB求一个整数的各位上的数字之和的代码

c++版的#includeusingnamespacestd;intmain(){intnum;cout

#includeintGetNumber(intn)//用递归来实现很简单{intsum=0;if(n/10!=0){\x09sum+=GetNumber(n/10);}sum+=n%10;retur

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

代码如下：PrivateSubForm_Click()DimaAsString,sAsInteger'定义变量s=1'初始化数据a=Val(InputBox("输入数值","数据输入"))'对变量赋值

PrivateFunctionSum(ByValnAsLong)AsIntegerDimiAsIntegerDimsAsStrings=Trim(Str(n))Fori=1ToLen(s)Sum=Su

#includemain(){intn,i,s=0,sum=0;printf("请输入一个整数：");scanf("%d",&n);i=n;while(i!=0){s+=(i%10)*(i%10)*(

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

创建两个text控件和一个command按钮控件再输入以下代码PrivateSubCommand1_Click()Fori=1ToLen(Text1.Text)a=Mid(Text1.Text,i,1

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

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

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

一个很诡异的方法：Sum=0a=InputBox("请输入一个正整数")Fori=1ToLen(a)Sum=Sum+Val(Mid(a,i,1))Next

DimxAsIntegerDima,b,c,dx=1234a=x\1000Mod10b=x\100Mod10c=x\10Mod10d=xMod10Printa,b,c,d与楼上相比,允许原始数字大于或

给你两段代码,一个是过程,一个是自定义函数.Subabc()DimxAsIntegerx=InputBox("输入一个整数")Fori=1ToLen(x)k=k+Mid(x,i,1)^2NextIfI

如该数为m则其十位数为a=m/10整个位数为b=m/10取余

学到循环也能看懂#include<stdio.h>int main(){\x09int n,s=1;\x09scanf("%d",&n);\

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

subtest()dimii=textbox1.valueif(imod2=0)thenlabel1.caption=“偶数”eslelabel1.caption="奇数"endifendsubtex

#includevoidmain(){intn,sum=0,digit=0;scanf("%d",&n);while(n!=0){sum+=n%10;digit++;n/=10;}printf("每位

这个应该是用编程的吧,给你c++代码#includeusingstd::cout;usingstd::cin;usingstd::endl;intmain(){intnum=0;//需要输入的整数in