Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Блондинке нужно сделать задание, есть программка, необходимо внести изменения) https://www.cyberforum.ru/ visual-basic/ thread196373.html
Есть програмка (в окне бегают разные шарики и квадратики, при столкновении одинаковых исчезают) нужно внести изменения, а именно: Во вселенной должен быть один экземпляр ShapeRect и один экземпляр ShapeSphere. Последний при движении отражается от левой, верхней и правой границ окна, а также от верхней грани экземпляра ShapeRect. a. При достижении экземпляром ShapeSphere нижней границы окна...
Вычислить значение суммы VB
Здравствуйте, подскажите, пожалуйста, как с помощью васика вычислить значение суммы. Я попробовала отдельно значения n посчитать, но что-то не то: Sub Pro1() Dim n As Double n = CDbl(InputBox("введите n")) S1 = Str(1 / (1 * (1 + 1))) S2 = Str(1 / (2 * (2 + 1))) S3 = Str(1 / (3 * (3 + 1))) S4 = Str(1 / (4 * (4 + 1))) S5 = Str(1 / (5 * (5 + 1)))
VB Закрытие приложения через ВБ https://www.cyberforum.ru/ visual-basic/ thread195867.html
Всем доброго времени суток)) Я тут зарегистрировался только что, так что пожалуйста не сильно ругайтесь на меня)) Вобщем дело такое..) надо сделать програмку, которая открывала бы калькулятор (calc.exe) и Access (msaccess.exe) и закрывала бы эти программы, и ещё одна кнопка, которая закрывала бы созданную программу. (Надеюсь понятно обьяснил)) Почему то с файлов выложенных учителем я не...
VB Печать на форме двумерного массива заполняется двумерный массив, а затем как его распечать на форме? не могу правильно составить цикл((( Все элементы выводяться в 1 столбец((( помогите плиз))) https://www.cyberforum.ru/ visual-basic/ thread195862.html
VB Одномерный масив.решыте кто понимает
Дано ряд чисел (1,0,6,8,12,8,3,5,10,23) а)ввести эти числа в одномерный масив А;напечатать в строчку; б)найти минимальный элемент; в)вывести на экран номер осередка и значение элемента в масиве.
VB треугольник и таблица. 1.определить площпдь и периметр треугольника. 2. определить максимальный элемент таблицы А(1..10). спасибо https://www.cyberforum.ru/ visual-basic/ thread195582.html
VB Расположить элементы массива в следующем порядке: положительные, равные нулю, отрицательные Располодить элементы одномерного массива,заполненного случайным образом в интервале ,в следующем порядке: положиетльные,равные нулю,отрицательные Добавлено через 4 часа 52 минуты Никто не знает? =( https://www.cyberforum.ru/ visual-basic/ thread195468.html VB Найти сумму 12 членов заданного ряда
Найти сумму 12 членов ряда S=R+2R+4R+... для R=0.25
VB Работа с бд в VB Здравствуйте! Расскажу по порядку: Имеется: клиент и сервер для регистрации пользователя Нужно: подключить бд к серверу и добавить в него логин и пароль, которые пришлет клиент Затруднение заключается в том, что имеется я не знаю как базу сделанную в OpenOffice (MSOffice нет, и нет возможности его поставить) подключить к серваку, и как в нее добавить нужные строчки (логин, пароль) Надеюсь все... https://www.cyberforum.ru/ visual-basic/ thread195230.html VB непонимаю как написать программы на Visual Basic Помогите написать программу, которая печатает все цифры заданного числа, по одной в каждой стороке, начиная с последней. С использованием ListBox Как написать прогу, которая ставит пробел после каждого символа строки. Прмерно так должно получится. Слово --> С л о в о Заранее благодарен https://www.cyberforum.ru/ visual-basic/ thread195182.html
VB Удаление строчек
Будьте добры, помогите новичку! Надо написать макрос, чтобы не листе удалялись строчки, в которыхь написано "Всего" и "Итого"?
VB Чтение из файла как массив https://www.cyberforum.ru/ visual-basic/ thread195159.html
Здравствуйте!) ....Умею читать информацию из файла посимвольно и построчно. А как считывать как массив строк? т.е. загружать в текстовое поле каждый раз не по одной строке, а сразу по несколько строк
1605 / 1337 / 291
Регистрация: 25.10.2009
Сообщений: 3,487
Записей в блоге: 2
24.11.2010, 01:02 0

Программа про одномерный массив. - VB - Ответ 1136877

24.11.2010, 01:02. Показов 831. Ответов 3
Метки (Все метки)

Ответ

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim A(20) As Single, C As Single, count As Integer, i As Integer, sum As Single
Dim txt As String, check As Boolean
C = InputBox("c")
txt = ""
check = False
sum = 0
count = 0
For i = 1 To 20
A(i) = 100 * Rnd - 50
txt = txt & A(i) & " "
If A(i) < 0 Then
check = True
ElseIf A(i) > 0 And check = True Then
sum = sum + Fix(A(i))
End If
If A(i) = C Then count = count + 1
Next i
MsgBox txt & Chr(13) & Число элементов равных " & C & "=" & count & Chr(13) & "Сумма= " & sum


Вернуться к обсуждению:
Программа про одномерный массив. VB
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2010, 01:02
Готовые ответы и решения:

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

про одномерный массив
Дан одномерный массив (n=14), состоящий из целых случайных элементов, на интервале . Заменить...

задача про одномерный массив
Формулировка. Определите второй (по значению) наибольший элемент одномерного массива A(M). Формат...

Вопрос про одномерный массив
Задача такая Заполнить случайными целыми числами в диапозоне 0 до 10 и вывести на экран одномерный...

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

про одномерный массив, я вообще не шарю как делать
В одномерном массиве состоящем из n вещественных элементов вычислить: 1) сумму элементов массива...

Программа про массив
В заданной целочисленной матрице NxM найти номер последней из её строк , содержащих максимальное...

Программа на одномерный массив
Дан одномерный массив а1, ... ,аn. n&gt;6. Основную программу я написал. А в конце нужно вывести три...

программа на одномерный массив
Мне требовалось найти количество нулевых элементов массива,сумму положительных элементов...

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