Студопедия

КАТЕГОРИИ:


Архитектура-(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)

Массивы. Лабораторная работа 5.4. Циклы с применением оператора Do Loop





Помощь в написании учебных работ
1500+ квалифицированных специалистов готовы вам помочь

Лабораторная работа 5.4. Циклы с применением оператора Do…Loop.

Задание: Написать приложение, подсчитывающее сумму чисел, введенных в окне ввода, до тех пор, пока не будет введен ноль.

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

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

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

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

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

Private Sub cmdStart_Click()

Dim lngInputValue As Long

Dim lngSum As Long

 

'Обнулить сумму

lngSum = 0

Do

'Считать в переменную из окна ввода

lngInputValue = InputBox("Введите целое число:")

'Суммировать

lngSum = lngSum + lngInputValue

Loop While lngInputValue <> 0

'Вывести результат

MsgBox "Сумма введеных чисел=" & lngSum

End Sub

 

Результат работы приложения: при клике на кнопку с надписью «Старт» появится окно ввода (InputBox), в которое нужно будет вводить любые целые числа. После ввода нуля приложение в окне вывода сообщений (MsgBox) выдаст сумму введенных чисел.


Глава 6. Массивы.

Для хранения величин кроме простых переменных можно использовать массивы. Массив представляет собой набор переменных с одним именем и разными индексами. Каждая такая переменная называется элементом массива. Количество хранящихся в массиве элементов называется размером массива. Размер массива ограничен объемом оперативной памяти и типом данных элементов массива.

Все элементы массива имеют одинаковый тип. Однако если массив имеет тип Variant, то отдельные элементы могут содержать данные разных типов. Например, одни элементы могут быть числами, другие — строками или объектами.

Индекс элемента указывается в круглых скобках после имени массива. Например, strNames(l), strNames(2), strNames(1O) ЯВЛЯЮТСЯ элементами массива с именем strNames. Вы можете использовать каждый из элементов массива точно так же, как и простую переменную. В Visual Basic есть два типа массивов: фиксированного размера и динамический.

 





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


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



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


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




Генерация страницы за: 0.023 сек.