1,502
社区成员
发帖
与我相关
我的任务
分享
Option Explicit On
Option Strict On
Imports System
Imports System.IO
Public Module Module1
Private Const FILE_NAME As String = "Data"
Sub Main()
If Not File.Exists(FILE_NAME) Then
Console.WriteLine("{0} does not exist.", FILE_NAME)
Return
End If
Dim sr As StreamReader = File.OpenText(FILE_NAME)
Dim input As String
Dim sum, data As Double
Dim n As Integer
sum = 0 : n = 0
Console.WriteLine(" n data sum")
Console.WriteLine("--- -------- --------")
Do
input = sr.ReadLine()
If input Is Nothing Or input = "" Then Exit Do
n = n + 1
data = Val(input)
sum = sum + data
Console.WriteLine("{0,3:D} {1,8:F2} {2,8:F2}", n, data, sum)
Loop
'Console.WriteLine("The end of the {0} has been reached.", FILE_NAME)
sr.Close()
End Sub
End Module