Найти номера всех отрицательных элементов массива - 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