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

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 Module

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/v74ssq4q.html