Составить предложение из диагональных элементов массива - VB
Формулировка задачи:
Задание :Дан двумерный строковый массив размерностью 5 X 5. Составить предложение из диагональных элементов массива. Строковые значения элементов массива задать произвольно.
Уважаемые , кто поможет , вовек не забуду!Помогите получить степуху братья!
Решение задачи: «Составить предложение из диагональных элементов массива»
textual
Листинг программы
Option Explicit
Private Sub Form_Load()
Dim Mtx() As String, i As Long, j As Long, f1 As String, f2 As String
ReDim Mtx(4, 4)
For j = 0 To UBound(Mtx, 1): For i = 0 To UBound(Mtx, 2)
Mtx(i, j) = InputBox("Введите элемент (" & CStr(i + 1) & "," & CStr(j + 1) & ")")
Next: Next
For i = 0 To UBound(Mtx, 1)
f1 = f1 & Mtx(i, i) & " "
f2 = f2 & Mtx(UBound(Mtx, 1) - i, i) & " "
Next
MsgBox f1 & f2
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д