Вывести количество чисел из текстового файла и их сумму - 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

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


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

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

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