30分赏 VB求最大值——任一五位数中求出其最大值最小值

题目

30分赏 VB求最大值——任一五位数中求出其最大值最小值
00000-99999,求出任一个五位数中的最大的哪一个数及最小数,请附完整代码,
tc_mcgrady 你的理解是对的!
这五位数由abcde组成
for a=0 to 9
for b=0 to 9
………………
for e=0 to9
要你们帮我挑出最大的,最小的,因为我后面的的程序还要用到,这样说你们应该明白了,因为目前有些朋友已经达到我先前的要求了.

答案

Private Sub Form_Load()
Show
aa:
shuzi = InputBox("请输入五位数")
If Len(shuzi) = 5 Then
Dim a(4),maxnum
maxnum = 0
For i = 0 To 4
a(i) = Mid(shuzi,i + 1,1)
If maxnum < a(i) Then maxnum = a(i)
Next
Print shuzi & "的最大数字是：" & maxnum
Else
MsgBox "输入错误,请输入五位数"
GoTo aa
End If
End Sub