59.Ввод элементов массива с помощью датчика случайных чисел, функции InputBox. Примеры.
Заполнить одномерный массив исходными данными можно случайными числами с помощью датчика случайных чисел, с клавиатуры с помощью функции InputBox.
1 способ. При решении учебных задач массив часто заполняют случайными числами, так как в этом случае пользователя мало интересуют конкретные числовые или строковые значения элементов массива, важно, чтобы программа работала правильно.
Пример,
Dim A(1 To 5) As Integer, I As Integer
Randomize
For i =1 To 5
A(i)= Int( Rnd*100)
Next i
В этом примере массив из 5 элементов заполняется случайными числами от 00 до 99.
2 способ. Если необходимо заполнить массив конкретными числами, то используется функция
InputBox.
Пример,
Dim B () As Single, N As Integer, I As Integer
N=Val( Inputbox(«Ввод количества элементов массива B»))
ReDim B (1 To N)
For i= 1 To N
B(i)= Val(InputBox(«Ввод »I «элемента массива», «Ввод с клавитатуры»))
Next i
В диалоговом окне InputBox будет появляться подсказка с указанием номера вводимого элемента за счет использования в ней переменного цикла I.
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