Найти номера всех отрицательных элементов массива - VB
Формулировка задачи:
Здраствуйте, помогите с VB , его знаю плохо.И мне нужно сделать задачи, и не знаю как. Восновном из за массивов и алгаритмов решения(
1 Найти номера всех отрицательных элементов (вывести их на экран), если таких нет, то сообщить об этом. (Задачи на одномерные массивы)
2. Найти номера всех максимальных элементов.(задачи на двумерные массивы)
3. Удалить столбец, в котором находится минимальный элемент.(Вставка, удаление и перестановка элементов)
Решение задачи: «Найти номера всех отрицательных элементов массива»
textual
Листинг программы
Private Sub Command1_Click() Dim i, j, otvet, n As Byte, m As Byte, a() As Single, indx As Byte n = InputBox("N") m = InputBox("M") ReDim a(1 To n, 1 To m) As Single For i = 1 To n For j = 1 To m a(i, j) = InputBox("element : " & i & j) otvet = otvet & a(i, j) & Space(2) Next j otvet = otvet & Chr(13) & Chr(13) Next i MsgBox "Matrix : " & Chr(13) & Chr(13) & otvet Min = a(1, 1) indx = 1 For i = 1 To n For j = 1 To m If a(i, j) < Min Then Min = a(i, j): indx = j Next j Next i If indx <> m Then For i = 1 To n For j = indx To m - 1 a(i, j) = a(i, j + 1) Next j Next i ElseIf indx = m Then ReDim Preserve a(1 To n, 1 To m - 1) End If ReDim Preserve a(1 To n, 1 To m - 1) otvet = "" For i = 1 To n For j = 1 To m - 1 otvet = otvet & a(i, j) & Space(2) Next j otvet = otvet & Chr(13) & Chr(13) Next i MsgBox "Matrix : " & Chr(13) & Chr(13) & otvet End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д