VvodDannih

End Sub

Private Sub Form_Load()

List1.AddItem 1

List1.AddItem -4

List1.AddItem 2

List1.AddItem -5

List1.AddItem -2

List1.AddItem 5

List1.AddItem -3

List1.AddItem 8

List1.AddItem -5

List1.AddItem 1

End Sub

Sub VvodDannih()

Dim m(1 To 10) As Integer

For i = 1 To 10

m(i) = List1.List(i - 1)

Next i

Debug.Print "Исходный массив"

For i = 1 To 10

Debug.Print m(i);

Next i: Debug.Print: Debug.Print

Call cv24(m())

End Sub

Sub cv24(m1() As Integer)

k = 10

c = 1

For i = 1 To k

For j = k To i Step -1

If i <> j And i <> j - 1 And m1(i) Mod 2 = 0 And m1(j) Mod 2 = 0 Then k = j - 1: s = m1(i): m1(i) = m1(j): m1(j) = s: Exit For

Next j

Next i

Debug.Print "Новый массив"

For i = 1 To 10

Debug.Print m1(i);

Next i: Debug.Print: Debug.Print

End Sub

25. В одномерном массиве из положительных и отрицательных чисел найти произведение первого положительного числа и первого отрицательного числа.

Ввод случайно, вывод label

Sub zadacha25()

Dim m(1 To 8) As Integer

Randomize Timer

For i = 1 To 8

m(i) = Int(Rnd() * 100) + 1 - 50

Next i

Debug.Print "Исходный массив"

For i = 1 To 8

Debug.Print m(i);

Next i: Debug.Print: Debug.Print

Call cv25(m())

End Sub

Sub cv25(m1() As Integer)

For i = 1 To 8

If m1(i) > 0 Then l = m1(i): Exit For

Next i

For i = 1 To 8

If m1(i) < 0 Then g = m1(i): Exit For

Next i

p = l * g

Label1.Caption = "Произведение " & Str(p)

End Sub

Private Sub Command1_Click()

zadacha25

End Sub