你没有要求输入输出位置
以下代码可以达到你的要求
有其他要求就自己改代码吧
Sub 数字串求和()Dim aa = InputBox("请输入数字", 1)Dim nn = Len(a)Dim x As IntegerFor i = 1 To nx = x + Mid(a, i, 1)NextMsgBox "数字串之和为：" & xEnd Sub
已上传附件
