public i As Integer
Dim num(18) As Integer
Private Sub cmdEntry_Click()
For i = 0 To 18 Step 1
num(i) = InputBox("Enter a number:", "Array", 0)
Next i
grd.TextMatrix(0, 0) = "Array"
For i = 0 To 18 Step 1
grd.TextMatrix(grd.Rows - 1, 0) = num(i)
grd.Rows = grd.Rows + 1
Next i
End Sub
Private Sub cmdSort_Click()
Dim p As Integer, c As Integer, t As Integer
For p = 0 To 18 Step 1
For c = 0 To 18 - p
num (c) <= num(c + 1)
t = num(c)
num(c) = num(c + 1)
num(c + 1) = t
Next c
Next p
grd.TextMatrix(0, 1) = "Sorted"
For c = 0 To 18
grd.TextMatrix(1, 1) = num(i)
Next c
End Sub
Private Sub cmdExit_Click()
End
End Sub
Can someone correct me with my code about sorting numbers in flexgrid my cmdSort doesn't work...