求高人做个VB程序有循环的关于体检

如题：通过inputbox函数输入10个数到数组a中，把这10个数按从大到小的次序进行排列，排列前后的情况在两个文本框中显示出来
Private Sub Form_Load()
Dim a(1 To 10) As Double, temp As Double
Dim i%, j%
Dim b$
Rem 用InputBox输入10格数到数组a
For i% = 1 To 10
a(i%) = InputBox("a(" & i% & ")=", "输入")
Next i%
Rem 用冒泡法对数组a从大到小排序
For i% = 1 To 9
For j% = i% + 1 To 10
If a(i%) < a(j%) Then
temp = a(i%)
a(i%) = a(j%)
a(j%) = temp
End If
Next j%
Next i%
Rem 用a(1)到a(5),每两个数之间用两个空格隔开，组成字符串b$
b$ = a(1)
For i% = 2 To 5
b$ = b$ & " " & a(i%)
Next i%
Rem 用text1显示b$
Text1.Text = b$
Rem 用a(6)到a(10),每两个数之间用两个空格隔开，组成字符串b$
b$ = a(6)
For i% = 7 To 10
b$ = b$ & " " & a(i%)
Next i%
Rem 用text2显示b$
Text2.Text = b$
End Sub