Работа с числовыми файлами - VB

Формулировка задачи:

Даны три файла целых чисел одинакового размера с именами SA, SB, Sc и строка SD. Создать новый файл с именем SD, в котором чередовались бы элементы исходных файлов с одним и тем же номером: А1, В1, С1, А2, В2, С2,…….

Решение задачи: «Работа с числовыми файлами»

textual
                            Листинг программы 
                        

                            Sub task(SA as String, SB as String, SC as String, SD as String)
    fa%=FreeFile
    open SA for Input as fa% 
    fb%=FreeFile
    open SB for Input as fb% 
    fc%=FreeFile
    open SC for Input as fc% 
    fd%=FreeFile
    open SD for Output as fa% 
    Do While not EOF(fa%)
        Line input #fa%, S$
        Print #fd%,S$
        Line input #fb%, S$
        Print #fd%,S$
        Line input #fc%, S$
        Print #fd%,S$
    Loop
    Close #fa%
    Close #fb%
    Close #fc%
    Close #fd%
End Sub
                        