Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Boberp
0 / 0 / 0
Регистрация: 26.05.2018
Сообщений: 48
1

Как реализовать цикл

26.05.2018, 13:32. Просмотров 709. Ответов 3
Метки нет (Все метки)

Помогите пожайлуста дополнить данный код, задание во вложении
Visual Basic
1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Dim S As Double
S = 0
For i = 1 To 50 Step 1
S = S + Sqr(i)
TextBox1.Text = S
Next i
End Sub
0
Миниатюры
Как реализовать цикл  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2018, 13:32
Ответы с готовыми решениями:

Реализовать цикл отправки
На форме: два TextBox, один таймер, два порта COM1 и COM2 и одна кнопка. Задача: сделать...

Как сделать цикл с постусловием?
это цикл с предусловием? Как сделать с постусловием? Private Sub CommandButton1_Click() Dim x As...

Как будет выглядеть цикл Do.Loop?
Как мне сделать цикл Do....Loop для этого кода? Private Sub Command1_Click() Picture1.Cls...

Как перебрасывать числа в цикл for next из access ?
как перебрасывать числа в цикл for next из access ? тоесть в access есть столбец случайных...

Как сделать цикл с непоследовательными значениями?
Как можно сделать так, чтобы цикл перебирал значения, допустим, от 1 до 5 и от 10 до 25..То есть,...

3
Argus19
10 / 11 / 1
Регистрация: 24.09.2017
Сообщений: 44
26.05.2018, 14:28 2
У вас обратная последовательность. Т.е. сначала корень из 50, потом корень из 49 + то, что получилось из предыдущего вычисления и т.д. Так?
1
Остап Бонд
674 / 423 / 212
Регистрация: 17.08.2017
Сообщений: 1,043
26.05.2018, 15:31 3
Лучший ответ Сообщение было отмечено Boberp как решение

Решение

Boberp, где проблему увидели?
Идёте с нужного конца- получаете результат:
Visual Basic
1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Dim S As Double, i As Long
S = 0
For i = 50 To 1 Step -1
  S = Sqr(i + S)
  TextBox1.Text = S
Next i
End Sub
1
Boberp
0 / 0 / 0
Регистрация: 26.05.2018
Сообщений: 48
26.05.2018, 15:45  [ТС] 4
Спасибо понял ошибку, пытался идти сначала
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2018, 15:45

Как создать кучу файлов через цикл?
Итак: задача - создать множество файлов (можно пустых) с порядколвыми номерами от 1 до n в заданой...

не понимаю как реализовать одновременную работу процессов, как сделать так, что бы они одновременно проверяли доступен ресурс или нет
Здравствуйте! Подскажите, как можно одновременно запустить проверку условия. Я пытаюсь написать...

Расписание на VB. Как реализовать?
Нужно реализовать на ВБ график работы врачей. Т.е. есть временная сетка, а ее ячейках врачи,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru