[VB6 ] 製作排序的問題
老師出的作業
題目：設計一個表單，可供輸入２０個數字，並有"由小到大"，"由大到小"
的排序功能
目前只會這種
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
推
01/03 03:10, , 1F
01/03 03:10, 1F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
