Заполнение ListBox данными из блокнота.
да
нет
Текст программы на языке Visual Basic
| Формирование массивов данных |
| Dim nazvanieigr(10) As String, cena(10) As Currency, kolichestvo(10) As Integer, vozrast(10) As String Private Sub mnuAdd_Click() 'формирование массивов данных' Open «D:\Faildannix.txt» For Input As #1 For i = 1 To 10 Input #1, nazvanieigr(i), cena(i), kolichestvo(i), vozrast(i) List1. AddItem nazvanieigr(i) List2. AddItem cena(i) List3. AddItem kolichestvo(i) List4. AddItem vozrast(i) Next i Close #1 End Sub |
| Названия игрушек, которые подходят детям от 1 до 3 лет |
| Private Sub mnuToy_Click() List5. Clear List6. Clear List7. Clear Cls For i = 1 To 10 vozmin = Left (vozrast(i), 1) 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) If Text1. Text = «» Or Text2. Text = «» Or Text3. Text = «» Then MsgBox «Введите правильно все данные» 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 If k = 0 Then MsgBox «У нас нет таких игрушек!» 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 List2. Clear List3. Clear List4. Clear List5. Clear Text1. Text = «» Text2. Text = «» Text3. Text = «» End Sub |
Анализ полученного результата
Form заполнена данными
При выполнении действий Форма – Заполнение данными мы наблюдаем следующее
2.4.2 Выполнена 1‑ая задача
Задачи – Для детей 1–3 лет: наблюдаем вывод перечня тех игрушек, которые подходят детям в возрасте от 1 до 3 лет.
2.4.3 Выполнена 2‑ая задача
Задачи – Самая дорогая игрушка: получаем стоимость, название и возрастные границы этой игрушки.
2.4.4 Выполнена 3‑ья задача
Пользователь вводит нужные для него параметры, по которым он сможет определить игрушку, подходящую его ребёнку.
При выполнении следующих действий: Задачи – На ваш выбор вы получите перечень тех игрушек, которые вам подходят.
В случае же, если нет таких игрушек будет выведено диалоговое окно с сообщением об этом.
Дата: 2019-05-29, просмотров: 200.
