编程求某一正整数各位数字之和,并用msgbox输出
答案:1 悬赏:80 手机版
解决时间 2021-11-28 16:25
- 提问者网友：暮烟疏雨之际
- 2021-11-28 01:01
编程求某一正整数各位数字之和,并用msgbox输出
最佳答案
- 五星知识达人网友：舊物识亽
- 2021-11-28 02:40
Private Sub Command1_Click()
a = CLng(InputBox("请输入一个正整数："))
a1 = a
s = 0
While a > 0
s = s + a Mod 10
a = a 10
Wend
MsgBox a1 & "中所有数字的和＝" & s
End Sub
a = CLng(InputBox("请输入一个正整数："))
a1 = a
s = 0
While a > 0
s = s + a Mod 10
a = a 10
Wend
MsgBox a1 & "中所有数字的和＝" & s
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯