求10个数中的最大数算法和框图

10个数存到数组里，比如是a（9）,遍历一下数组，找出最大的数。
程序框图在这里不好画呢

b=a(0)
for i=1 to 9
if a(i)>b then b=a(i)
next
print b

又没叫排序，干什么要冒泡啊？
程序框图这也没法写啊~~~~
Dim arr(1 To 10) As Single

Private Sub Command1_Click()
Dim max As Single
Dim i
max = arr(1)'10个数中的任意一个都可以
For i = 1 To 10
If max < arr(i) Then
max = arr(i)
End If
Next
Text1 = max
End Sub

Private Sub Command2_Click()
Text2 = ""
Dim i As Integer
For i = 1 To 10
mm = InputBox("请输入第" & i & "个数", "输入第" & i & "个数")
arr(i) = Val(mm)
Text2 = Text2 & " " & arr(i)
Next
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = "这里显示最大的数"
Command1.Caption = "开始"
Command2.Caption = "输入"
Command3.Caption = "退出"
E