Курсовая работа: Автоматизированная система "Медицинские организации города"

Cls

k = 0

For i = 1 To 10

vozmin = Left (vozrast(i), 1)

vozmax = Right (vozrast(i), 1)

If vozmin >= a And vozmax <= b And cena(i) <= x Then

k = k + 1

List5. AddItem nazvanieigr(i)

List6. AddItem cena(i)

List7. AddItem vozrast(i)

End If

Next i

Ifk = 0 ThenMsgBox«У нас нет таких игрушек!»

End Sub

Выход из приложения

Private Sub mnuExit_Click()

End

End Sub

Многострочный выбор

Private Sub List1_Click()

List5. Clear

List6. Clear

Text1. Text = «»

Text2. Text = «»

Text3. Text = «»

For i = 0 To List1. ListCount – 1

If List1. Selected(i) Then List5. AddItem (List1. List(i)): List6. AddItem (List2. List(i)): List7. AddItem (List4. List(i))

Next i

End Sub

Очистка заполненных данных

Private Sub mnuClearAll_Click()

List1. Clear