' Project SplitFunction

' The fields are name, gender, and gpa.
' Write code that prints the names of all women with gpa > 3.50.

Imports System.Console
Module Module1

    Sub Main()
        Dim i As Integer
        Dim name, gender As String
        Dim gpa As Double
        Dim fields() As String
        Dim item As String

        ' Declare and initialize data array.
        Dim a() As String = {"Tom,M,3.47", "Susan,F,3.81", _
            "Jim,M,2.91", "Alice,F,3.11", "Bill,F,2.10", _
            "Jane,F,4.00", "Cindy,F,3.42", "Sam,M,3.60"}

        ' Print names of women with gpa > 3.5.
        For Each item In a
            fields = Split(item, ",")
            name = fields(0)
            gender = fields(1)
            gpa = fields(2)
            If gender = "F" And gpa > 3.5 Then
                WriteLine(name)
            End If
        Next
        ReadLine()
    End Sub

End Module