Решение задач в Excel на VBA. Применение программных средств в проектировании автомобильных конструкций. Калядин В.И. - 6 стр.

UptoLike

Составители: 

6
Вывод матрицы в файл NF или в окно отладки
Sub PrnMatr(A(), M, N, NF, AName$)
'Вывод матрицы A с именем AName$ в файл № = NF, в окно отладки при NF = 0.
S$ = "Матрица " & AName$ & "(0:" & M & ", 0:" & N & ")"
If NF = 0 Then Debug.Print S$ Else Print #NF, S$
For i = 0 To M
For j = 0 To N
If NF = 0 Then Debug.Print Tab(10 * j + 1); FF(A(i, j), "##0.0##"), _
Else Print #NF, Tab(10 * j + 1); FF(A(i, j), "##0.0##"),
Next j
If NF = 0 Then Debug.Print Else Print #NF, ""
Next i
End Sub
Function FF(x, frm As String) As String
FF = IIf(x > 0, " ", "-") & Format(Abs(x), frm) ' +числа c побелом в позиции знака
End Function
Ввод матрицы из файла NF
*
Sub IptMatr(A(), M, N, NF)
'Ввод матрицы A(M,N) из файла № = NF, с клавиатуры при NF <= 0.
For i = 0 To M
For j = 0 To N
If NF <= 0 Then
A(i, j) = Val(InputBox("Задайте элемент строки № " & i & ", столбца № " & j, _
"Ввод матрицы"))
Else
Input #NF, A(i, j)
End If
Next j
Next i
End Sub
* Замечание. Часто оказывается, что исходные данные из файла удобнее исполь-
зовать в таблицах, перенося их туда из открываемого стандартными средствами
Excel файла.
Вывод матрицы в файл № NF или в окно отладки
Sub PrnMatr(A(), M, N, NF, AName$)
'Вывод матрицы A с именем AName$ в файл № = NF, в окно отладки при NF = 0.
 S$ = "Матрица " & AName$ & "(0:" & M & ", 0:" & N & ")"
 If NF = 0 Then Debug.Print S$ Else Print #NF, S$
 For i = 0 To M
  For j = 0 To N
    If NF = 0 Then Debug.Print Tab(10 * j + 1); FF(A(i, j), "##0.0##"), _
    Else Print #NF, Tab(10 * j + 1); FF(A(i, j), "##0.0##"),
  Next j
  If NF = 0 Then Debug.Print Else Print #NF, ""
 Next i
End Sub
Function FF(x, frm As String) As String
FF = IIf(x > 0, " ", "-") & Format(Abs(x), frm)   ' +числа c побелом в позиции знака
End Function
Ввод матрицы из файла № NF*
Sub IptMatr(A(), M, N, NF)
'Ввод матрицы A(M,N) из файла № = NF, с клавиатуры при NF <= 0.
For i = 0 To M
 For j = 0 To N
  If NF <= 0 Then
   A(i, j) = Val(InputBox("Задайте элемент строки № " & i & ", столбца № " & j, _
 "Ввод матрицы"))
  Else
     Input #NF, A(i, j)
  End If
 Next j
Next i
End Sub
* Замечание. Часто оказывается, что исходные данные из файла удобнее исполь-
зовать в таблицах, перенося их туда из открываемого стандартными средствами
Excel файла.
                                      6