Как правильно написать код? - VB

  1. Необходимо заполнить одномерный массив случайными числами от (-10) до 20, и записать отрицательные числа в файл 1.txt, а положительные в файл 2.txt на диске D!  


textual

Код к задаче: «Как правильно написать код? - VB»

        
Dim Mas(10) As Integer
IO.File.CreateText("D:\1.txt").Close() 'Отрицаетльные
IO.File.CreateText("D:\2.txt").Close() 'Положительные
For a = 1 To 10
 Mas(a) = Int(Rnd() * 30) - 10
 If Mas(a) >= 0 Then
 IO.File.WriteAllText("D:\2.txt", IO.File.ReadAllText("D:\2.txt") & vbNewLine & Mas(a))
 ElseIf Mas(a) < 0 Then
 IO.File.WriteAllText("D:\1.txt", IO.File.ReadAllText("D:\1.txt") & vbNewLine & Mas(a))
 End If
Next

СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.889 из 5



Похожие ответы
  1. В моей программе требуется завершать цикл, как только она наткнется на пиксель определенного цвета. Но программа не распознает этот цвет. Что я делаю не так? Вот отдельный фрагмент этой программы, который просто задает цвет точки, а потом его считывает.

  1. Доброго времени суток!!! Такой вопрос не получается правильно записать событие вообщем: через апи проверят запущен ли такой-то такой-то процесс(notepad.exe) или такой-то такой-то (calc.exe) если нет ни того ни того тогда запускаем любой из них если если есть хоть один то ничего не делаем. Беда как я полагаю в самом событии if >>>>

  1. 1. Дано целое число N (> 0). Последовательность вещественных чисел AK определяется следующим образом: A0 = 2, AK = 2 + 1/AK–1, K = 1, 2, … . Вывести элементы A1, A2, … , AN. 2. Даны целые положительные числа A и B. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида: НОД(A, B) = НОД(B, A mod B), если B  0; НОД(A, 0) = A. 3. Дано целое число N (> 1) и набор из N целых чисел. Вывести те элементы в наборе, которые меньше своего правого соседа, и количество K таких элементов. 4. Описать процедуру AddLeftDigit(D, K), добавляющую к целому положительному числу K слева цифру D (D — входной параметр целого типа, лежащий в диапазоне 1–9, K — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры последовательно добавить к данному числу K слева данные цифры D1 и D2, выводя результат каждого добавления. 5. Описать функцию IsPrime(N) логического типа, возвращающую True, если целый параметр N (> 1) является простым числом, и False в противном случае (число, большее 1, называется простым, если оно не имеет положительных делителей, кроме 1 и самого себя). Дан набор из 10 целых чисел, больших 1. С помощью функции IsPrime найти количество простых чисел в данном наборе. 6. Дано целое число N (> 1) и набор из N чисел. Найти номера двух соседних чисел из данного набора, произведение которых является минимальным, и вывести вначале меньший, а затем больший номер. 7. Дано число R и массив размера N. Найти два различных элемента массива, сумма которых наиболее близка к числу R, и вывести эти элементы в порядке возрастания их индексов (определение наиболее близких чисел дано в задании Array40). 8. Дан массив размера N и целое число K (1  K < N). Осуществить сдвиг элементов массива влево на K позиций (при этом AN перейдет в AN–K, AN–1 — в AN–K–1, …, AK+1 — в A1, а исходное значение K первых элементов будет потеряно). Последние K элементов полученного массива положить равными 0. 9. Дан массив размера N. Утроить в нем вхождения всех элементов с нечетными номерами (1, 3, …). Условный оператор не использовать. 10. Дана матрица размера M x N. Для каждого столбца матрицы найти произведение его элементов. 11. Дана матрица размера M x N. Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждом столбце.

  1. как написать на vb программу, выводящую на консоле 'Hi, world!'(тип проекта консоль)

  1. Всем привет! Понимаю что в данном разделе +100500 таких тем.. просто бьюсь над этим давно и никак не могу победить ! Суть в следующем:Многопользовательский сервер с использованием WinSock делается посредством создания массива таких элементов, при этом таких элементов можно создать не более 32 767 (таков размер переменной типа Integer), соответственно многопользовательский сервер при этом сможет поддерживать соединение с 32 767 клиентами одновременно. Как правильно остановить сервер? Т.е. у меня есть саб следующего вида:

  1. На самом деле вопроса 2.Вопрос 1: Модуль: Кликните здесь для просмотра всего текста

  1. Помогите, пожалуйста Написать программу вычисления приближенного значения бесконечной суммы с точностью ε=0,0001 Задание на картинке. Пропустил лекцию, теперь не могу решить(

  1. Написать программу и вычислить: Значение X выдать с клавиатуры. c=1,2; q=7.05 Если Если X=1,2

  1. помогите, пожалуйста! В текстовое поле 1 пользователь должен вводить символы. При этом автоматически должна считаться сумма порядковых номеров букв в ведённом слое и отображаться в текстовом поле 2. При этом текстовое поле 2 должно быть недоступно пользователю для редактирования. Определение порядковых номеров должно осуществляться в цикле (начиная с первого символа слова, затем – второй символ и т.д.). Порядковый номер определяется по русскому алфавиту (буква А – 1, буква Б – 2, В – 3, и т.д. с учётом букв Ё, Й и т.п.). Для определения порядкового номера необходимо создать новую функцию Letter_Number: Private Function Letter_Number(A As String) As Integer Аргумент A – это символ, номер которого необходимо определить. Функция возвращает переменную целого типа. Определение номера должно вызываться примерно следующим образом: N = Letter_Number(“В”) В целочисленную переменную N должно будет возвращено значение 3. При выполнении работы могут понадобиться следующие функции: 1) UCASE – переводит все символы текстовой переменной в заглавные (например, UCASE(“слОво”) = “СЛОВО”); 2) LEN – определяет количество символов в текстовой переменной (например, LEN(“Слово”) = 5); 3) MID – подстрока текстовой переменной (например, MID(“Слово”,2,1) = “л”, то есть из текстовой переменной “Слово” начиная с 3-го символа выбирается 1 символ); 4) CStr – перевод переменной в текстовый тип (например, CStr(41) = “41”, где 41 – число, а “41” – текст); 5) CInt – перевод переменной в целочисленный тип (например, CStr(“41”) = 41, где “41” – текст, а 41 – число). Также могут понадобиться следующие свойства и методы текстовых полей: 1) функция TextBox1_Change – вызывается при внесении изменений в текстовое поле 1; 2) свойство Locked – блокировка поля для ввода

  1. Написать программу вычисления приближенного значения бесконечной суммы с точностью ε=0,0001: Если кто может помогите пожалуйста.