繁體中文
当前位置：首页 > 信息世界 > 程序源码 > 详细内容
『vb』十进制数n的各位数字之和
发布时间：2009/7/5  阅读次数：1794  字体大小: 【小】 【中】【大】

Option Base 1
Private Sub Form_Click()
Dim a As Long
Dim sum As Integer, i As Integer, nums(5) As Integer, p As Long
n = CLng(Val(InputBox("输入一个1到5的整数", "输入")))
p = n
For i = 5 To 1 Step -1
nums(i) = n \ 10 ^ (i - 1)
n = n - nums(i) * 10 ^ (i - 1)
Next i
Print p; "的各位数字为：";
For i = 5 To 1 Step -1
Print nums(i);
sum = sum + nums(i)
Next i
Print "各位数字总和为："; sum
End Sub

  

上一篇：『vb』判断是否是回文 下一篇：『vb』十进制数转化为二进制数
我要评论
  • 匿名发表
  • [添加到收藏夹]
  • 发表评论：(匿名发表无需登录，已登录用户可直接发表。) 登录状态：未登录
最新评论
所有评论[0]
    暂无已审核评论!
本栏最新发布
本栏热门信息
 
 版权声明     关于本站      在线留言       登陆管理      个人博客   
 『辰桦网络』. All Rights Reserved
Station construction time: on April 4, 2006