Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB random ссылок https://www.cyberforum.ru/ visual-basic/ thread1012115.html
Добрый день, подскажите пожалуйста как сделать ? Суть вопроса. Есть группа в vk, там меню, хочется сделать функцию для кнопки что бы при нажатии на нее рандомно открывались ссылки из списка. Ссылок...
VB Использование функций базы данных в запросе
Всем привет. Хотел бы узнать существует ли в ADODB.Recordset всякого рода функции? Ну например я построил запрос : Dim oCn As ADODB.Connection Dim AD As ADODB.Recordset Set oCn = New...
VB печатать содержимое PictureBox https://www.cyberforum.ru/ visual-basic/ thread1011837.html
Я чайник в квадрате.Помогите вывести на печать содержимое PictureBox. С Textbox и Listbox вывожу данные на PictureBox и надо это распечатать. Очень странно но почти нет информации на эту тему!...
VB метод итераций :) ребята помогите решить уравнения x^3+4*x-6=0 методом итерации:) https://www.cyberforum.ru/ visual-basic/ thread1011572.html
Создание массива в VB VB
Добрый вечер,подскажите , пожалуйста: 1)Как создать массив, состоящий из 5 пар координат (Xn, Yn), значения которых будут подбираться рандомно и подставляться сразу в формулу? 2)Если есть...
VB Задание по Visual Basic (для знающих людей должно быть легко) https://www.cyberforum.ru/ visual-basic/ thread1011399.html
Сразу хочу прояснить ситуацию. Помощь прошу не потому что лень самому делать, а потому что не понимаю как. Долго рылся в интернете и в основном видел ссылки на данный ресурс с похожими на мои...
VB Двоичное кодирование/декодирование данных текстового файла https://www.cyberforum.ru/ visual-basic/ thread1011303.html
шифрование двоичного файла Dim d As String Dim p2 As Byte Dim p1 As Byte If fs.FileExists("текст1.txt") Then Kill "текст1.txt" a = "" If ksh = -1 Then MsgBox ("Операция не выполнена. " ...
Матрицы, min VB
Всем доброго времени суток. Задача такова: есть две матрицы 1 2 3 5 5 6 and
VB Даны 3 числа x,y,z. Как вычислить max (x^2 + y^2 ; y^2 + z^2) https://www.cyberforum.ru/ visual-basic/ thread1011227.html
Даны 3 числа x,y,z вычислитe max (x^2 + y^2 ; y^2 + z^2) помогите спрограммировать в VBA 4.3. Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш...
VB Как присвоить второму элементу массива из 20 целых чисел случайное число из диапазона [-15;10] Объявите массив из 20 целых чисел С. Присвойте второму элементу массива случайное число из диапазона Реализовать на Visual Basic. https://www.cyberforum.ru/ visual-basic/ thread1011222.html
Объявить массив VB
Объявите массив из 20 целых чисел С. Присвойте второму элементу массива случайное число из диапазона Реализовать на Visual Basic
VB Остановка цикла в любой момент Помогите пожалуйста. Есть программа маятника, как сделать так, чтобы в любой момент можно было остановить маятник, когда он качается? Вот кодPrivate Sub Цвет_Click() Палитра.ShowColor ... https://www.cyberforum.ru/ visual-basic/ thread1011138.html
Модератор
Эксперт функциональных языков программированияЭксперт Python
33775 / 18813 / 3967
Регистрация: 12.02.2012
Сообщений: 31,557
Записей в блоге: 12
20.11.2013, 00:26 0

Дан файл, содержащий целые числа. Записать их в другие два файла, при этом в первый записать четные, а во второй нечетные числа. - VB - Ответ 5360387

20.11.2013, 00:26. Показов 2130. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Filter(Fi as string, Feven as string, Fodd as string)
      ff%=FreeFile
      Open Fi as input As #ff%
      foev%=FreeFile
      Open Feven as Output As #foev%
      foodd%=FreeFile
      Open Fodd as Output As #foodd%
      Do While (not EOF(ff%))
          line input #ff%,Stri$
          If (Val(Stri$) mod 2)=0 then
             print #foev%,Stri$
          else
             print #foodd%,Stri$
          end if
      Loop
      Close ff%
      Close foev%
      Close foodd%
End sub


Вернуться к обсуждению:
Дан файл, содержащий целые числа. Записать их в другие два файла, при этом в первый записать четные, а во второй нечетные числа. VB
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2013, 00:26
Готовые ответы и решения:

Дан файл, содержащий целые числа. Записать их в другие два файла, при этом в первый записать четные, а во второй нечетные числа
Дан файл, содержащий целые числа. Записать их в другие два файла, при этом в первый записать...

Из одного файла считать целые числа, в другие файлы записать четные и нечетные числа
Нужно с одного файла считать целые числа и в другие файлы записать четные и нечетные числа. Вот...

Дан файл, содержащий целые числа. Записать в другой файл удвоенные числа из первого файла
Прошу помощи, ребята ! 1. Дан файл, содержащий целые числа. Записать в другой файл удвоенные...

Дан файл целых чисел. Создать два новых файла, в первый записать чётные числа исходного, во второй - нечётные
Дан файл целых чисел. Создать два новых файла, первый из которых содержит чётные числа из исходного...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.11.2013, 00:26
Помогаю со студенческими работами здесь

Все четные числа файла записать во второй файл, а нечетные — в третий
Имеется файл, элементами которого являются целые числа. Все четные числа этого файла записать во...

Все четные числа файла записать во второй файл, а нечетные — в третий файл
Имеется файл, элементами которого являются целые числа. Все четные числа этого файла записать во...

Все четные числа из файла записать во второй файл, а нечетные — в третий файл
Имеется файл, элементами которого являются целые числа. Все четные числа этого файла записать во...

Все четные числа файла записать во второй файл, а нечетные — в третий файл
Имеется файл, элементами которого являются целые числа. Все четные числа этого файла записать во...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru