請問大大們排序問題..
ㄛ在5ㄍtext物件輸入數字..而後排序在label物件上..執行有問題
程式如下..請指教...3Q3Q3Q...
Private Sub Cmd_Click()
Dim num(5) As Integer
num(1) = Text1
num(2) = Text2
num(3) = Text3
num(4) = Text4
num(5) = Text5
For i = 4 To 1 Step -1
For j = 1 To i
If num(j) > num(j + 1) Then
temp_val = num(j)
num(j) = num(j + 1)
num(j + 1) = temp_val
End If
Next j
Next i
For k = 1 To 5
show_lbl = show_lbl & "" & num(k)
Next k
End Sub
ㄛ在5ㄍtext物件輸入數字..而後排序在label物件上..執行有問題
程式如下..請指教...3Q3Q3Q...
Private Sub Cmd_Click()
Dim num(5) As Integer
num(1) = Text1
num(2) = Text2
num(3) = Text3
num(4) = Text4
num(5) = Text5
For i = 4 To 1 Step -1
For j = 1 To i
If num(j) > num(j + 1) Then
temp_val = num(j)
num(j) = num(j + 1)
num(j + 1) = temp_val
End If
Next j
Next i
For k = 1 To 5
show_lbl = show_lbl & "" & num(k)
Next k
End Sub
全站熱搜
留言列表