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

vozmax = Right (vozrast(i), 1)

If vozmin >= 1 And vozmax <= 3 Then

List5. AddItem nazvanieigr(i)

List6. AddItem cena(i)

List7. AddItem vozrast(i)

End If

Next i

End Sub

Стоимость самой дорогой игрушки и её наименование

Private Sub mnuMostExpensive_Click()

Dim cenaMax As Currency

List5. Clear

List6. Clear

List7. Clear

cenaMax = cena(1)

For i = 1 To 10

If cena(i) > cenaMax Then cenaMax = cena(i): l = i

Next i

List5. AddItem nazvanieigr(l)

List6. AddItem cenaMax

List7. AddItem vozrast(l)

End Sub

Название игрушки, не превышающей x руб. и подходящей ребёнку в возрасте от a до b лет.

Private Sub mnuYourChoose_Click()

Dim a As Integer, b As Integer, x As Currency, c As Integer, d As Integer

List5. Clear

List6. Clear

List7. Clear

a = Val (Text1. Text)

b = Val (Text2. Text)

x = Val (Text3. Text)