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