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

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. Напишите обработчик события по кнопке «Заполнение массива», не забывая объявить переменные в начале программы. После знаков апострофов приведены необходимые комментарии.

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

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

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

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

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

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

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

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

For i = 1 To n

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

a(i) = Val(K)

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

Next i

Дата добавления: 2014-12-23