Найти номер последнего отрицательного числа массива - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте. Помогите пожалуйста с задачей. Подобных тем много, но к сожалению я не смог разобраться Дан массив целых чисел - A={ai}, где i={1,2...n}. Найти номер последнего отрицательного числа или напечатать "Отрицательных чисел нет!" Например: Если А={2,4,-3,0,5,-2,5} , то результат:6 (число -2) Код, к сожалению, не работает, пожалуйста помогите

Решение задачи: «Найти номер последнего отрицательного числа массива»

textual
Листинг программы
Option Explicit
'Private Declare Sub Sleep Lib "kernel32" ( _
  ByVal dwMilliseconds As Long)
Dim i As Integer, l  As Integer
'Dim maxl  As Integer, max As Integer
Dim Msi() As Integer
'Dim A As Integer
 
Private Sub Command2_Click()
    If Text1.Text <> "" Then
        Randomize
        l = CInt(Text1.Text) - 1
        ReDim Msi(l)
        For i = 0 To l
            Msi(i) = Round(Rnd(1) * 20 - 10, 0)
        Next i
        Text2.Text = CStr(Msi(0))
        'maxl = 0
        'max = Msi(0)
        For i = 1 To l
            Text2.Text = Text2.Text + ", " + CStr(Msi(i))
        Next i
    End If
End Sub
 
Private Sub Command3_Click()
  Dim n As Integer
  n = UBound(Msi, 1) + 1
  For i = UBound(Msi, 1) To 0 Step -1
       If Msi(i) < 0 Then
          Label1.Caption = "Hомер последнего отрицательного " & n 'Msi(i)
          Exit Sub
       End If
       n = n - 1
  Next i
  'Debug.Print "Отрицательных чисел нет"
  Label1.Caption = "Отрицательных чисел нет"
End Sub

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


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

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

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