Найти элементы массива, образующие возрастающую последовательность - VB

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

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

Помогите пожалуйста. Не получается решить задачу
Вот так я задал случайный массив? Подскажите пожалуйста, как найти элементы в нем, которые образуют возрастающую последовательность?

Решение задачи: «Найти элементы массива, образующие возрастающую последовательность»

textual
Листинг программы
'Private Declare Sub Sleep Lib "kernel32" ( _
  ByVal dwMilliseconds As Long)
Dim i As Integer, l As Integer
Dim Msi() As Integer
 
 
Private Sub Command2_Click()
    Dim s As String
    If Val(Text1.Text) <> 0 Then
        Randomize
        l = CInt(Text1.Text) - 1
        ReDim Msi(l)
        For i = 0 To l
            Msi(i) = Int(Rnd * 21 - 10)
        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
        Text3.Text = ""
        For i = 0 To l
            s = Msi(i)
            For j = i + 1 To l
               If Msi(j) <= Msi(j - 1) Then Exit For
               s = s & ", " & CStr(Msi(j))
               i = j
            Next j
            If UBound(Split(s, ",")) > 0 Then Text3.Text = Text3.Text & s & vbCrLf
        Next i
    End If
End Sub

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


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

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

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