same stupid code

[amyblueeyes]

same problem but when I change name 5 from George Byron to "Insert Name Here" it shows up in name 4 what the heck is going on





Private Sub cmdweight_Click()
Dim number(1 To 20) As Integer
Dim counter, temp As Integer
Dim temp2 As String
Dim nme(1 To 20) As String
Dim height(1 To 20) As Integer
Dim weight(1 To 20) As Integer

number(1) = 2
number(2) = 4
number(3) = 6
number(4) = 12
number(5) = 9
number(6) = 16
number(7) = 22
number(8) = 34
number(9) = 21
number(10) = 14
number(11) = 27
number(12) = 18
number(13) = 33
number(14) = 89
number(15) = 43
number(16) = 32
number(17) = 29
number(18) = 31
number(19) = 19
number(20) = 20

nme(1) = "Vincent VanGogh"
nme(2) = "Wilfrid Laurier"
nme(3) = "Abraham Lincoln"
nme(4) = "Ludwig Beethoven"
nme(5) = "George Byron "
nme(6) = "George Washington"
nme(7) = "Winston Churchill"
nme(8) = "Albert Einstein"
nme(9) = "Leonardo DaVinci"
nme(10) = "Issac Newton"
nme(11) = "Galile Galileo"
nme(12) = "Stephen Hawking"
nme(13) = "Edgar Allan Poe"
nme(14) = "Carl Gauss"
nme(15) = "William Shakespeare"
nme(16) = "Maria Curie"
nme(17) = "John Nash"
nme(18) = "James Michener"
nme(19) = "Mahatma Gandhi"
nme(20) = "Genghis Khan"

height(1) = "150"
height(2) = "57 "
height(3) = "66"
height(4) = "59"
height(5) = "53"
height(6) = "52"
height(7) = "55"
height(8) = "61"
height(9) = "52"
height(10) = "54"
height(11) = "63"
height(12) = "52"
height(13) = "55 "
height(14) = "52"
height(15) = "57"
height(16) = "58"
height(17) = "62"
height(18) = "54"
height(19) = "59"
height(20) = "58"

weight(1) = "150"
weight(2) = "57 "
weight(3) = "66"
weight(4) = "59"
weight(5) = "53"
weight(6) = "52"
weight(7) = "55"
weight(8) = "61"
weight(9) = "52"
weight(10) = "54"
weight(11) = "63"
weight(12) = "52"
weight(13) = "55"
weight(14) = "52"
weight(15) = "57"
weight(16) = "58"
weight(17) = "62"
weight(18) = "54"
weight(19) = "59"
weight(20) = "58"

For Index = 1 To 18
For counter = 1 To 19
If height(counter) > height(counter + 1) Then
temp = height(counter)
height(counter) = height(counter + 1)
nme(counter) = nme(counter + 1)
height(counter + 1) = temp
nme(counter + 1) = temp2

End If
Next counter
Next Index
End Sub



Private Sub Form_Load()



Me.WindowState = vbMaximized
End Sub


Private Sub Label1_Click()

Label1.Caption = " This is the list to be sorted" & vbCrLf & _
"Vincent VanGogh 2 15 30" & vbCrLf & _
"Wilfrid Laurier 4 57 45" & vbCrLf & _
"Abraham Lincoln 6 66 52" & vbCrLf & _
"Ludwig Beethoven 59 12 110" & vbCrLf & _
"George Byron 12 53 95 " & vbCrLf & _
"George Washington 9 52 87 " & vbCrLf & _
"Winston Churchill 16 55 130" & vbCrLf & _
"Albert Einstein 22 61 101" & vbCrLf & _
"Leonardo DaVinci 34 52 98 " & vbCrLf & _
"Issac Newton 21 54 136 " & vbCrLf & _
"Galile Galileo 14 63 101" & vbCrLf & _
"Stephen Hawking 27 18 113 " & vbCrLf & _
"Edgar Allan Poe 52 55 125 " & vbCrLf & _
"Carl Gauss 33 55 140" & vbCrLf & _
"William Shakespeare 33 52 114" & vbCrLf & _
"Maria Curie 89 57 111" & vbCrLf & _
"John Nash 43 58 150" & vbCrLf & _
"James Michener 32 52 165" & vbCrLf & _
"Mahatma Gandhi 29 57 134 " & vbCrLf & _
"Genghis Khan 19 58 106"

End Sub

Private Sub Command8_Click()
End
End Sub

Private Sub cmdAGe_Click()
Dim number(1 To 20) As Integer
Dim counter, temp As Integer
Dim temp2 As String
Dim nme(1 To 20) As String
Dim height(1 To 20) As Integer
Dim weight(1 To 20) As Integer

number(1) = 2
number(2) = 4
number(3) = 6
number(4) = 12
number(5) = 9
number(6) = 16
number(7) = 22
number(8) = 34
number(9) = 21
number(10) = 14
number(11) = 27
number(12) = 18
number(13) = 33
number(14) = 89
number(15) = 43
number(16) = 32
number(17) = 29
number(18) = 31
number(19) = 19
number(20) = 20

nme(1) = "Vincent VanGogh"
nme(2) = "Wilfrid Laurier"
nme(3) = "Abraham Lincoln"
nme(4) = "Ludwig Beethoven"
nme(5) = "Insert Name Here"
nme(6) = "George Washington"
nme(7) = "Winston Churchill"
nme(8) = "Albert Einstein"
nme(9) = "Leonardo DaVinci"
nme(10) = "Issac Newton"
nme(11) = "Galile Galileo"
nme(12) = "Stephen Hawking"
nme(13) = "Edgar Allan Poe"
nme(14) = "Carl Gauss"
nme(15) = "William Shakespeare"
nme(16) = "Maria Curie"
nme(17) = "John Nash"
nme(18) = "James Michener"
nme(19) = "Mahatama Ghandi"
nme(20) = "Genghis Khan"

height(1) = "150"
height(2) = "57 "
height(3) = "66"
height(4) = "59"
height(5) = "53"
height(6) = "52"
height(7) = "55"
height(8) = "61"
height(9) = "52"
height(10) = "54"
height(11) = "63"
height(12) = "52"
height(13) = "55 "
height(14) = "52"
height(15) = "57"
height(16) = "58"
height(17) = "62"
height(18) = "54"
height(19) = "59"
height(20) = "58"

weight(1) = "150"
weight(2) = "57 "
weight(3) = "66"
weight(4) = "59"
weight(5) = "53"
weight(6) = "52"
weight(7) = "55"
weight(8) = "61"
weight(9) = "52"
weight(10) = "54"
weight(11) = "63"
weight(12) = "52"
weight(13) = "55"
weight(14) = "52"
weight(15) = "57"
weight(16) = "58"
weight(17) = "62"
weight(18) = "54"
weight(19) = "59"
weight(20) = "58"




For Index = 1 To 18
For counter = 1 To 19
If number(counter) > number(counter + 1) Then
temp = number(counter)
number(counter) = number(counter + 1)
nme(counter) = nme(counter + 1)
number(counter + 1) = temp
nme(counter + 1) = temp2

End If
Next counter
Next Index

Print "This is the sorted list"
Print " Age"; " Height"; " Weight"
Print nme(1); number(1); height(1); weight(1)
Print nme(2); number(2); height(2); weight(2)
Print nme(3); number(3); height(3); weight(3)
Print nme(4); number(4); height(4); weight(4)
Print nme(5); number(5); height(5); weight(5)
Print nme(6); number(6); height(6); weight(6)
Print nme(7); number(7); height(7); weight(7)
Print nme(8); number(8); height(8); weight(8)
Print nme(9); number(9); height(9); weight(9)
Print nme(10); number(10); height(10); weight(10)
Print nme(11); number(11); height(11); weight(11)
Print nme(12); number(12); height(12); weight(12)
Print nme(13); number(13); height(13); weight(13)
Print nme(14); number(14); height(14); weight(14)
Print nme(15); number(15); height(15); weight(15)
Print nme(16); number(16); height(16); weight(16)
Print nme(17); number(17); height(17); weight(17)
Print nme(18); number(18); height(18); weight(18)
Print nme(19); number(19); height(19); weight(19)
Print nme(20); number(20); height(20); weight(20)
Print




End Sub

[Heribertt]

remember that an array starts with 0
that means that wath we cal number 1 in a array the number 0 has

Dim test(5) has 6 numbers from 0 tot 5