Разделить исходный файл на два, записав в один только четные числа, а в другой - нечетные - VB

Узнай цену своей работы

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

Текстовый файл содержит несколько строк, в каждой из которых записано целое число. Разделить этот файл на два, записав в один только четные числа, а в другой – нечетные. Я не могу создать програму, кто-нибудь можете помочь меня? Спс !

Решение задачи: «Разделить исходный файл на два, записав в один только четные числа, а в другой - нечетные»

textual
Листинг программы
Private Sub Command1_Click()
    Open App.Path & "\Input.txt" For Input As #1
    Open App.Path & "\Output1.txt" For Output As #2
    Open App.Path & "\Output2.txt" For Output As #3
         Do Until EOF(1)
            Input #1, S
            Print #((Val(S) Mod 2) + 2), S
         Loop
    Close
End Sub

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы