Студопедия

КАТЕГОРИИ:


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

Ход работы. 1. Создайте папку Лабораторная_работа_№9, а в ней папку 9.1





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

1. Создайте папку Лабораторная_работа_№9, а в ней папку 9.1.

2. Запустите программу Microsoft Visual Basic 6.0.

3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».

4. Расположите на форме 2 компонента CommandButton, 2 компонента TextBox и 2 компонента Label.

5. Установите свойства компонентов согласно Таблице 9.1 или ориентируясь на внешний вид приложения, представленный на Рис.9.1.

Таблица 9.1 – Значения свойств компонентов приложения «Заполнение массива»

Компонент Свойство Значение
Form1 Caption Заполнение одномерного массива
Name frmМассив
MinButton, MaxButton False
Command1 Caption Заполнение массива
Name cmdЗаполнение
Command2 Caption Очистить
Name cmdОчистка
TextBox1 Text  
Name txtN
TextBox2 Text  
Name txtМассив
ScrollBars 2 – Vertical
Multiline True
Label1 Caption Количество элементов массива
Label2 Caption Исходный массив
Для всех компонентов свойство Font и Color – по своему усмотрению У компонентов CommandButton свойство Style = 1 Graphical

 

6. Напишите обработчик события по кнопке «Заполнение массива», не забывая объявить переменные в начале программы. После знаков апострофов приведены необходимые комментарии.

Dima()As Single ' Массив объявлен как динамический

DimKAs String 'строковое числовое данное, введенное в окно InputBox

Dim n As Integer ' n - количество элементов в массиве

DimiAs Integer ' i - счетчик цикла

Private Sub CmdЗаполнить_Click()

n = Val(txtN.Text) ' Вводим количество элементов в массиве

ReDima (1 To n) ' переопределение массива

txtМассив.Text = ""

Fori = 1 To n

K = InputBox("Введите "+Str(i) + " число", "Заполнение массива")

a(i) = Val(K)

txtМассив.Text = txtМассив.Text + " " + Str(a(i))

Nexti





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


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



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


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




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