minimun_of_two.vb

'VisualBasic solution to codeabbey challenge 30
Imports System.Collections.Generic
Module Min_val_two
    Sub Main()
        Dim a, I1 As Integer
        I1 = CInt(Console.ReadLine())
        Dim I2 As String
        Dim list As IList(Of String)
        Dim resp As String
        For a = 0 To I1-1
            I2 = Console.ReadLine()
            'resp = I2.Split(New Char(-1) {}, StringSplitOptions.RemoveEmptyEntries)
            list = New List(Of String)(I2.Split(New String() {" "}, StringSplitOptions.None))
            If list(0) < list(1) Then
                resp = resp + CStr(list(0)) + " "
            Else
                resp = resp + CStr(list(1)) + " "
            End If
        Next
        Console.WriteLine (resp)
    End Sub
End Module