Форум программистов, компьютерный форум, киберфорум
Visual Basic
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > Visual Basic
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
VB Блок-схема https://www.cyberforum.ru/ visual-basic/ thread891049.html
Помогите составить блок-схему для кода.. Dim x(5) As Integer, y(5) As Integer, l As Integer Dim z(5, 5) As Integer, s As Integer, k As Integer, max As Integer, elm As Integer, maxx(5) As Integer Private Sub Command1_Click() For i = 1 To 5 x(i) = Int(Rnd(1) * 10) Next i For j = 1 To 5 y(j) = Int(Rnd(1) * 10) 		как сделать,чтобы выводилось и максимум и время в которое он достигнут VB
кусок программы в одном считает время,а во втором находит максимум как сделать,чтобы выводилось и максимум и время в которое он достигнут Function times(n As Integer) Dim s As String Dim hour As Integer hour = 9 Dim min As Integer min = 0 Dim tt As Integer
VB Дана сторона равностороннего треугольника. Найти его площадь в Visual Basic Линейные программы Дана сторона равностороннего треугольника. Найти его площадь. https://www.cyberforum.ru/ visual-basic/ thread890734.html VB Определить, подойдет ли данный четырехугольный брусок для гнезда https://www.cyberforum.ru/ visual-basic/ thread890733.html
в Visual Basic Ветвления 1.Гнездо для ножки деревянной кровати имеет форму прямоугольной вырезки. Определить, подойдет ли данный четырехугольный брусок для этого гнезда.
Если можно построить треугольник по данным трем отрезкам, то вычислить его периметр и площадь VB
в Visual Basic Ветвления 2.Даны длины трех отрезков a, b, c. Если можно построить треугольник по этим трем отрезкам, то вычислить его периметр и площадь. 		VB Получить последовательность b1, b2, ... , bn, где при i =1,2,...,n значение bi = i! https://www.cyberforum.ru/ visual-basic/ thread890729.html
в Visual Basic Циклы 1.Дано натуральное n. Получить последовательность b1, b2, ... , bn, где при i =1,2,...,n значение bi = i!
VB Составить программу, определяющую, является ли данное число N простым https://www.cyberforum.ru/ visual-basic/ thread890727.html
в Visual Basic Циклы 2.Составить программу, определяющую, является ли данное число N простым. 		VB Из 18 т железной руды выплавляют 10 т железа. Сколько железа выплавят из А т руды?
в Visual Basic Линейные программы Из 18 т железной руды выплавляют 10 т железа. Сколько железа выплавят из А т руды? Svetik611, по правилам форума один вопрос - одна тема. Ваши задания вынесены в отдельные темы: https://www.cyberforum.ru/visual-basic/thread890727.html https://www.cyberforum.ru/visual-basic/thread890729.html https://www.cyberforum.ru/visual-basic/thread890731.html
VB Получение пустых записей БД https://www.cyberforum.ru/ visual-basic/ thread890477.html
Всем привет! Прошу помочь в битве с recordset'ом. Задаю фильтр вида: rst.filter = "sys <> 'abc'". В результате получаю всё, кроме "sys='abc'" и "sys=''". Как с этим("sys=''") бороться? Vba Access 2010. 		VB Как убрать картинку с формы Visual Busic? https://www.cyberforum.ru/ visual-basic/ thread890355.html
Ns38oOMb9YU&feature=youtu.be
VB Скрыть индикатор копирования
Добрый день! Столкнулся с такой проблемой....нужно чтобы при копировании файла из одной папки в другую не появлялся прогрессбар....т.е. копирование в тихом режиме....как программно запретить винде выводить индикатор копирования ума не приложу....прошу помощи! 		VB Построение графика методом итерации для функции x-2+sin(1/x)=0 на отрезке от а до б https://www.cyberforum.ru/ visual-basic/ thread889765.html
Люди добрые, кто может подскажите пожалуйста код построения графика методом итерации для функции x-2+sin(1/x)=0 на отрезке от а до б. Не понимаю как написать код, сколько пробовала не получается, кому не сложно напишите пожалуйста код программы, буду очень признательна
320 / 288 / 104
Регистрация: 12.04.2011
Сообщений: 924
04.06.2013, 21:35 0

Найти сумму элементов массива, имеющих нечетное значение - VB - Ответ 4670341

04.06.2013, 21:35. Показов 2206. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

Private Sub Command1_Click()
Form1.AutoRedraw = True
Dim i, n, sum As Double
Dim A As Double
Dim b() As Double
Dim c As Integer
Dim k As Integer
Cls
sum = 0
c = 0
n = InputBox("Ââåäèòå êîëè÷åñòâî  ýëåìåíòîâ", "Ýëåìåíòû")
A = InputBox("Ââåäèòå ÷èñëî ñ êîòîðûì íóæíî ñðàâíèâàòü", "×èñëî")
k = InputBox("Ââåäèòå êðàòíîñòü ÷èñëà ", "×èñëî")
'1 ÇÀÄÀ×À
ReDim b(1 To n)
For i = 1 To n
      b(i) = Int(Rnd * (-20) + 10)
Print b(i);
If i Mod 5 = 0 Then Print
      If b(i) Mod 2 = 0 Then sum = b(i) + sum
Next i
Print
Print "Ñóììà"; sum
Print vbLf
'2 ÇÀÄÀ×À
For i = 1 To n
      If b(i) > A Then
            Print i;
            c = c + 1
      End If
Next i
'3 ÇÀÄÀ×À
Print vbLf
Print " ×èñëà êðàòíûå " & k & ""
For i = 1 To n
      If b(i) Mod k = 0 Then Print b(i);
Print ;
Next i


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

Найти сумму элементов массива, имеющих нечетное значение
Решите задачи на работу с одномерными массивами с использованием ввода элементов массива с помощью...

Найти сумму элементов массива, имеющих нечетное значение
Дан массив целых чисел заполненный случайным образом, состоящий из 20 элементов. Найти: -сумму...

Найти сумму элементов массива, имеющих нечетное значение
Ввести с клавиатуры одномерный целочисленный массив А n=10 1)найти сумму элементов имеющих...

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

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

Найти сумму элементов массива, имеющих нечетное значение
1.Дан массив целых чисел, состоящий из 20 элементов. Заполнить его с клавиатуры. Найти: сумму...

Найти сумму элементов массива, имеющих нечетное значение
Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти: −...

Найти сумму элементов, имеющих нечетное значение;
Дан массив целых чисел, состоящий из 20 элементов. Заполнить его с клавиатуры. Найти: - сумму...

Найти сумму элементов, имеющих нечетное значение
2. Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти:...

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