Далее создается новый файл, в который записываются все числа из открытого файла за исключением тех, которые кратны К - VB
Формулировка задачи:
Решите задачку!
Программа открывает текстовый файл, который содержит некоторое количество целых чисел. Далее создается новый файл, в который записываются все числа из открытого файла за исключением тех, которые кратны К.
Решение задачи: «Далее создается новый файл, в который записываются все числа из открытого файла за исключением тех, которые кратны К»
textual
Листинг программы
Private Sub Command1_Click() Dim f1%, f2%, k&, n& k = InputBox("Введите k", , 2) f1 = FreeFile Open "c:\in.txt" For Input As f1 f2 = FreeFile Open "c:\out.txt" For Output As f2 While Not EOF(f1) Input #f1, n If n Mod k Then Print #f2, n Wend Reset End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д