Поменять местами 3 и 8 элементы массива - VB

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

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

в Visual Basic нужно написать программки: 1.Поменять местами 3 и 8 элементы массива A(10) 2.Дан двумерный массив Z(6,8). Найти сумму элементов каждого четного столбца и произведение элементов в каждой нечетной строке. 3.Найти максимальный элемент массива С(10,15). очень очень нужно(( сама ноль в этом..

Решение задачи: «Поменять местами 3 и 8 элементы массива»

textual
Листинг программы
Private Sub Command1_Click()
Dim Z(1 To 6, 1 To 8) As Single
Dim sum As Single, P As Single
Randomize
For i = 1 To 6
    For j = 1 To 8
        Z(i, j) = Int(10 * Rnd + 1)
    Next j
Next i
P = 1
For i = 1 To 6 Step 2
    For j = 1 To 8
        P = P * Z(i, j)
    Next j
Next i
For i = 2 To 8 Step 2
    For j = 1 To 6
        sum = sum + Z(j, i)
    Next j
Next i
MsgBox "Sum=" & sum & Chr(13) & "Pr=" & P
End Sub
 
Private Sub Command2_Click()
Dim C(1 To 10, 1 To 15) As Single, max As Single
max = -99999999
Randomize
For i = 1 To 10
    For j = 1 To 15
        C(i, j) = Int(100 * Rnd - 50)
        If C(i, j) > max Then max = C(i, j)
    Next j
Next i
MsgBox max
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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