59. Ввод элемента массива с помощью датчика случайных чисел, функции InputBox, предварительно созданного диска, с помощью функции Array. Примеры.
60. Оператор цикла For Next. Программа вычисления факториала.
Для того чтобы организовать повторение операций используют оператор цикла For Next. Оператор используется тогда, когда заранее известно число повторений цикла. Это многострочный оператор, его синтаксис таков:
For Имя=Значение1 To Значение2 [Step Значение3]
исполняемые операторы
Next [Имя]
Имя – это имя переменной, которую называют счётчиком.
Значение1 – начальное значение счётчика.
Значение2 – конечное значение счётчика.
Значение3 – величина шага.
Задача:
Вычислить факториал от числа. Число заносится в текстовое поле 1, а результат в текстовое поле 2. Вычисления производятся при нажатие командной кнопки.
Текст программы:
Private Sub Комманда1 _Click()
Dim n, I As Integer, Nf As Long
n = Val(Текст1.Text)
Nf = 1
For I=1 To n
Nf = Nf *I
Next I
Текст2.Text = Str(Nf)
End Sub
61.Алгоритм и программа Сумма.
Private Sub Комманда1 _Click()
Dim MyArray As Single
Dim intValarray As Integer
intValarray = Текст1.Text
S = 0
For i = 0 To intValarray
MyArray = InputBox("Введите элемент массива :", " a(i)=")
S = S + MyArray
Next
Текст2.Text = S
End Sub
62. Алгоритм и программа Счётчик.
Private Sub Комманда1 _Click()
Dim MyArray As Single
Dim intValarray As Integer
intValarray = Текст1.Text
k=0
For i=1 To n
If a(i)>= s And a(i) <= y then k=k+1
Next i
Текст2.Text = k
End Sub
63. Алгоритм и программа Максимум.
Текст программы:
Private Sub Комманда1_Click()
Dim MyArray As Single
Dim intValarray As Integer
intValarray = Val(Текст1)
ReDim a(intValarray) As Single
Max = -1000: k = 0
For i = 0 To intValarray
MyArray = InputBox("Введите э-т массива :", "Ввод a(i)=")
Список1.AddItem MyArray ‘метод AddItem используется
Список2.AddItem i ‘для добавления элементов в список
a(i) = MyArray
If a(i) > Max Then Max = a(i): k = i
Next
Текст2.Text = Max
Текст3.Text = k
End Sub
64. Алгоритм и программа табулирования функции.
Разработать приложение, реализующее табулирование функции y=1,2sin(3x) при изменении аргумента х в диапазоне [x0,xk] с шагом h.
Текст программы:
Private Sub Комманда1 _Click() ' Кнопка Расчет
Dim x0 As Single, xk As Single, h As Single, x As Single, y As Single
Cls ' Очистка формы
x0 = Val(InputBox("Ввод x0 - начального значения аргумента"))
xk = Val(InputBox("Ввод xk - конечного значения аргумента"))
h = Val(InputBox("Ввод h - шага изменения аргумента"))
Print Tab(7); "Функция y = 1.2sin(3x)"
For x = x0 To xk + h/2 Step h
y = 1.2 * Sin(3 * x)
Next x
End Sub
65.66. Операторы цикла Do While…Loop, Do.. Loop While, Do Until…Loop, Do.. Loop Until. Пример.
Оператор цикла Do-Loop. Логически управляемый цикл, оператор Do — начало, оператор Loop — конец цикла.
Оператор имеет четыре модификации:
1) Условие имеет значение True в начале цикла.
Структура:
Do While <условие>
<блок операторов>
Exit Do <блок операторов>
Loop
Цикл выполняется пока истинно условие. Оператор Exit Do предназначен для прекращения цикла и передачи управления оператору Loop — конец цикла.
2) Условие имеет значение True в конце цикла.
Структура:
Do
<блок операторов>
Exit Do
<блок операторов>
Loop While <условие>
Цикл выполняется хотя бы один раз, проверка условия в конце цикла.
3) Условие False в начале цикла.
Структура:
Do Until <условие>
<блок операторов>
Exit Do
<блок операторов>
Loop
Цикл выполняется до тех пор, пока условие не станет истинным.
4) Условие False в конце цикла.
Структура:
Do
<блок операторов>
Exit Do
<блок операторов>
Loop Until<условие>
Условие проверяется в конце цикла. Цикл прекращается, когда условие станет истинным.
Пример:
Do While True
A=Rnd :Debug.Print a
If a>0.99 Then Exit Do
Loop