在窗体上添加一个按钮,加入如下代码“ 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