[VB] Console.ReadLine txt file

 ex:
輸入：
1 5 3 5
23 59 0 34
21 33 21 10
0 0 0 0

輸出 :
1 5 3 5
23 59 0 34
21 33 21 10


Imports System
Imports Microsoft.VisualBasic
Imports System.IO
Imports System.Collections

Module Module1
    Sub Main()       
        Dim intA, intB, intC, intD As Integer
        Dim intTotal As Integer
        intTotal = 0
        Dim line As String

        DO
            line = Console.ReadLine()           
            Dim w As String() = line.Split(" ")
            intA = w(0)
            intB = w(1)
            intC = w(2)
            intD = w(3)
           
            Console.WriteLine(line)
               
        Loop While intA = intB = intC = intD = 0
    End Sub
End Module