| Код |
Const n = 5 ' определяем размерность масива
Public masiv(n) As Integer ' задаём масив
Private Sub Command1_Click()
Dim k, s, i As Integer
Dim chislo As Variant ' чтобы не вызвать ошибки в программе делаем эту переменную типа вариант (т.е. может принимать любые значения: строковые, числовые, логические и т.д.
'Метод 1: вводим значения элементов матрицы через цикл
For i = 1 To n
vvod:
chislo = InputBox("Введите " & i & " элемент масива", "Ввод чисел")
If IsNumeric(chislo) = True Then ' проверка на то, ввёл ли пользователь число или что-то
masiv(i) = chislo ' если число, то зановсим его в массив
Else
GoTo vvod: ' если не число, то повторяем ввод
End If
Next
'Метод 2: вводим значения элементов матрицы руками
'Этот метод хуже тем, что если будет 1000 элементов мы устане вводить.
'masiv(1) = -3
'masiv(2) = 6
'masiv(3) = 8
'masiv(4) = 10
'masiv(5) = 9
For i = 1 To n
If masiv(i) Mod 3 = 0 Then ' если кратно трём, то...
k = k + 1 ' суммируем кол-во элементов кратных 3ём
s = s + masiv(i) ' суммируем занчения
End If
Next
MsgBox "Количество элементов кратных 3ём: " & k & vbCrLf & "Сумма : " & s
End Sub
|
|