Найти среднее значение из данных в файле data.txt - VB

Формулировка задачи:

Здравствуйте! Мне дан текстовый файл data.txt с 4 показаниями по каждому из 3х датчиков. необходимо разработать программу, которая рассчитывала бы среднее значение по каждому показателю в течении всего времени. Что делать после открытия файла data.txt?

Решение задачи: «Найти среднее значение из данных в файле data.txt»

textual
                            Листинг программы 
                        

                            Sub AvrDat(fname As String)
Dim S(0 To 3) As Double
    fi% = FreeFile
    Open fname For Input As #fi%
    n# = 0
    Do While Not EOF(fi%)
       Line Input #fi%, Stri$
       Stri$ = Trim$(Stri$)
       If Len(Stri$) > 0 Then
          V = Split(Stri$, ",")
          For i% = 0 To 3
              S(i%) = S(i%) + Val(CStr(V(i%)))
          Next i%
          n# = n# + 1
       End If
     Loop
     Close #fi%
     For i% = 0 To 3
         Debug.Print "Ср-"; i% + 1; " ="; S(i%) / n#
     Next i%
End Sub
                        

Оцени полезность:

6 голосов , оценка 3.833 из 5

Похожие ответы