This preview has intentionally blurred sections. Sign up to view the full version.View Full Document
Unformatted text preview: Select win 'Where win.ToUpper = txtName.Text.toupper 'j = winQuery.Count For j = 0 To nums.GetUpperBound(0) x = 0 For i = 0 To wins.GetUpperBound(0) If i = j Then x = x + 1 End If Next i k(x) Next j ' Dim numarray() As Integer = numQuery.ToArray 'For i = 0 To numarray.getupperbound(0) 'nums(i).team = numarray(i) 'Next i For Each num As String In numQuery ListBox1.Items.Add(k(x) & " " & num) Next End Sub End Class...
View Full Document
This note was uploaded on 08/22/2011 for the course IE 148 taught by Professor Davesly during the Spring '11 term at Iowa State.
- Spring '11
- Industrial Engineering