V B程序代码用inputbox函数任意输入一个三位整数m，输出这个三位数各位数字之和s以及这个三 15
VB程序代码用inputbox函数任意输入一个三位整数m，输出这个三位数各位数字之和s以及这个三位数的反序数n...
V B程序代码用inputbox函数任意输入一个三位整数m，输出这个三位数各位数字之和s以及这个三位数的反序数n
展开
1个回答
推荐于2018-05-06 · 知道合伙人软件行家
yfcp
知道合伙人软件行家
采纳数：1748
获赞数：5545
有多年网站建设相关工作经验。熟悉ASP、ASP.net、VB、JavaScript、HTML等语言和CSS、Ajax等相关技术。
向TA提问 私信TA
关注
![]()
展开全部
vb代码如下：
Private Sub Command1_Click()
Dim m As Long, s As Long
m = InputBox("请输入一个三位数整数")
If Not IsNumeric(m) Then MsgBox "你输入的不是数字": Exit Sub
If m < 100 Or m > 1000 Then MsgBox "你输入的不是三位整数": Exit Sub
For i = 1 To Len(m) - 1
s = s + CInt(Mid(m, i, 1))
Next
Print "数字" & m & "的各位之和：" & s
Dim a As Long, b As Long, c As Long
a = m \ 100
b = (m - a * 100) \ 10
c = m Mod 10
Print "数字" & m & "的反序：" & c & b & a
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
