programming

[jimek]

duuuuude. if anyone that reads this shit knows anything about programming ill be your best friend and/or give you a dollar if you give me a loop or some way to print this fucking array in a picture output pleaaaaaaaase

Private Sub Cmd_Click()
Dim chart(1 To 7, 1 To 7) As String
chart(1, 1) = " "
chart(2, 1) = "Jazz"
chart(3, 1) = "Jets"
chart(4, 1) = "Owls"
chart(5, 1) = "Rams"
chart(6, 1) = "Cubs"
chart(7, 1) = "Zips"
chart(1, 2) = "Jazz"
chart(2, 2) = "-"
chart(3, 2) = "Jazz"
chart(4, 2) = "Jazz"
chart(5, 2) = "Rams"
chart(6, 2) = "Cubs"
chart(7, 2) = "Jazz"
chart(1, 3) = "Jets"
chart(2, 3) = "Jazz"
chart(3, 3) = "-"
chart(4, 3) = "Jets"
chart(5, 3) = "Jets"
chart(6, 3) = "Cubs"
chart(7, 3) = "Zips"
chart(1, 4) = "Owls"
chart(2, 4) = "Jazz"
chart(3, 4) = "Jets"
chart(4, 4) = "-"
chart(5, 4) = "Rams"
chart(6, 4) = "Owls"
chart(7, 4) = "Owls"
chart(1, 5) = "Rams"
chart(2, 5) = "Rams"
chart(3, 5) = "Jets"
chart(4, 5) = "Rams"
chart(5, 5) = "-"
chart(6, 5) = "Rams"
chart(7, 5) = "Rams"
chart(1, 6) = "Cubs"
chart(2, 6) = "Cubs"
chart(3, 6) = "Cubs"
chart(4, 6) = "Owls"
chart(5, 6) = "Rams"
chart(6, 6) = "-"
chart(7, 6) = "Cubs"
chart(1, 7) = "Zips"
chart(2, 7) = "Jazz"
chart(3, 7) = "Zips"
chart(4, 7) = "Owls"
chart(5, 7) = "Rams"
chart(6, 7) = "Cubs"
chart(7, 7) = "-"

and while your at it "display a listing of the teams giving each teams name and number of games won. The list should be in decreasing order by the number of wins" yea dude id cry if you did that for me if you know how. yeaaa. do i expect anyone to be able to do this? no. worth a try though

Private Sub WinsArray(w() As Integer)
w(1)=3
w(2) = 2
w(3) = 2
w(4) = 4
w(5) = 3
w(6) = 1
End Sub

Private Sub TeamArray(t() As String)
t(1) = "Jazz"
t(2) = "Jets"
t(3) = "Owls"
t(4) = "Rams"
t(5) = "Cubs"
t(6) = "Zips"
End Sub

theres the teams and number of wins.

hahaha id be amazed if this worked.