Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Лабораторная работа 6.2. Использование динамических массивов




Задание аналогичное лабораторной работе 6.1., но размер массива задается во время работы приложения из элемента управления класса TextBox.

Ход работы:

1. Запустите Microsoft Visual Basic 6.0 (см. Запуск Visual Basic 6.0.)

2. Выберите тип проекта StandardEXE и нажмите кнопку Открыть. Появится среда разработки Visual Basic. Должна быть доступна панель элементов управления (см. Панель элементов управления) и открыт конструктор форм (см. Конструктор форм)

3. Создайте на форме элементы управления, как показано на рисунке 6.2.

Рисунок 6.2. Элементы управления и их свойства к лабораторной работе 6.2.

4. Перейдите в редактор кода и напишите следующий код:

Private Sub cmdStart_Click()

Dim lngArray() As Long 'Массив

Dim lngArraySize As Long 'Размер массива

Dim lngCounter As Long 'Счётчик

Dim lngMin As Long 'Максимальный элемент массива

Dim lngMax As Long 'Минимальный элемент массива

 

'Установка размера массива

lngArraySize = txtArraySize.Text

ReDim lngArray(1 To lngArraySize)

'Инициализация генератора случайных чисел

Randomize -Time

'Заполнения массива случайными числами

For lngCounter = 1 To lngArraySize

lngArray(lngCounter) = Int(1000 * Rnd)

Next lngCounter

'Вывод содержимого массива в TextBox

txtArray.Text = ""

For lngCounter = 1 To lngArraySize

txtArray.Text = txtArray.Text & lngArray(lngCounter) & " "

Next lngCounter

 

lngMin = lngArray(1)

lngMax = lngArray(1)

For lngCounter = 2 To lngArraySize

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» содержимым массива, в окне сообщений выводится максимальный и минимальный элемент массива.

 

 

Лабораторная работа 6.3. Операции с матрицами ###


Глава 7. Стандартные элементы управления





Дата добавления: 2014-12-23; Просмотров: 273; Нарушение авторских прав?;


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



ПОИСК ПО САЙТУ:


Читайте также:

  1. Axiom внезапно прекратил работать после успешной инсталляции на компьютере.
  2. Barbie: использование капитала маркина международных рынках 1 страница
  3. Barbie: использование капитала маркина международных рынках 10 страница
  4. Barbie: использование капитала маркина международных рынках 11 страница
  5. Barbie: использование капитала маркина международных рынках 12 страница
  6. Barbie: использование капитала маркина международных рынках 2 страница
  7. Barbie: использование капитала маркина международных рынках 3 страница
  8. Barbie: использование капитала маркина международных рынках 4 страница
  9. Barbie: использование капитала маркина международных рынках 5 страница
  10. Barbie: использование капитала маркина международных рынках 6 страница
  11. Barbie: использование капитала маркина международных рынках 7 страница
  12. Barbie: использование капитала маркина международных рынках 8 страница

studopedia.su - Студопедия (2013 - 2022) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление
Генерация страницы за: 0.017 сек.