VB问题,编程,点按钮(并播放指定的声音文件),排列11个text里数字的从大到小,并在label1显示名次和对应的数

窗体上放一个Text1，Index属性设为0
一个Label，Caption设为空
一个Command
声音文件为Wav 放到保存的程序目录下，放别的地方要改下代码
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Command1_Click()
Dim tmp(0 To 10)
Dim i, j As Integer
For i = 0 To 10
tmp(i) = Val(Text1(i).Text)
Next i
For i = 0 To 9
For j = i + 1 To 10
If tmp(i) < tmp(j) Then
t = tmp(i): tmp(i) = tmp(j): tmp(j) = t
End If
Next j
Next i
For i = 0 To 10
Label1.Caption = Label1.Caption & "第" & i & "： " & tmp(i) & Chr(13)
Next i
sndPlaySound App.Path + "\chimes.wav", 0
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 10
Load Text1(i)
Text1(i).Visible = True
Text1(i).Top = Text1(i - 1).Top + 300
Next i
End Sub