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

ЗАДАНИЕ 6 на тему «Одномерные массивы»

Заполнить массив из 5-ти чисел. Определить порядковые номера ячеек массива, содержащих чётные значения (чётные числа делятся на 2 без остатка, то есть Число mod2=0).

Решение:

<br> Sub задание6()<br> Dim a(1 To 5) As Single, i As Byte, s As String 'инициализируем переменные и массив'<br> For i = 1 To 5<br> <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" alt="">

a(i) = Val(InputBox(«A(» + Str(i) + ")=", «Введите 5 чисел», "")) 'заполняем массив'
Next i
For i = 1 To 5 'начало цикла'
If a(i) Mod 2 = 0 Then 'ищем четные'
s = s + " " + Str(i) 'запоминаем номер ячейки с четным значением'
End If
Next i
MsgBox «Порядковые номера ячеек массива с четными значениями: » + vbCrLf + s 'выводим результат'
End Sub

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