Найти номер последнего отрицательного числа массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д