Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
5
Добавлен:
02.05.2014
Размер:
24.06 Кб
Скачать

Максимум

Dim x(10) As Variant

Private Sub Command1_Click()

Picture1.Cls

Picture2.Cls

List1.Clear

k = 0

Max = -1000

For i = 1 To 10

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

List1.AddItem x(i)

If x(i) >= Max Then Max = x(i)

Next

For i = 1 To 10

If x(i) = Max Then k = k + 1

Next

Picture1.Print Max

Picture2.Print k

End Sub

Private Sub Command2_Click()

End

End Sub