求输入一个三位数，输出其各位数的和。在VB.NET中如何实现？

来源：百度知道编辑：UC知道时间：2024/09/21 20:42:57

Module Module1
Sub Main()
...?
end sub
end module
要求输入的数字第一位不为0
要求输入非数字时给出提示
要求输入的数字非三位数时给出提示

谢~~谢

Module Module1

Sub Main()
Dim num As String, msg As String = ""
Dim err As Boolean = False

Console.Write("请输入一个三位数：")
num = Console.ReadLine

If Not (IsNumeric(num)) Then
msg = "输入非数字" & Chr(13) & Chr(10)
err = True
End If

If Left(num, 1) = "0" Then
msg = msg + "首位数字为0" & Chr(13) & Chr(10)
err = True
End If

If Len(num) <> 3 Then
msg = msg + "数字非三位数" & Chr(13) & Chr(10)
err = True
End If

If err = True Then
Console.Write(msg)
Console.ReadKey()
Else
Console.WriteLine(num)
Console.ReadKey()
End If

End Sub

End Modul

编一个程序，输入一个三位数，在窗体打印输出其个位、十位、百位数求个c语言答案，打印出所有的“水仙花数”。水仙花数是一个三位数，其各位数字的立方和等于该数本身，一个三位数，其各位数字的立方和等于此数本身 C语言中，输入任意一个三位数，怎样将其各位数字反序输出打印500以内的“水仙花数”。水仙花数是一个三位数，其各位数立方和等于该数的本身。其程序代码如何编写一个例如输入一个三位数123使其输出结果是321的程序输入一个数,如果该数是三位数并且是13的倍数,输出OK,否则输出NO.编程输入一个三位数的整数,判断其是否是水仙花数题目：打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。