在窗体上添加一个按钮,加入如下代码“
Private Sub Command1_Click()
Dim N '因为你说的是任意正整数,所以没有给变量指定变量类型
Dim I As Integer
Dim L As Integer,S As String
Dim M As Integer
N = InputBox("请输入任意一个正整数") '此处假设输入的内容是符合正整数要求的,不再另外做判断
S = CStr(N)
L = Len(S) '获取N的长度
For I = 1 To L
M = M + Mid(S,I,1)
Next
MsgBox N & "的各位数字之和为：" & M
End Su
最新问答： 数学题求讲解两只汽车运输队 一队和二队汽车辆数的比是5：3 如果从一队调14辆车到二队 一队与二队车辆数的比是1：2 原 画一个半径是3厘米的圆,再在圆中画一个圆心角是60度的扇形,这个扇形面积占圆的面积的几分之几? （2012•自贡）如图所示的电路中，闭合开关后两盏灯都可能发光的是（ ） （1）一根竹竿插入一水池底部的淤泥中,竹竿的入泥部分占全长的1/5,淤泥以上的入水部分比入泥部分短1/2米,露出水面部分 求高人指点这个公式哪里有错MA5:=MA(CLOSE,5); MA10:=MA(CLOSE,10); 均线差:MA5-M 一顶金冠的质量是0.5kg,体积是30cm的三次方,试用三种方法说明这顶皇冠是否使用纯金做的 如果用某个理想的简单机械做功，人对机械做了300J的功，机械对外所做的功为______J．如果这个机械是实际机械，它的效 下面有关动量守恒和机械能守恒的说法中 正确的是 轻舟已过万重山.成语必须成语 工程队3天修完一段路,第一天修的是第二天的10分之9,第三天修的是第二天的5分之6倍,已知第三天比第一天多修270米,问 在三角形ABC中,角C=90,AC=4,BC=3,把三角形ABC绕直角顶点C旋转一圈,斜边AB的重点M的轨迹是 did you ( ) the station on time?A get B arrive C reach D arr 当单质X能从盐溶液中置换出单质Y,有关于书中错误的是 关于冠词的几个问题1.I don`t know who invented_____telephone,but it is 阅读下面的材料，然后用一句话概括其中心意思，不超过20字。 一氧化碳和氧气在什么条件下会生成二氧化碳 现代汉语中给予类动词的介绍 数学中“大于大的,小于小的, 下坠的近义词、反义词 A.B两地之间有2条路线.某人骑自行车9km/h的速度沿路线一由A地去B地,然后以8km/h的速度沿路线二由B地返回A地
