Базовые программы обработки одномерного массива
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
2) Вычисление суммы элементов массива:
s = 0
For i = 0 To n-1
s = s + x(i)
Next i
3) Нахождение наибольшего элемента массива и порядкового номера этого элемента:
Max = x(0)
For i = 0 To n-1
If x(i) > Max Then Max = x(i): nm = i
Next i
4) Вывод последовательности элементов одномерного массива
a)Вывод при помощи текстового окна:
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
Базовые программы обработки двумерного массива
1. Ввод двумерного массива
Dim a(,) As Single
Private Sub Button1_Click()
Dim n As Integer, m as Integer
Dim i As Integer, j as Integer
n = CSng(InputBox("Введите n"))
m = CSng(InputBox("Введите m"))
ReDim a(0 To n-1, 0 To m-1)
For i = 0 To n-1
For j = 0 To m-1
a(i,j)=Csng(InputBox("a(" + Cstr(i) + "," + Cstr(j) + ")"))
Next j,i
2. Нахождение суммы элементов каждого столбца матрицы
For j=0 To m-1
S(j)=0
For i=0 To n-1
S(j)=S(j)+x(i,j)
Next i Textbox1.Text=Textbox1.Text+”s(“+CStr(j)+")="+CStr(S(j))+vbCrLf
Next j
3. Определение максимальных (минимальных) элементов строк матрицы
For i=0 To n-1
max(i)=x(i,1)
For j=0 To m-1
If x(i,j)>max(i) Then max(i) =x(i,j)
Next j
Textbox1.Text=Textbox1.Text+"max(“+CStr(i)+")="+CStr(max(i))+vbCrLf
Next i
4. Вывод двумерного массива
For i = 0 To n-1
For j = 0 To m-1
TextBox1.Text = TextBox1.Text + CStr(x(i, j)) + “ “
Next j
TextBox1.Text = TextBox1.Text + vbCrLf Next i