Базовые программы обработки одномерного массива
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
Вычисление суммы элементов массива:
s = 0
For i = 0 To n-1
s = s + x(i)
Next i
4) Вывод последовательности элементов одномерного массива
А)Вывод при помощи текстового окна:
Dim x() As Single
Private Sub Button1_Click()
n = CSng(InputBox("Введите n"))
ReDim x(0 To n-1)
For i = 0 To n-1
TextBox1.text= TextBox1.text +CStr(x(i))+vbCrLf
Next i
End Sub
b) Вывод при помощи функции MsgBox:
Dim x() As Single
Private Sub Button1_Click()
n = CSng(InputBox("Введите n"))
ReDim x(0 To n-1)
For i = 0 To n-1
x(i) = MsgBox(CStr(x(i)), , "x(" & CStr(i) & ")")
Next i
End Sub