Есть исходный код и готовая форма. Необходимо из этого шаблана создать новый массив между первым минимальным и последнием максимальным значением и их сумму.
Как это сделать?
В данном случае программа выделяет нечетные числа.
сам кодPrivate Sub Command1_Click()
Dim A() As Integer
Dim N%, I%, K%
Dim SP As String
N = InputBox("размер массива N=")
Text3.Text = Str(N)
ReDim A(1 To N) As Integer
For I = 1 To N
A(I) = InputBox("A(" + Str(I) + ")=")
Next I
SP = ""
For I = 1 To N
SP = SP + Str(A(I)) + " "
Next I
Text1.Text = SP
For I = 1 To N
List1.List(I - 1) = A(I)
Next I
K = o
For I = 1 To N
If Abs(A(I)) Mod 2 <> 0 Then K = K + 1: List2.List(K - 1) = A(I)
Next I
If K = 0 Then Text2.Text = "таких нет"
End Sub
Private Sub Command2_Click()
End
End Sub
форма
