Типовые компоненты

Ввод вектора

Private Sub Ввод_вектора(x() As Single)

1: Dim i As Integer

Dim i_min As Integer

Dim i_max As Integer

i_min = LBound(x, 1)

5: i_max = UBound(x, 1)

For i = i_min To i_max

x(i) = InputBox("Элемент вектора (" _

& i & ")= ?", "Ввод вектора", , 0, 0)

Print x(i),

Next

10: Print

Print

End Sub

Ввод матрицы

Private Sub Ввод_матрицы(x() As Single)

1: Dim i As Integer

Dim i_min As Integer

Dim i_max As Integer

i_min = LBound(x, 1)

5: i_max = UBound(x, 1)

Dim j As Integer

Dim j_min As Integer

Dim j_max As Integer

j_min = LBound(x, 2)

10: j_max = UBound(x, 2)

For i = i_min To i_max

For j = j_min To j_max

x(i, j) = InputBox("Элемент матрицы (" & i _

& ", " & j & ") = ?", "Ввод матрицы", , 0, 0)

15: Print x(i, j),

Next

Print

Next

Print

End Sub

Вывод вектора

Private Sub Вывод_вектора(x() As Single)

1: Dim i As Integer

Dim i_min As Integer

Dim i_max As Integer

i_min = LBound(x, 1)

5: i_max = UBound(x, 1)

For i = i_min To i_max

Print x(i),

Next

Print

10: Print

End Sub

Вывод матрицы

Private Sub Вывод_матрицы(x() As Single)

1: Dim i As Integer

Dim i_min As Integer

Dim i_max As Integer

i_min = LBound(x, 1)

5: i_max = UBound(x, 1)

Dim j As Integer

Dim j_min As Integer

Dim j_max As Integer

j_min = LBound(x, 2)

10: j_max = UBound(x, 2)

For i = i_min To i_max

For j = j_min To j_max

Print x(i, j),

Next

15: Print

Next

Print

End Sub