Question

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

Public Class Form1

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 Lost    Pct
New York    95   67 0.586
Boston          93   69 0.574
Tampa Bay   90   72 0.556
Toronto         73   89 0.451
Boston          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};

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

1 个答案: