End Sub

End Sub

End Select

End If

Else

End If

Else

End Sub

End If

End If

If cboСпособ.ListIndex = 2 Then 'если выбран пункт "Случайные числа в указанном диапазоне"

txtX.Visible = True

txtY.Visible = True

Label4.Visible = True

Label5.Visible = True

chkЦелые.Visible = True

chkЦелые.Enabled = True

8. Разберитесь в приведенном ниже коде обработчика события Click для кнопки «Заполнение массива», а затем наберите его:

Private Sub cmdЗаполнение_Click()

Label2.Visible = True

txtМассив.Visible = True

cmdОчистка.Enabled = True

cmdMax.Enabled = True

cmdMin.Enabled = True

cmdSrednee.Enabled = True

cmdSum.Enabled = True

cmdVozr.Enabled = True

cmdUbiv.Enabled = True

n = Val(txtN.Text) ' количество элементов массива

ReDim a(1 To n) 'переопределение массива

Select Case cboСпособ.ListIndex 'выбрать действия в зависимости от значения списка

Case 0 'если выбран пункт "Ввод с клавиатуры", то

txtМассив.Text = ""

For i = 1 To n

k = InputBox("Введите " + Str(i) + " число", "Заполнение массива")

a(i) = Val(k)

txtМассив.Text = txtМассив.Text + " " + Str(a(i))

Next i

Case 1 'если выбран пункт "Случайные числа", то

txtМассив.Text = ""

Randomize Timer

For i = 1 To n

If chkЦелые.Value = 1 Then

a(i) = Int(101 * Rnd())

a(i) = 101 * Rnd()

txtМассив.Text = txtМассив.Text + " " + Str(a(i))

Next i

Case 2 'если выбран пункт "Случайные числа в указанном диапазоне", то

txtМассив.Text = ""

x = Val(txtX.Text)

y = Val(txtY.Text)

Randomize Timer

For i = 1 To n

If chkЦелые.Value = 1 Then

a(i) = Int((Rnd() * (y - x + 1) + x))

a(i) = Rnd() * ((y - x + 1) + x)

txtМассив.Text = txtМассив.Text + " " + Str(a(i))

Next i

9. Напишите обработчик события по кнопке «Очистить», предварительно проанализировав приведенный ниже программный код:

Private Sub cmdОчистка_Click()

txtX.Text = ""

txtY.Text = ""

txtМассив.Text = ""

txtN.Text = ""

cboСпособ.ListIndex = -1

txtX.Visible = False

txtY.Visible = False

Label4.Visible = False

Label5.Visible = False

chkЦелые.Enabled = False

chkЦелые.Visible = False

Label2.Visible = False

txtМассив.Visible = False

cmdОчистка.Enabled = False

cmdMax.Enabled = False

cmdMin.Enabled = False

cmdSrednee.Enabled = False

cmdSum.Enabled = False

cmdVozr.Enabled = False

cmdUbiv.Enabled = False

Label6.Caption = ""

Label7.Caption = ""

Label8.Caption = ""

Label9.Caption = ""

Label10.Caption = ""

Label11.Caption = ""

10. Сохраните проект (выбрав File–Save frmМассив3.frm и Save Массив3.vbp) в папке 9.3.

11. Проверьте работоспособность проекта, запустив его на выполнение. Примерный вид приложения во время работы приведен на Рис.9.4 – 9.6.

12. Создайте exe-файл программы с помощью команды File → Make Обработка массива.exe.

Принцип поиска максимального элемента заключается в сравнении каждого элемента массива со значением в переменной Max и запоминанием в нем элемента, который оказался больше значения Max. Для корректного первого сравнения в качестве начального значения Max можно использовать первый элемент массива, тогда сравнения в цикле начинаются с i = 2. При поиске максимального значения среди элементов массива, удовлетворяющих некоторому условию, например, среди только отрицательных элементов, нельзя в качестве Max использовать первый элемент массива, т.к. A(1) не может быть отрицательным.

13. Напишите обработчик события для кнопки «Максимальный элемент»:

Private Sub cmdMax_Click()

Max = a(1)

nMax = 1

For i = 2 To n

If a(i) > Max Then

Max = a(i)

nMax = i

Дата добавления: 2014-12-23