Поиск минимального и среднего для каждой строки в файле - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д