Составить предложение из диагональных элементов массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
