請問大大們排序問題..
ㄛ在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
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(4) 人氣()