Lab 8.2 - Select win 'Where win.ToUpper =...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
Lab 8.2 Dim team As String 'Dim win As Integer End Structure Private Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button1.Click OpenFileDialog1.ShowDialog() Dim Data() As String , i As Integer , supers() As data , j As Integer , x As Integer , k() As Integer Dim nums() As String = IO. File .ReadAllLines(OpenFileDialog1.FileName) Dim wins() As String = IO. File .ReadAllLines(OpenFileDialog1.FileName) Dim numQuery = From num In nums Select num Distinct Dim winQuery = From win In wins
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Background image of page 2
This is the end of the preview. Sign up to access the rest of the 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

Page1 / 2

Lab 8.2 - Select win 'Where win.ToUpper =...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online