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