Разделить исходный файл на два, записав в один только четные числа, а в другой - нечетные - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д