Вывести количество чисел из текстового файла и их сумму - VB
Формулировка задачи:
Дан текстовый файл,каждая строчка которого изображает целое число,дополненно слева и справа пробелами.Вывести колличество этих чисел и их сумму
помогите чем можите
Решение задачи: «Вывести количество чисел из текстового файла и их сумму»
textual
Листинг программы
Private Sub Command1_Click() Dim f%, i&, s&, n& f = FreeFile Open "c:\12345.txt" For Input As f While Not EOF(f) Input #f, i s = s + i n = n + 1 Wend Close f MsgBox "Чисел " & n & vbLf & "Сумма " & s End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д