作业帮 > 综合 > 作业

输入一个十进制整数,分析它是几位数,并求其各位数数字之和vb

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/14 17:59:05
输入一个十进制整数,分析它是几位数,并求其各位数数字之和vb
vb
Private Sub Command1_Click()
Dim a As String
Dim sum As Integer
Dim i As Integer
sum = 0
a = InputBox("输入整数")
For i = 1 To Len(CStr(Val(a)))
sum = sum + Val(Mid$(a,i,1))
Next
MsgBox a & "是" & Len(a) & "位数 各位数之和:" & sum
End Su