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

Catstail

Модератор

Эксперт функциональных языков программирования

33775 / 18813 / 3967

Регистрация: 12.02.2012

Сообщений: 31,557

Записей в блоге: 12

20.11.2013, 00:26

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

20.11.2013, 00:26. Показов 2130. Ответов 1

Метки (Все метки)

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

Решение

Visual Basic

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

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

20.11.2013, 00:26

Готовые ответы и решения:

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

20.11.2013, 00:26

Помогаю со студенческими работами здесь

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

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

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

Наверх