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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.077 из 5
Похожие ответы