1. Расположите элементы управления на экранной форме в соответствии с рисунком.
2. Значения свойств элементов управления, которые определяют внешний вид приложения установите в соответствии с рисунком.
3. Для комбинированного окна cboName введите пять значений (свойство List): Плащ; Шарф муж.; Пальто; Платье; Шарф жен.
4. Подробно разберите программный код, а затем наберите его:
Option Explicit
Dim v As String 'цена товара
Dim i As Integer, j As Integer 'переменные циклов
Dim no As String 'переменная для обмена наименований
Dim co As Single 'переменная для обмена цен
Dim C(0 To 4) As Single 'массив цен (несортированный)
Dim Cs(0 To 4) As Single 'массив цен (сортированный)
Dim Ns(0 To 4) As String 'массив наименований (сортированный)
Private Sub cmdВвод_Click()
Cls
If cboName.ListIndex >= 0 And cboName.ListIndex <= 4 Then
v = InputBox("Введите цену товара: " + cboName.Text, "Ввод цены")
i = cboName.ListIndex
C(i) = Val(v)
Else
MsgBox "Выберите наименование товара", 48, "Ошибка"
End If
End Sub
Private Sub cmdВывод_Click()
Cls
|
|
Print: Print: Print: Print: Print: Print:
Print: Print: Print: Print: Print: Print: Print: Print
Print: Print: Print: Print
Print Tab(10); "Наименование"; Tab(40); "Цена"
For i = 0 To 4
cboName.ListIndex = i
Print Tab(10); cboName.Text; Tab(40); C(i)
Next
End Sub
Private Sub cmdСортировка_Click()
For i = 0 To 4
cboName.ListIndex = i
Ns(i) = cboName.Text
Cs(i) = C(i)
Next i
For j = 0 To 3
For i = 0 To 3
If Ns(i) > Ns(i + 1) Then
Call Exchange(Ns(), i, i + 1) 'если происходит обмен в массиве названий,
Call Exchange(Cs(), i, i + 1) 'то соответствующий обмен происходит в массиве цен
End If
Next i
Next j
Cls
Print: Print: Print: Print: Print: Print: Print: Print: Print: Print: Print: Print: Print: Print
Print Tab(10); "Наименование"; Tab(40); "Цена"
For i = 0 To 4
Print Tab(10); Ns(i); Tab(40); Cs(i)
Next i
End Sub
Private Sub Exchange(Mass As Variant, k As Integer, p As Integer)
Dim Box As Variant
Box = Mass(k)
Mass(k) = Mass(p)
Mass(p) = Box
End Sub
5. Сохраните проект под именем Лр10_Зад13 _Фамилия
6. Проверьте правильность работы проекта.
7. Дополните проект еще одной командной кнопкой, при нажатии на которую список наименований товаров с соответствующими ценами выводится в порядке убывания цен.
8. Сохраните проект.