為了從 Sales.txt 讀取數據並計算年度總和以及季度平均業績，下面的 Visual Basic 程式碼提供了一種可能的實現方法。這段代碼假設文本文件的格式正如您提供的圖片所示，每一行代表一位業務員的業績，業績數據以空格分隔。
Imports System.IO
Module SalesPerformanceCalculator
Sub Main()
' 假定 Sales.txt 文件位於與可執行文件相同的目錄
Dim filePath As String = "Sales.txt"
' 讀取所有行到一個字符串數組中
Dim lines As String() = File.ReadAllLines(filePath)
' 遍歷所有行來處理數據
For Each line As String In lines
' 分割行以獲取單獨的銷售數字
Dim parts As String() = line.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries)
' 業務員的名字是每行的第一部分
Dim name As String = parts(0).TrimEnd(":"c)
' 將字符串的數據轉換為整數
Dim sales As Integer() = parts.Skip(1).Select(Function(s) Integer.Parse(s)).ToArray()
' 計算總和
Dim totalSales As Integer = sales.Sum()
' 計算平均值
Dim averageSales As Double = sales.Average()
' 顯示業務員的名字，年度總和業績以及每季平均業績
Console.WriteLine("業務員 {0} 的年度總和業績為：{1}", name, totalSales)
Console.WriteLine("業務員 {0} 的每季平均業績為：{1:N2}", name, averageSales)
Next
' 等待用戶響應，然後結束
Console.WriteLine("按任意鍵繼續...")
Console.ReadKey()
End Sub
End Module
確保將上述代碼保存到一個 .vb 文件中，並且有一個名為 Sales.txt 的文本文件位於同一目錄下。在執行這個代碼之前，請檢查路徑和文件格式是否與代碼中的假設相匹配。
當你運行這個代碼時，它會顯示每位業務員的年度總和業績和每季平均業績。代碼使用了 .NET Framework 的 System.IO 命名空間中的 File.ReadAllLines 方法來讀取文件中的每一行，然後處理這些行以獲取和顯示所需的信息。
阿摩線上測驗
登入
