Visual Basic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VB Записать и отладить программу https://www.cyberforum.ru/ visual-basic/ thread1888707.html Записать и отладить программу табуляции следующей функции.	Определить суммы длин отрезков. VB Два отрезка прямой на плоскости заданы координатами своих концов. Определить суммы длин этих отрезков.Написать программу
VB Время в минутах и расстояние в километрах Пользователь вводит время в минутах и расстояние в километрах.Найдите скорость в м/с. https://www.cyberforum.ru/ visual-basic/ thread1888546.html	VB String2. Напишите, пожалуйста, код Даны строки S и S0. Удалить из строки S первую подстроку, совпадающую с S0. если совпадающих подстрок нет, то вывести строку S без изменений. https://www.cyberforum.ru/ visual-basic/ thread1888434.html
VB String. Напишите, пожалуйста, код Дана строка. Если она представляет собой запись целого числа, то вывести 1, если вещественного (с дробной частью) — вывести 2; если строку нельзя преобразовать в число, то вывести 0. Считать, что дробная часть вещественного числа отделяется от его целой части десятичной точкой «.».	VB Межстрочный интервал Как увеличить межстрочный интервал в текстовом поле? Я пробовал изменение шрифта, но это не подходит, так как хотелось бы использовать разные шрифты. https://www.cyberforum.ru/ visual-basic/ thread1888256.html
VB Как заблокировать контекстное меню? В стандартном текстовом поле при нажатии ПКМ появляется контекстное меню. Вопрос - как сделать чтобы оно не показывалось. Дело в том что я хочу добавить свою функцию на ПКМ, а контекстное меню мне мешает))) https://www.cyberforum.ru/ visual-basic/ thread1888158.html	VB Текстовое поле - как убрать мерцание? Написал небольшой код, который делает стандартное текстовое поле с прозрачностью. Суть в том что я просто перерисовываю само текстовое поле. Накладываю фон формы, сверху текст и получаю тем самым прозрачность. Но из-за эти операций появляется мерцание. Вопрос - как его убрать? Понимаю, что мерцание появляется из-за рисования на видимом объекте. Может кто нить подскажет альтернативные варианты?...
VB Создание матрицы в Visual Basic Дано две целочисленные матрицы размером . Найти сумму матриц. Умножить полученную матрицу на значение у: Определить: количество рядков, которые не содержат нулевых элементов; минимальное из чисел, которые встречаются в данной матрице больше одного раза. Помогите пожалуйста с заданием. Буду очень благодарен. Заранее спасибо) https://www.cyberforum.ru/ visual-basic/ thread1887920.html	VB Объединение ячеек в MSHFlexGrid Добра всем! Веду небольшую работу в VB 6.0 и вот появилась необходимость слепить несколько записей в виде таблицы, где имеется 2 столбца (поля) и множество строк из которых каждая 3-я строка объединяет обе ячейки. Использую MSGFlexGrid, но при создании 2-ой и последующих записей (по 3 строки каждая), объединение ячеек происходит только в первой строке, а остальные как были разбитыми так ими и... https://www.cyberforum.ru/ visual-basic/ thread1887656.html
Добавление в listbox VB Можно ли как-то добавить в listbox запись с несколькими переменными + своим текстом? List1.AddItem z + " год: " + test	VB Адаптировать форму под разрешение зкрана https://www.cyberforum.ru/ visual-basic/ thread1887519.html Помогите пожалуйста с кодом для адаптирования формы под размер экрана!!!

echs

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

Сообщений: 5,076

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

26.01.2017, 13:22

Записать алгоритм и программу определения разности - VB - Ответ 10046606

26.01.2017, 13:22. Показов 383. Ответов 1

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

Ответ

Visual Basic

Option Explicit
Dim N%, i%, S!, max!, min!, SA!, SAm!
 
Private Sub cmdD_Click()
    Cls
    Randomize Timer
    N = Val(txtN.Text)
    ReDim a(N) As Integer
    
    For i = 1 To N
        a(i) = 80 * Rnd
    Next
    
    S = 0
    For i = 1 To N
        S = S + a(i)
    Next
    SA = S / N
    min = a(1)
    max = min
    
    For i = 1 To N
        If min > a(i) Then min = a(i)
        If max < a(i) Then max = a(i)
    Next
    SAm = (min + max) / 2
    
    Print "SA - SAm ="; SA - SAm
    Print
    For i = 1 To N
        Print Format(a(i), " 00")
    Next
End Sub

Вернуться к обсуждению:
Записать алгоритм и программу определения разности VB

Миниатюры

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

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

26.01.2017, 13:22

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

Составить программу определения разности
Составить программу определения разности между суммой всех элементов на четных местах и суммой всех...

Написать программу определения разности между средним арифметическим всех элементов массива
Записать алгоритм и программу определения разности между средним арифметическим всех элементов...

Построить и записать алгоритм определения минимального элемента и его индекса в столбцах матрицы
Всем добрый день! Я с просьбой! Задание: построить и записать алгоритм определения минимального...

Составьте алгоритм и программу для определения номера автомашины
Три приятеля были свидетелями нарушения правил дорожного движения. Номер автомобиля -...

	26.01.2017, 13:22

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

26.01.2017, 13:22

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

Написать алгоритм и программу определения среднего бала по контрольной по информатики
Выставленные в журнале оценки результатов контрольной работы по информатике образуют массив Z(n)....

Составить алгоритм и программу определения ближайшей к началу координат точки
Пожалуйста помогите с программой. Составить алгоритм и программу определения ближайшей к началу...

Разработать алгоритм и программу для определения кратчайшего слова в тексте
Разработать алгоритм и программу для определения кратчайшего слова в тексте

Привести алгоритм и программу определения суммы и количества элементов массива A
задан массив A из N=10 элементов. Привести алгоритм и программу определения суммы и количества...

Наверх