输入一个三位数，分别求出百，十，个位数各为多少？vb语言程序设计

private sub command1_click()
a=val(inputbox("输入一个三位数"))
if a>=100 and a<=999 then
print "百位数: "; a\100
print "十位数: "; a\10 mod 10
print "个位数: "; a mod 10
else
print a; "不是三位数！"
end if
end sub

Private Sub Command1_Click()
Dim a, b, c As Single
If Val(Text1) < 100 Or Val(Text1) > 999 Then
MsgBox "请输入一个3位数"
Else
a = Mid(Val(Text1), 1, 1)
b = Mid(Val(Text1), 2, 1)
c = Mid(Val(Text1), 3, 1)
Sum = Val(a) + Val(b) + Val(c)
Print Sum
End If
End Sub
还有什么不清楚的可以继续问

k=987
NNN k,a,b,c
msg=CStr(k)+vbTab+"百位:"+CStr(a)+vbTab+"十位:"+CStr(b)+vbTab+"个位:"+CStr(c)
MsgBox msg

Function NNN(byval n,byref n100,byref n10,byref n1) 'n为待分析的数字，通过n100返回n的百位,n10返回十位,n1返回个位
'如果输入可能会有大于999的数字需要在开始的时候判断一下
n100=Int(n/100) '除以100再取整数就是百位
n=n-n100*100 '把n百位去掉,就是原来的n减去整百,以下依据这个规律
n10=Int(n/10)
n1=n-n10*10
End Function