vb.net - VB - 棒球队 - 赢得比赛的百分比

Question

到目前为止，这是我的代码：

公开课形式1

Private Sub btnBaseball_Click(sender As Object, e As EventArgs) Handles btnBaseball.Click
    Dim baseball() As String = IO.File.ReadAllLines("baseball.csv")
    Dim query = From line In baseball
        Let data = line.Split(","c)
        Let city = data(0)
        Let won = CInt(data(1))
        Let lost = CInt(data(2))
        Let pct = CDbl(data(3))
        Select city, won, lost
    dgvBaseball.DataSource = query.ToList
    dgvBaseball.CurrentCell = Nothing
    dgvBaseball.Columns("city").HeaderText = "CITY"
    dgvBaseball.Columns("won").HeaderText = "WON"
    dgvBaseball.Columns("lost").HeaderText = "LOST"

End Sub

结束类

* 这是文本文件：

Baltimore,93,69
Boston,93,69
New York,95,67
Tampa Bay,90,72
Toronto,73,89

如何修改我的代码，以便在读取文件时，它必须计算赢得游戏的百分比，输出如下：

TeamWon 丢失百分比
纽约 95 67 0.586
波士顿 93 69 0.574
坦帕湾 90 72 0.556
多伦多 73 89 0.451
波士顿 69 93 0.426

我提前感谢您的帮助。

Answer 1

我在c#中做到了。不得不查找您如何计算这些百分比（我来自欧洲:)）

string[] baseball = new string[] {"Baltimore,95,67",
    "Boston,93,69",
    "New York,95,67",
    "Tampa Bay,90,72",
    "Toronto,73,89"};

    var query = from line in baseball
        let data = line.Split(',')
        let city = data[0]
        let won = Convert.ToInt32(data[1])
        let lost = Convert.ToInt32(data[2])
        let pct = won / (decimal)(won + lost)
        select new { city, won, lost, pct};