Практическая работа 15. Нахождение максимума (численности населения городов с выводом соответствующего названия города)

Задание: создать список названий городов, создать список соответствующих численностей населения. Найти максиальную численность населения и соответствующее название города. Последовательность действий:

1. создать на форме:

o 2 командные кнопки (Command1 и Command2 (Caption = MAX)), рис. 2.7

o 2 текстовых поля (txtName, txtNum) для вывода отдельных текущих названий городов и численностей населения городов соответственно, 4 поля Label (2 из них - для вывода всех названий городов и численностей населения городов соответственно и 2 (вверху формы) - для надписей), текстовое поле (Text1) для вывода названий городов, см. процедуры Command1_Click () и Command2_Click () и рис. 2.7

2. ввести код, данный ниже и стартовать программу. Последовательным нажатием первой командной кнопки создать массив названий городов. Cделать щелчок на второй командной кнопке.

(General) (Declarations) ' описание массива названий городов; здесь - целых чиселDim citiesName(20) As String ' описание массива численностей населения городовDim citiesNum(20) As Long Dim k As Integer ' переменая к используется в процедуре Command1_Click(),' поэтому не должна описываться как StaticPrivate Sub Form_Load()Dim j As Integer' создание массива численностей; здесь название города - это ' значение переменной-счетчикFor j = 1 To 9 citiesNum(j) = Int(Rnd * 10000000 + 1)txtNum = citiesNum(j): txtName = j' вывод численностей населения в поле Label3Label3 = Label3 & " " & citiesNum(j) Label4 = Label4 & " " & j ' вывод названий городов в поле ' Label4Next jcitiesNum(j) = -1 ' признак конца маcсиваtxtNum = citiesNum(j) txtName = j End Sub' последовательным нажатием командной кнопки создать ' массив названий городов citiesName(k)Private Sub Command1_Click()k = k + 1' если численность населения больше 0, то заполнить массив ' названий городов и вывести данные в текстовые поляIf citiesNum(k) > 0 Then txtNum.Text = citiesNum(k): citiesName(k) = ktxtName.Text = citiesName(k)Else ' иначе вывести сообщение: "Список городов исчерпан"txtName.Text = "Список городов исчерпан"txtName.BackColor = vbGreenEnd If' название города, в котором нет населения (10) вывести в ' текстовое полеText1.Text = "k = " & k End Sub' с помощью поцедуры Command1_Click() созданы названия ' городов, ранее созданы соответствующие численности ' населения: масивы - citiesNum() и citiesName(). Процедура ' Command2_Click() обеспечивает поиск максимума' численности населения и названия соответствующего' городаPrivate Sub Command2_Click()' maxNum - переменная для хранения максимальной ' численности населения Dim maxNum As Long ' maxName - переменная для хранения названия города с ' максимальной численностью населения Dim maxName As String If citiesNum(1) <= 0 Then txtName = "Массив пуст": GoTo 100' пусть максимальным будет первый элемент массиваmaxNum = citiesNum(1)maxName = citiesName(1)' начиная с к = 2 проводится сравнение элементов массива с ' максимальным значениемk = 2 ' если масcив численности населения не пуст, сравнить ' (последовательно) текущий элемент с максимальным. Если ' он больше текущего максимума, то сделать его ' максимальным; в текстовое поле вывести ' соответствующее значение20 If citiesNum(k) > 0 ThenIf citiesNum(k) > maxNum Then maxName = citiesName(k): maxNum = citiesNum(k)Text1.Text = "k=" & k: k = k + 1: GoTo 20 Else' вывод максимальной численности, вывод названия ' города с максимальной численностью населенияtxtNum.Text = maxNumtxtName.Text = maxNameEnd If100 End Sub

Рис. 2.7. Нахождение максимальной численности населения с выводом соответствующего названия города