2015-05-14
304
1. Расположите элементы управления на экранной форме в соответствии с рисунком. Для выбора способа заполнения массива использовать комбинированное окно ComboBox.
2. Значения свойств элементов управления, которые определяют внешний вид приложения установите по своему усмотрению.
3. Значения свойств Caption меток, кнопок и рамок установите в соответствии с рис 10.1.
4. Установите значения свойств объектов в соответствии со следующей таблицей:
Табл. 10.1
| Объект | Свойство | Значение свойства |
| Форма | Name Caption | frmМассив Способы заполнения массива |
| Текстовое окно | Name | txtN |
| Текстовое окно | Name | txtМассив |
| Текстовое окно | Name | txtMax |
| Текстовое окно | Name | txtnMax |
| Командная кнопка | Name | cmdМассив |
| Командная кнопка | Name | cmdMax |
| Комбинированное окно | Name | cboСпособ |
| Text | Выберите способ заполнения массива | |
| Style | ||
| List | Список должен содержать два способа заполнения: -ввод с клавиатуры -случайными числами |
5. Подробно разберите программный код, написанный для заполнения массива разными способами, а затем наберите его:
Option Explicit
Dim a() As Single ‘Массив объявлен как динамический, количество элементов в нем может быть различным
Dim i As Integer
Dim n As Integer
Dim K As String
Dim Max As Single, nMax As Integer
Dim ListIndex As Integer
Private Sub cmdМассив_Click()
n = Val(txtN.Text)’Введено количество элементов в массиве
ReDim a(1 To n) ’Переопределение массива. Количество элементов в массиве – n.
Select Case cboСпособ.ListIndex
Case 0
txtМассив.Text = ""
For i = 1 To n
K = InputBox("Введите число" + Str(i) + " число", "Заполнение массива")
a(i) = Val(K)
txtМассив.Text = txtМассив.Text + " " + Str(a(i))
Next i
Case 1
txtМассив.Text = ""
Randomize Timer
For i = 1 To n
a(i) = Int(100 * Rnd())
txtМассив.Text = txtМассив.Text + " " + Str(a(i))
Next i
End Select
