VB 计算一个三位数的最大数减最小数的值

谁能告诉我一下输入一个三位数，计算出此三位数中的最大数减最小数的值，代码怎么写 谢谢了

---

一楼把意思搞错了，应该是这样
dim n,a,b,c,t as integer
n=val(inputbox("输入一个三位数："))
print "输入的三个数是："&n
a=n\100 '百位拦前腊
b=(n\10) mod 10 ‘十位简滑
c=n mod 10 ’个位
if a>b then
t=a:a=b:b=t
end if
if a>悔皮c then
t=a:a=c:c=t
end if
if b>c then
t=b:b=c:c=t
end if
print "其中最大的数是：";c;"最小的数是：";a
print "最大数减最小数的值是";c-a

---

Private Sub Command1_Click()
line1:
a = InputBox("任意1个三位数字", "请输入")
If Trim(a) = "洞茄" Or Len(a) <> 3 Then MsgBox "输入错误，请重新输入世清。": GoTo line1
Max = Left(a, 1)
Min = Left(a, 1)
For n = 1 To Len(a)
If Min > Mid(a, n, 1) Then Min = Mid(a, n, 1)
If Max < Mid(a, n, 1) Then Max = Mid(a, n, 1)
Next
MsgBox "该三位数中最大减最小的值为：搜颤前" & Max - Min
End Sub

---

dim a,b,c,temp
a=val(inputbox("仔郑输入第一个数："))
b=val(inputbox("输入第二个念轮颂数："))
c=val(inputbox("输入第三个数："))
print "输入的三个数是：";a;b;c
if a>b then
temp=a:a=b:b=temp
end if
if a>c then
temp=a:a=c:c=temp
end if
if b>c then
temp=b:b=c:c=temp
end if
print "其中最大的桐信数是：";c;"最小的数是：";a
print "最大数减最小数的值是";c-a

---