Question

написать две программы visual basic . 1) Дано количество выпускников с красным дипломом за последние 10 лет. Определите год с самым низким количеством красных дипломов .
2) Дан список городов и указанием их жителей. Получить список городов с населением более миллиона.

Answer 1

Хорошо, предлагаю вам пошаговое решение обоих задач с помощью языка программирования Visual Basic.

1) Задача о количестве выпускников с красным дипломом за последние 10 лет и определении года с наименьшим количеством красных дипломов:
```
Sub FindYearWithLowestRedDiplomas()
Dim years(10) As Integer ' Создаем массив для хранения количества выпускников за 10 лет
Dim lowestYear As Integer ' Переменная для хранения года с наименьшим количеством красных дипломов
Dim lowestCount As Integer ' Переменная для хранения наименьшего количества красных дипломов

' Вводим количество выпускников за каждый из 10 лет
For i = 0 To 9
years(i) = InputBox("Введите количество выпускников с красным дипломом за " & (i + 1) & "-ый год:")
Next i

' Находим год с наименьшим количеством красных дипломов
lowestCount = years(0)
lowestYear = 1
For i = 1 To 9
If years(i) < lowestCount Then
lowestCount = years(i)
lowestYear = i + 1
End If
Next i

' Выводим результат
MsgBox "Год с самым низким количеством красных дипломов: " & lowestYear

End Sub
```
Описание решения:
- Создается массив years для хранения количества выпускников с красным дипломом за последние 10 лет.
- Через цикл for пользователю предлагается ввести количество выпускников за каждый из 10 лет.
- Далее в цикле for определяется год с наименьшим количеством красных дипломов.
- Результат выводится с помощью MsgBox.

2) Задача о списке городов и их жителях и получении списка городов с населением более миллиона:
```
Sub FindCitiesWithPopulationOverOneMillion()
Dim cities(5) As String ' Создаем массив для хранения названия городов
Dim populations(5) As Integer ' Создаем массив для хранения населения городов
Dim result As String ' Строка для хранения списка городов с населением более миллиона

' Вводим название города и его население
For i = 0 To 4
cities(i) = InputBox("Введите название города:")
populations(i) = InputBox("Введите население города " & cities(i) & ":")
Next i

' Формируем список городов с населением более миллиона
result = "Города с населением более миллиона: "
For i = 0 To 4
If populations(i) > 1000000 Then
result = result & cities(i) & ", "
End If
Next i

' Выводим результат
MsgBox result

End Sub
```
Описание решения:
- Создаются два массива: cities для хранения названия городов и populations для хранения населения городов.
- Через цикл for пользователю предлагается ввести название и население каждого города.
- Далее в цикле for формируется список городов с населением более миллиона.
- Результат выводится с помощью MsgBox.

Надеюсь, эти пошаговые решения помогут вам понять, как программа на Visual Basic решает поставленные задачи. Если у вас возникнут вопросы, не стесняйтесь задавать их!