Задача
Дан массив целых чисел A = (ai), где i =(1,2,3,...,n). Напечатать числа, образующие возрастающую последовательность.
Например: если А={2,3,4,0,-1,2,-2,0,5}, результат 2,3,4 и -1,2.
Числа вводятся в отдельный текстовый блок, эту часть я сделал, а вот, как решить непосредственно задачу - понятия не имею.
Код:
Dim n, nw, min, i As Integer
Dim nws As String
Dim Msi() As Integer
Private Sub Command1_Click()
If Text2.Text <> "" Then
n = n + 1
nws = Text2.Text
Text2.Text = ""
nw = CInt(nws)
nws = CStr(nw)
If n = 1 Then Text1.Text = nws Else Text1.Text = Text1.Text + ", " + nws
ReDim Preserve Msi(n - 1)
Msi(n - 1) = nw
End If
End Sub
Private Sub Command2_click()
For i = 1 To n
If Msi(n) < Msi(n - 1) Then
Text3.Text = Text3.Text + ", " + Msi(n) + "," + Msi(n - 1)
End If
Next i
End Sub