Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Выполнять разные процедуры/действия одной кнопкой Как сделать так чтобы назначение кнопки менялось? Т.е я нажал на кнопку было Timer1.Enable = True и надо чтобы при 2 нажатии стало False? https://www.cyberforum.ru/ visual-basic/ thread426262.html Вывод максимального элемента массива VB
For i = 1 To UBound(z) If Abs(z(i)) > Abs(Max) Then Max = z(i) Next i Нужно вывести индекс max, как это реализовать?
VB Как из нескольких текстовых полей собрать информацию в одно https://www.cyberforum.ru/ visual-basic/ thread426151.html
как из нескольких текстовых полей собрать информацию в одно текстовое поле? н.р. в первом текстовом поле - 0000 во втором текстовом поле - 0000 в третьем текстовом поле - 1111 в четвертом текстовом поле - 0202 и в пятое текстовое поле надо собрать все из первых 4х и разделить знаком "-" должно получиться так: 0000-0000-1111-0202
VB RDO подключение к MySQL - как узнать, было ли установлено подключение https://www.cyberforum.ru/ visual-basic/ thread425885.html
сделал подключение через rdo используя драйвер - odbc connector mysql 3.51 пример: Dim conn As New rdoConnection Dim qr As New rdoQuery Dim rs As rdoResultset conn.CursorDriver = rdUseOdbc conn.Connect = "uid=root;pwd=;server=127.0.0.1;" & _ "driver={MysSQL ODBC 3.51 Driver};database=TestBase;dsn=;" conn.EstablishConnection
VB Установить запрет на удаление программы и ее компонентов пока не будет введен пароль
Здравствуйте! Подскажите пожалуйста, как сделать так, чтобы файлы моей программы и папка моей программы нельзя было удалить обычным способом, а только после ввода определенного пароля в окне программы??????
VB Определить количество четных элементов массивов X(30) и переписать их в массив Y https://www.cyberforum.ru/ visual-basic/ thread425291.html
Помогите написать отчет к этой задачи и блок схему, умоляю Определить количество четных элементов массивов X(30) и переписать их в массив Y
VB Можно ли, используя DAO подключиться к Web базе данных Реально используя DAO подключиться к web базе данных допустим на примере localhost? https://www.cyberforum.ru/ visual-basic/ thread424784.html Вывод рандомных значений в RichTextBox VB
Народ прошу помоши! Суть проста: Нажимаешь кнопку "Просмотреть серийный номер" И в RichTextBox1 появляются(разные) номера! То есть при каждом нажатии "Просмотреть" в окошке RichTextBox1 должно появляться разные данные! Которые будут внесены соответственно в код! К примеру: 12345678 аосссаосо 99999999 И при каждом нажатии что бы содержание выходили рандомно(случайно)!
VB Вычислить радиус круга, равновеликого квадрату с заданной длинной стороны 1. Вычислить радиус круга, равновеликого квадрату с заданной длинной стороны. 2. Вычислить массу прямого цилиндра по заданным радиусу оснований, высоте и плотности ( размерности исходных параметров выбрать по своему усмотрению) 3. Вычислить длину основания равнобедренного треугольника по заданным боковой стороне и углу при вершине 4. Вычислить время свободного падения тела отпущенного... https://www.cyberforum.ru/ visual-basic/ thread424132.html VB Авторизация в своей программе, исправить код https://www.cyberforum.ru/ visual-basic/ thread424131.html
Помогите доделать программу Private Sub Command1_Click() Dim i As Integer 5 i = 0 t0 = Timer 10 i = i + 1 If Text1.Text = "Головко" And Text2.Text = "1234" Or Text1.Text = "Ленда" And Text2.Text = "1234" Or Text1.Text = "Огиль" And Text2.Text = "1234" Then Label3.Caption = "Доступ предоставлен" ElseIf i > 3 Then
Можно ли сделать Progressbar, чтобы работал на уменьшение VB
Здравсвуйте. Вопрос думаю простой, но мне непонятный.. Можно ли сделать Progressbar чтобы работал на уменьшение, от 100 % к 0 % ??? И можно ли при сделать чтобы когда был выделен Checkbox, то Progressbar уменьшался на 1 % и замирал, а если Checkbox еще раз перещелкнуть то еще на 1 % ? и чтобы это все запоминалось при закрытии формы, и можно было обнулить по нажатию кнопки. Думаю понятно изложил...
VB При нажатии на кнопку выбираются нужные checkbox'ы Помогите сделать код, чтобы при нажатии на кнопку ставились галочки в Checkbox, не во всех а к примеру 2 из 10, или 6 из 10. И кнопку которая бы снимала все галочки. Добавлено через 13 минут Я, и сам разоюрался, осталось чтобы при нажатии на кнопку все checkbox снимались!??! https://www.cyberforum.ru/ visual-basic/ thread423902.html
13 / 13 / 0
Регистрация: 18.11.2011
Сообщений: 44
11.01.2012, 17:25 0

Найти среднее арифметическое положительных элементов и произведение отрицательных элементов массива - VB - Ответ 2376544

11.01.2012, 17:25. Показов 12949. Ответов 2
Метки (Все метки)

Ответ

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim a(1 To 100) As Integer   'если целые числа (single - если дробные)
Private Sub Command1_Click()
a(1) = -7
For k = 1 To 15
    a(k + 1) = a(k) + 1
    Print a(k);
Next k
Print
proizv = 1
For i = 1 To 15
  If a(i) >= 0 Then
    Sum = Sum + a(i)
    n = n + 1
  Else
    proizv = proizv * a(i)
  End If
Next i
Print "ср. ар. = " & Sum / n
Print "произв. отриц = " & proizv
End Sub


Вернуться к обсуждению:
Найти среднее арифметическое положительных элементов и произведение отрицательных элементов массива VB
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.01.2012, 17:25
Готовые ответы и решения:

Найти среднее арифметическое количество отдельно для положительных и отрицательных элементов массива
Найти среднее арифметическое количество отдельно для положительных и отрицательных элементов...

Найти среднее арифметическое отрицательных элементов массива
народ подскажите как Вычислить среднее арифметическое отрицательных элементов массива, превышающих...

Найти среднее арифметическое положительных и отрицательных элементов массива R1 и R2
Даны массив Xi, i = 1, ..., 15. Найти среднее арифметическое положительных и отрицательных...

В массиве найти среднее арифметическое положительных элементов массива, а также произведение и количество отрицательных элементов
В массиве Х(N) найти среднее арифметическое положительных элементов массива, а также произведение и...

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

Найти среднее арифметическое модулей отрицательных и произведение положительных элементов массива
Задан вектор А={Аn}. Найти среднее арифметическое модулей отрицательных и произведение...

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

В массиве найти среднее арифметическое положительных элементов, произведение и количество отрицательных элементов
в массиве найти среднее арифметическое положительных элементов массива, произведение и количество...

В двумерном массиве найти среднее арифметическое отрицательных элементов и произведение положительных
В двумерном массиве K(8,4) найти среднее арифметическое отрицательных элементов и произведение...

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