Матрицы - VB

Узнай цену своей работы

Формулировка задачи:

Как можно сделать так, чтобы матрица выводилась на экран и элементы матрицы выводились рандомно?

Решение задачи: «Матрицы»

textual
Листинг программы
Sub myProg()
 
 
Dim i As Integer, j As Integer, n As Integer, m As Integer
Dim mas() As Integer
Dim sum As Integer
 
 
NAX:
  m = InputBox("Vvedite razmer matricy m:")
If m <= 0 Then GoTo NAX
 
NEX:
  n = InputBox("Vvedite razmer matricy n:")
If n <= 0 Then GoTo NEX
 
ReDim mas(1 To m, 1 To n) As Integer
 
For i = 1 To m
  For j = 1 To n
    mas(i, j) = 50 * Rnd - 25
    Print mas(i, j);
Next: Print
Next
 
sum = 0
For i = 1 To m
  If (i Mod 2) = 0 Then
    For j = 1 To n
       sum = sum + mas(i, j)
    Next j
  End If
Next i
MsgBox "Summa elementov chetnyh strok matricy:" & sum
 
End Sub

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы