Шпоры по информатике3 / Среднее арифмет

Среднее арифметическое

Dim x(10) As Variant

Private Sub Command1_Click()

Picture1.Cls

Picture2.Cls

Picture3.Cls

List1.Clear

For i = 1 To 10

x(i) = Val(InputBox("Введите очередное значение переменной", "Ввод данных"))

List1.AddItem x(i)

If x(i) < 0 Then

s = s + x(i)

k = k + 1

cr = s / k

End If

Next

Picture1.Print k

Picture2.Print s

Picture3.Print cr

End Sub

Private Sub Command2_Click()

End

End Sub