double arrow

Порядок действий. 1. Расположите элементы управления на экранной форме в соответствии с рисунком


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); "Цена"




Print

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); "Цена"

Print

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. Сохраните проект.







Сейчас читают про: