Visual Basic FAQ

Создать вектор, содержащий суммы элементов строк массива

Дана матрица A(2,2). Получить из нее вектор, содержащий суммы элементов строк. Отсортировать его в порядке убывания элементов. Создать подпрограмму для вычисления суммы элементов строк.

Option Explicit

Private Sub Form_Load()
  Dim i%, j%, m%, z%, Max%
  Dim A(5, 5) As Integer, B(5) As Integer, S1 As Integer, S2 As Integer, S3 As Integer, S4 As Integer, S5 As Integer
  Show '?
  For i = 0 To 4
    For j = 0 To 4
      A(i, j) = Int(4 * Rnd + 1)
      Picture1.Print A(i, j);
    Next j
    Picture1.Print
  Next i

  S1 = SUMMA(A, 0) ', 2)
  S2 = SUMMA(A, 1) ', 2)
  S3 = SUMMA(A, 2) ', 2)
  S4 = SUMMA(A, 3) ', 2)
  S5 = SUMMA(A, 4) ', 2)
  Text1 = S1
  Text2 = S2
  Text3 = S3
  Text4 = S4
  Text5 = S5

For j = 0 To 4
'B(j) = 0 'присвоение начального значения
'элемента вектора For / = / То 5
B(j) = B(j) + SUMMA(A, j) 'вычисление суммы в цикле Next / Next J
  Picture2.Print B(j);
  Next j

For i = 0 To 4 'начало цикла
'нахождение максимума
Max = B(i)
For j = i To 4
If B(j) > Max Then
Max = B(j) ' определение максимума
z = j 'присвоение переменной значения
End If
Next j
'сортировка
B(z) = B(i)
B(i) = Max
Picture3.Print Max
Next i 'конец цикла
End Sub

Function SUMMA(A, m) ', n) ?
  Dim j%
  'SUMMA = 0 '???
  For j = 0 To 4 'n ?
    SUMMA = SUMMA + A(m, j)
  Next j
End Function

Запись опубликована on 25.02.2011 at 9:31 и размещена в рубрике: Массив. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.