17036

Одномірні масиви в Visual BASIC

Лабораторная работа

Информатика, кибернетика и программирование

Лабораторна робота №14 Тема. Одномірні масиви Мета: відробити прийоми створення одномірних статичних масивів у VB. Обладнання: ПК ПЗ VB 6.0. Хід роботи Індивідуальне завдання. Скласти програму в VB 6.0 для розвязання задачі. 19 ...

Украинкский

2013-06-29

39 KB

8 чел.

Лабораторна робота №14

Тема. Одномірні масиви

Мета: відробити прийоми створення одномірних, статичних  масивів у VB.

Обладнання: ПК, ПЗ VB 6.0.

Хід роботи

Індивідуальне завдання.

Скласти програму в VB 6.0 для розв’язання задачі.

19

Знайти кількість елементів менших заданого значення w.

Листинг

Результат

Private Sub Command1_Click()

Dim a(1 To 5) As Double, i As Integer, w As Double, l As Integer

a(1) = Text1.Text

a(2) = Text2.Text

a(3) = Text3.Text

a(4) = Text4.Text

a(5) = Text5.Text

w = Text6.Text

For i = 1 To 5

If a(i) < w Then l = l + 1

Next

Text7.Text = l

End Sub

Контрольні питання.

  1.  Дайте визначення масиву.
  2.  Дайте визначення статичного масиву.
  3.  Синтаксис оголошення одномірного масиву.


 

А также другие работы, которые могут Вас заинтересовать

56509. Выставки-ярмарки как инструмент продвижения товара ОАО «Савушкин продукт» 241.72 KB
  Проанализировать основные показатели хозяйственной деятельности ОАО «Савушкин продукт» за 2011-2012г. Провести анализ организационно-экономических характеристик ОАО «Савушкин продукт». Рассказать об средствах рекламы ОАО «Савушкин продукт».
56510. Сценарій тренінгу: «Як без перешкод здійснити свої мрії?» 31.5 KB
  Мета: На прикладах показати дітям, що в житті кожного повинні бути цілі. Вчитися аналізувати і змінювати свої цілі, якщо це знадобиться. Спонукати до того, щоб діти замислювалися над своїми мріями, над тим, чого вони прагнуть отримати від життя.
56511. Усвідомлений вибір майбутнього покликання, професійної діяльності – запорука життєвого успіху (інформаційно–ігровий тренінг для учнів 8–11 класів) 138 KB
  Основна мета: активізація самосвідомості учнів щодо формування свого майбутнього покликання. Майбутньої професійної діяльності; залучення учнів до гри, групової тренінгової роботи; створення сприятливого психологічного клімату при проведенні заняття.
56512. КОНВЕРГЕНЦИЯ ФОРМ И ТИПОВ ТЕЛЕПЕРАДАЧ 50.96 KB
  Само слово конвергенция произошло от латинского convergo — «сближаю». В английском языке convergence означает «схождение в одной точке». Павликова М. дает следующее определение, ссылаясь при этом на канадского исследователя СМИ и коммуникаций Дэниса Макуэйла...
56513. Тренінг для юних волонтерів – правозахисників «Діти мають захищати свої права» 68.5 KB
  Хід заняття Вступне слово тренера. Тренер: Як ви думаєте що необхідно знати дітям щоб вміти захищати свої права Усна відповідь дітей Тренер: Основна мета нашого заняття зясувати як діти мають захищати свої права.
56515. ТРЕНІНГ «ЗДОРОВ’Я – ЦЕ ЖИТТЯ» 42 KB
  Доброго дня Доброго здоровя. Зустрічаючись, люди, зазвичай, говорять це гарне добре слово бажаючи один одному здоровя. А що таке здоровя відповідь дітей.
56516. Справжня дружба 30 KB
  Тепер послухайте уважно! Чи знаєте ви, що діти молодшого шкільного віку дружать переважно через те, що живуть поряд і товаришують їхні батьки. А діти від 10 до 14 років майже завжди дружать...
56517. Тренінгове заняття «Світ батьків – світ дітей» 56.5 KB
  Ефективність заняття підвищиться якщо його проводити після батьківських зборів. Завдання: посилення ролі сім'ї в виховному процесі покращення стосунків між дітьми та батьками розвиток навичок взаєморозуміння підвищення психологічної компетентності батьків.