Vb.net 计算胜负百分比

Vb.net 计算胜负百分比,vb.net,Vb.net,我需要计算赢得比赛和输掉比赛的百分比。我不断地犯错误,这把我逼疯了。我已经改变了很多次我的代码,我真的不记得当我开始的时候是什么样子 Private Sub btnPercentage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPercentage.Click Dim team As String Dim won, lost, percentage As Integer

我需要计算赢得比赛和输掉比赛的百分比。我不断地犯错误,这把我逼疯了。我已经改变了很多次我的代码,我真的不记得当我开始的时候是什么样子

Private Sub btnPercentage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPercentage.Click
    Dim team As String
    Dim won, lost, percentage As Integer

    team = CStr(txtTeam.Text)
    won = CInt(txtGamesWon.Text)
    lost = CInt(txtGamesLost.Text)
    percentage = CInt(txtPercent.Text)

    percentage = (won + lost) / 2

    txtPercent.Text = team & " won" & percentage & " of its games."

中标百分比=总中标/(总中标+总损失)

为了便于显示,您可能必须将其乘以100。

百分比=(赢得+失去)/2
可能不对

赢的百分比不是吗


而丢失的百分比
percentage\u lost=lost/(won+lost)

在开始编写代码之前,先在脑子里想清楚这个问题。现在,这就是代码的工作方式:

“A队赢了5场比赛,输了3场,所以它赢的比赛百分比是(5+3)/2=4%。”

作为一名程序员,最重要的一项技能可能是将问题分解为计算机要执行的步骤的能力,在开始编写这些步骤之前,请确保您已经找到了正确的步骤

percentage = won / (won + lost)
顺便说一句,如果Visual Studio没有呕吐:

Dim won, lost, percentage As Integer
它将以对象而不是整数的形式显示赢和输

Dim team as String = txtTeam.Text  
Dim won as Integer = Cint(txtGamesWon.Text)  
Dim lost as Integer = CInt(txtGamesLost.Text)  
Dim percentage as Integer = Cint(won / (won + lost) * 100)  
txtPercent.Text = team & " won " & percentage & "% of its games."  

如果您想让它更能抵抗错误输入,可以使用Integer.TryParse而不是Cint。

这里的大多数问题甚至与编程无关

了解首先计算百分比背后的简单数学会有所帮助。这一个应该是相对简单的工作在纸上首先

当我读到以下内容时,我的眼睛开始流血:

percentage = (won + lost) / 2.

百分比不应等于所玩游戏数的一半(尽管许多MLB团队都会挖掘该记录)。

不,它会将它们声明为整数。请记住百分比不是整数。百分比是一个浮点数,范围为0到1。因此,原始代码中还有另一个问题。;)我一直得到这个错误1选项严格禁止从'Double'到'Double'的隐式转换Integer@davey:然后在搜索网站后发布一个新问题。整数之间的正常除法将导致双精度运算。将百分比声明为双精度,然后用数学对其进行四舍五入。将结果四舍五入或转换为整数。+1。去掉第一行“百分比=…”,这是多余的。百分比的定义包括“100”因子,否则称为比率。这帮了大忙。你们太棒了。现在告诉我们,这是家庭作业吗?哈哈,这是我买的一本书中的练习。老兄,首先要问自己的问题是“我如何计算赢/输百分比”