Поиск минимального и среднего для каждой строки в файле - VB

Узнай цену своей работы

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

Здравствуйте! Из текстового файла надо было считать данные и посчитать среднее и минимальное каждой строки. А потом вывести эти данные в другой т. файл. Ср и мин она считает, но вместе с той частью кода, где надо выводить в новый файл полученные данные выделяет строку (Do Until EOF(F)) Исходные данные: 448,341,541 337,242,616 448,148,790 367,543,853 Код:
Почему это происходит?

Решение задачи: «Поиск минимального и среднего для каждой строки в файле»

textual
Листинг программы
Private Sub Command1_Click()
   Dim F   As Integer, F1 As Integer
   Dim Str As String, a(), m, i As Integer
   Dim s1 As Integer, min As Integer
   F = FreeFile
   Open "D:\U.txt" For Input As #F
     F1 = FreeFile
     Open "D:\U1.txt" For Output As #F1
         Do Until EOF(F)
              min = 9999
              Line Input #F, Str
              m = Split(Str, ","):
              ReDim a(UBound(m))
              For i = 0 To UBound(m):
                    a(i) = Val(m(i))
                    If a(i) < min Then min = a(i)
              Next i
              s1 = (a(0) + a(1) + a(2)) / 3
              Print #F1, "среднее  "; s1, "минимальное  "; min
          Loop
      Close #F
    Close #F1
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

8   голосов , оценка 4.375 из 5
Похожие ответы