Пример 3

Сформировать массив A(n) случайным образом на отрезке [-20,20]. Вычислить количество отрицательных элементов. Вывести исходный массив и массив, состоящий из модулей элементов исходного массива.

Private Sub Сформировать_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Сформировать.Click

n = InputBox("введите размерность массива")

r = 0

ReDim A(n)

Randomize()

For i = 0 To n

A(i) = Int(40 * Rnd(1) - 20)

If A(i) < 0 Then

r = r + 1

End If

исходный.Text = исходный.Text & A(i) & "; " 'vbCrLf

Next i

End Sub

Private Sub cmdOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOk.Click

For i = 0 To n

If A(i) < 0 Then

A(i) = Math.Abs(A(i))

End If

новый.Text = новый.Text & "A(" & i & ")=" & A(i) & vbCrLf

Next i

End Sub

Private Sub количество_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles количество.Click

счет.Text = Str(r)

End Sub