[VB6 ] 製作排序的問題

[lunacyDK (好無聊 囧)]

老師出的作業
題目：設計一個表單，可供輸入２０個數字，並有"由小到大"，"由大到小"
的排序功能

目前只會這種
Private Sub Command1_Click()
Dim score(20) As String
Dim tmp As String
Dim val1 As Integer
Dim val2 As Integer
Dim i As Integer
Dim j As Integer

For i = 0 To 19
score(i) = InputBox("請輸入數值,以下列格式輸入", "排列大小", "")
Next

For i = 0 To 19
For j = 0 To 19 - i
val1 = Val(Mid(score(j), InStr(1, score(j), ",") + 1))
val2 = Val(Mid(score(j + 1), InStr(1, score(j + 1), ",") + 1))

If val1 < val2 Then
tmp = score(j)
score(j) = score(j + 1)
score(j + 1) = tmp
End If
Next
Next

For i = 0 To 19
Print score(i)
Next

End Sub




有想過用２０格text來輸入數字
可是在來排序就沒頭緒＠＠
請問有大大　能教教我嗎

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 218.163.164.2
推 dunn:把text弄成物件陣列