Двумерный массив - VB (58747)
Формулировка задачи:
Здравствуйте, у меня очередное задание которое я немогу зделать хотя знаю что оно лёгкое как перышко.
Вообщем я весь интернет перекопал и нашол только один пример, как правильно написать нужную мне программу. Вот задание:
Создать Двумерный массив (Любой длинны), и дать пользователю его заполнить.
После того, как пользователь заканчивает ввод данных в массив, нужно вывести массив на экран,
и найти наименьшее негативное число в массиве и показать его позицию.
Тоесть есле массив:
2 4 -6 -1
4 5 -6 5
5 1 12 -99
На экран выводится: Наименьшое число в масиве: -99 в позиции (2, 3).
Есле нету негативной записи в массиве, вывести это пользaвателю.
Вот код каторый переделал под себя:
Так вот вопрос, как можно вывести на экран мой массив каторый пользователь заполнил. (Я по логике это зделал в своём примере, но выводит : Subscript out of range.
Второй вопроc, как найти самый наименьший негативный елемент массива.
Благодарю за помощь.
Листинг программы
- Sub masivs()
- Dim Dbl_Array(3, 4) As Single
- Dim i As Integer, j As Integer
- For i = 1 To 3
- For j = 1 To 4
- Dbl_Array(i, j) = InputBox("Ievadi skaitli prieks" & " elementa: (" & i & " , " & j & ")", "Elementu ievade masiva rindai" & i)
- Next j
- Next i
- MsgBox Dbl_Array(i, j)
- End Sub
Решение задачи: «Двумерный массив»
textual
Листинг программы
- Function min-neg(A() as double) As double
- min-neg=0
- for i%=1 to Ubound(A,1)
- if A(i%)<0 and A(i%)<min-neg then min-neg=A(i%)
- next i%
- End function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д