Курсовая работа: Метод Гаусса для расчета электрических цепей

Sub Vectidan ()

Dim sfilename As String, sdark As String

Dim stext As String

'ввод диалога открытия файла

CommonDialog1. FileName = ""

CommonDialog1. ShowOpen

If CommonDialog1. FileName <> "" Then

sfilename = CommonDialog1. FileName

'открываем файл на чтение

Open sfilename For Input As #1

stext = ""

'читаем текст

Input #1, stext

t = Split (stext, " ")

For i = 1 To 4

rr (i) = t (i - 1)

Next i

Input #1, stext

t = Split (stext, " ")

For i = 1 To 5

e (i) = t (i - 1)

Next i

n = 6

m = 7

Call dann

'устанавливаем число строк и слобцов

MSFlexGrid1. Rows = n + 1

MSFlexGrid1. Cols = m + 1

MSFlexGrid1. ColWidth (0) = 300