B. Цикл For : Next, формирование массива случайных чисел в заданном диапазоне, вычисление суммы элементов массива, вывод в поле списка и Label1.
Date: 2015-10-07; view: 615.
А. Цикл For : Next, формирование массива, вычисление суммы элементов массива, вывод текстовые поля, поля списка и Label1.
Практическая работа 9. Цикл For : Next
Цикл For : Next
Цикл For : Next предназначен для выполнения определeнного количества действий, когда количество действий известно заранее; синтаксис:
For начальное_значение переменной-счeтчик To конечное_значение переменной-счeтчик [Step величина шага]инструкции Next [переменная-cчeтчик]Сначала инициализируется начальное значение переменной-счeтчик, при каждом выполнении цикла еe значение увеличивается на величину шага, или на 1, если шаг не указан.
Создать требуемые объекты, см. код процедуры Command1_Click(), данный ниже, очистить свойство Text текстового поля, а его свойству Multiline присвоить значение Тrue, тогда в процессе выполнения будет проводиться перенос строк в текстовое поле. Ввести код:
Private Sub Command1_Click()Dim mass(15) As Integer, i As IntegerRem переменная для хранения суммы элемeнтов массиваDim summ As Integer For i = 0 To 14mass(i) = i' вывод элементов массива в поле спискаlst1.List(i) = mass(i) ' вывод значений i в поле TextBoxtxt1.Text = txt1.Text & " " & i Next isumm = 0For i = 0 To 14' суммирование элементов маcсиваsumm = summ + mass(i) Next ilbl1.Caption = summ ' вывод суммы элементов End Subстартовать проект, сделать щелчок на командной кнопке.
Используется функция RND, возвращающая псевдослучайное число в диапазоне 0 - 1. Выражение вида: Int(КонецДиапазона - НачалоДиапазона + 1) * RND() + НачалоДиапазона) позволяет получить случайное целое число в заданном диапазоне. Функция Int возвращает целую часть числа.
Создать требуемые объекты, см. код, данный ниже и ввести код:
Private Sub Command1_Click()Dim mass(15) As Integer, I As Integer, A As Integer, В As IntegerDim Summ As IntegerA = -5: B = 5: Summ = 0For I = 0 To 14mass(I) = Int(Rnd * (B - A + 1) + A)lst1.List(I) = mass(I)Summ = Summ + mass(I)Next Ilbl1.Caption = SummEnd Subстартовать проект, сделать щелчок на командной кнопке.
| <== previous lecture | | | next lecture ==> |
| Условная инструкция If : Then : Else | | | Повтор набора инструкций - Do : Loop |