![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
Задание: В одномерном массиве из 100 элементов типа Long, заполненных случайным образом числами от 0 до 1000, найти минимальное и максимальное число.
Ход работы:
1. Запустите Microsoft Visual Basic 6.0 (см. Запуск Visual Basic 6.0.)
2. Выберите тип проекта StandardEXE и нажмите кнопку Открыть. Появится среда разработки Visual Basic. Должна быть доступна панель элементов управления (см. Панель элементов управления) и открыт конструктор форм (см. Конструктор форм)
3. Создайте на форме элементы управления, как показано на рисунке 6.1.
Рисунок 6.1. Элементы управления и их свойства к лабораторной работе 6.1.
4. Перейдите в редактор кода и напишите следующий код:
Private Sub cmdStart_Click()
Dim lngArray(1 To 100) As Long 'Массив
Dim lngCounter As Long 'Счётчик
Dim lngMin As Long 'Максимальный элемент массива
Dim lngMax As Long 'Минимальный элемент массива
'Инициализация генератора случайных чисел
Randomize -Time
'Заполнения массива случайными числами
For lngCounter = 1 To 100
lngArray(lngCounter) = Int(1000 * Rnd)
Next lngCounter
'Вывод содержимого массива в TextBox
txtArray.Text = ""
For lngCounter = 1 To 100
txtArray.Text = txtArray.Text & lngArray(lngCounter) & " "
Next lngCounter
lngMin = lngArray(1)
lngMax = lngArray(1)
For lngCounter = 2 To 100
If lngArray(lngCounter) < lngMin Then
lngMin = lngArray(lngCounter)
End If
If lngArray(lngCounter) > lngMax Then
lngMax = lngArray(lngCounter)
End If
Next lngCounter
MsgBox "Минимальный элемент массива равен:" & lngMax & vbCrLf & _
"Максимальный элемент массива равен:" & lngMin
End Sub
5. Запустите приложение.
Результат работы приложение: по клике на кнопку с надписью «Запуск», приложение заполняет массив случайными числами, заполняется TextBox с именем «txtArray» содержимым массива, в окне сообщений выводится максимальный и минимальный элемент массива.
Дата публикования: 2014-12-28; Прочитано: 176 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!