编写程序,输入一个正三位数,输出各位数字的和。如,输入123,输出6。
2个回答
展开全部
Excel VBA的列子:
Public Function QiuHe(LookupRange As Range)
Dim InputValue, ReturnValue As Integer
InputValue = LookupRange.Value
ReturnValue = 0
If Len(LookupRange) <> 3 Or TypeName(InputValue) = "String" Then
MsgBox "not 3 digits integer, program stop!"
Exit Function
End If
ReturnValue = Application.Sum(Int(InputValue / 100), (Int(InputValue / 10) - Int(InputValue / 100) * 10), (InputValue - Int(InputValue / 10) * 10))
QiuHe = ReturnValue
End Function
Public Function QiuHe(LookupRange As Range)
Dim InputValue, ReturnValue As Integer
InputValue = LookupRange.Value
ReturnValue = 0
If Len(LookupRange) <> 3 Or TypeName(InputValue) = "String" Then
MsgBox "not 3 digits integer, program stop!"
Exit Function
End If
ReturnValue = Application.Sum(Int(InputValue / 100), (Int(InputValue / 10) - Int(InputValue / 100) * 10), (InputValue - Int(InputValue / 10) * 10))
QiuHe = ReturnValue
End Function
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询