Контрольная по программированию на VBA для Excel Задание 4 Второй вариант.

ЗАДАНИЕ 4 на тему «Оператор цикла с параметром»

С клавиатуры вводятся 5 символов (цифры и латинские буквы). Найти сумму введённых чисел.

Решение:

Sub задание4()Dim i As Byte, a As Integer, b As Variant 'инициализируем переменные'<img src="http://data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7"/>

For i = 1 To 5 'начело цикла'
b = InputBox(«Введите число или латинскую букву», «Ввод данных: » + Str(i) + " число") 'вводим данные в переменную'
If IsNumeric(b) = True Then 'если число '
a = a + Val(b) 'вычисляем'
End If
Next i
MsgBox «Сумма введеных цисел равна » + Str(a) 'Выводим результат'
End Sub

188
RSS
Нет комментариев. Ваш будет первым!
Загрузка...
Этот сайт использует файлы cookies, чтобы облегчить вам пользование нашим веб-сайтом. Продолжая использовать этот веб-сайт, вы даете согласие на использование файлов cookies. Подробнее о том, как мы пользуемся файлами cookies и как ими управлять, вы можете узнать нажав на ссылку ниже.