编写vba程序,从键盘中输入一个正整数,计算该整数中个数字的和,并将结果输出到立即窗口中
1个回答
展开全部
Sub xx()
x = InputBox("请输入一个正整数：")
For i = 1 To Len(x)
n = n + Val(Mid(x, i, 1))
Next
Debug.Print n
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
