Базовые программы обработки одномерного массива
1) Ввод одномерного массива
Пусть имеется одномерный массив из n элементов x1,x2,…,xn.
Опишем и введем этот массив:
a) Ввод при помощи текстового окна:
Dim x() As Single
Private Sub Button1_Click()
Dim n As Integer, i As Integer
n = CSng(InputBox("Введите n"))
ReDim x(0 To n-1)
For i = 0 To n-1
x(i) = CSng(TextBox1.Text)
Next i
End Sub
b) Ввод при помощи функции InputBox:
Dim x() As Single
Private Sub Button1_Click()
Dim n As Integer, i As Integer
n = CSng(InputBox("Введите n"))
ReDim x(0 To n-1)
For i = 0 To n-1
x(i) = CSng(InputBox("x(" & CStr(i) & ")", "массив аргументов"))
Next i
End Sub
26 Нахождение наибольшего элемента массива и порядкового номера этого элемента:
Max = x(0)
For i = 0 To n-1
If x(i) > Max Then Max = x(i): nm = i
Next i