Напечатать первые числа из ряда, расположенные за отрицательными числами - VB
Формулировка задачи:
Дан массив целых чисел - А=(аi), где i={1,2....n}.
Напечатать первые числа, расположенные за отрицательными числами или "Отрицательных чисел нет!"
Например, если А={2, -4, -3, 0, 2, 5, -2, -8}, результат: -3, 0, -8.
__________________________________________________________
Можно ли сделать так, чтобы массив считывал с textbox1 - text1
А потом при нажатии на command1,напечатать на label1?
Решение задачи: «Напечатать первые числа из ряда, расположенные за отрицательными числами»
textual
Листинг программы
Private Sub Command1_Click()
Dim x() As Long, y() As Long, n, i As Integer
dim f as boolean
n = InputBox("Ввод размера массива", "Данные", 8)
ReDim x(1 To n), y(1 To n)
Me.Cls
For i = 1 To n
x(i) = Int(Rnd * (-10) + 1)
Print x(i) & vbTab;
Next i
y = x
Print
For i = 1 To (n - 1)
If y(i) < 0 Then
Print y(i + 1) & vbTab;
f=true
End If
Next i
if f=false then print "отрицательных чисел нет"
End Sub