Заполнение двухмерного массива А(N,M) числами в диапазоне [-99,99] - VB
Формулировка задачи:
Здраствуйте. Помогите пожалуйста решить задачу по заполнению двухмерного массива А(N,M) числами в диапазоне [-99,99]. Найти количество и суму чисел которые делятса целыми на суму их индексов. Заранее благодарен.
Решение задачи: «Заполнение двухмерного массива А(N,M) числами в диапазоне [-99,99]»
textual
Листинг программы
Option Explicit
Private Sub Form_Load()
Dim N As Integer, M As Integer, X As Integer, Y As Integer, _
Summa As Integer, Count As Integer
Dim A() As Integer
Me.AutoRedraw = True
Randomize Timer
N = InputBox("Введите N:")
M = InputBox("Введите M:")
ReDim A(1 To N, 1 To M)
Me.Print "Исходный массив:"
For Y = 1 To M
For X = 1 To N
A(X, Y) = Int(Rnd * 199) - 99
Me.Print A(X, Y); ", ";
If A(X, Y) Mod (X + Y) = 0 Then
Summa = Summa + A(X, Y)
Count = Count + 1
End If
Next X
Me.Print
Next Y
Me.Print "Количество искомых элементов: "; Count
Me.Print "Сумма искомых элементов: "; Summa
End Sub