Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
AdelinaAries
04.08.2021 14:25 •
Информатика
Выведите на экран в строку сумму всех четных чисел первой сотни. visual basic 6.0
Ответ:
RykaBa3yka
24.07.2020 17:48
А на экран это куда? на форму? в текстовое поле? MessageBox? я не совсем понял
вот код формы, результат пишется на ней же
Private Sub Form_Activate()
For i = 2 To 100 Step 2
summ = summ + i
Next i
Print summ
End Sub
0,0
(0 оценок)
Популярные вопросы: Информатика
awdrg12345
14.07.2020 10:06
) Назови 4 робота из разных поколений.( ) 2) Чем отличаются роботы второго поколения от предшествующих? ( ) 3) Какие роботы будут в будущем? ( укажите не менее...
Neralyda
04.10.2022 21:21
2-тапсырма Робот кегельдердің бағытымен қозғала отырып, олар-ды шеңберден итеріп шығаруы қажет....
bomjikvitaly
16.08.2022 08:12
Производственный цех оборудован двумя вентиляционными установками повышенной мощности. В нормальном режиме работы, когда все установки включены, на управляющий контроллер...
andrewgray
22.09.2022 00:22
Ошибка времени выполнения: индекс находился вне границ массива как исправить? program a2; var s: string; i: integer; begin readln(s); for i: = 1 to length(s) do if s[i]=...
karinapoltawska
26.08.2022 12:19
2. Построить таблицу истинности: ¬A˅(B˄C)...
АндрейТалалев
30.04.2023 01:17
Составить плоговую словесную запись какого нибудь бытового разветвляющегося алгоритма и построить его схему ...
Bmadjdraw
14.11.2021 13:18
Даны действительные числа a, b, c. удвоить эти числа, если a =b =c и заменить их нулями, если это не так.(выполнить в кумире) ответ желательно скриншотом....
Romays
14.11.2021 13:18
Какова цель инструкция пользователя компьютера...
solovyevadasha
01.04.2020 00:17
Найти сумму квадратов чисел от 1 до 10 программа free pascal...
ДавыдоваЮлия5678
01.04.2020 00:17
Составить алгоритм нахождения значения выражения y=124+8x если x 5...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
вот код формы, результат пишется на ней же
Private Sub Form_Activate()
For i = 2 To 100 Step 2
summ = summ + i
Next i
Print summ
End Sub