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