Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Шпоры по информатике3 / Максимум
.docМаксимум
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
Соседние файлы в папке Шпоры по информатике3