Материал по программированию / 1-ый семестр / Приложение 3. Типовые подпрограммы

Приложение 3. Типовые подпрограммы

Ввод вектора

Private Sub InputVector(ByRef x() As Single, _ Optional ByVal ArrayName As String = "элемент")

Dim i As Integer

For i = 1 To x.GetUpperBound(0) x(i) = InputBox(ArrayName & _ "(" & i & ") = ?")

Next End Sub

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

Private Sub OutputVector(ByRef x() _ As Single, ByVal txtBx As TextBox)

Dim i As Integer

For i = 1 To x.GetUpperBound(0) txtBx.AppendText(" " & x(i))

Next txtBx.AppendText(vbCrLf)

End Sub

Ввод матрицы

Private Sub InputMatrix(ByRef x(,) _ As Single, Optional ByVal ArrayName _ As String = "элемент")

Dim i, j As Integer

For i = 1 To x.GetUpperBound(0) For j = 1 To x.GetUpperBound(1)

x(i, j) = InputBox( _ ArrayName & "(" & i & "," _ & j & ") = ?")

Next

Next End Sub

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

Private Sub OutputMatrix(ByVal x(,) _ As Single, ByVal y As TextBox)

Dim i, j As Integer

For i = 1 To x.GetUpperBound(0)

For j = 1 To x.GetUpperBound(1) y.AppendText(x(i, j) & vbTab)

Next y.AppendText(vbCrLf)

Next End Sub