Одномерный массив в vb6

Рейтинг: 0Ответов: 1Опубликовано: 16.11.2014

Задача

Дан массив целых чисел 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
массивы visual-basic vb6
Источник: Stack Overflow на русском

Ответы

▲ 1

Visual-Basic не знаю. Подскажу алгоритм:

{Индексация массива идет с 0; n - длина массива; }
Вывод(A[0])
Для i от 1 до n:
    Если A[i-1] >= A[i] то
        Вывод("Новая возрастающая последовательность: " + A[i] + ", ");
    Иначе
        Вывод(A[i] + ", ");