知识大全 ASP.NET入门教程 9.2.3 循环[6]

Posted 2022-07-17 知

篇首语：著论准过秦，作赋拟子虚。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 ASP.NET入门教程 9.2.3 循环[6]相关的知识，希望对你有一定的参考价值。

ASP.NET入门教程 9.2.3 循环[6] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

下面通过介绍Wrox United的工作原理给出了循环和测试的一个示例在接下来的试一试部分您可以浏览比赛日程从而看到进球数以及赢球输球或平局的场次

（）创建一个新的Web Form 命名为Decisions aspx 并将其设置为起始页面记得在创建Web Form时要将代码放到一个单独的文件中

（）添加个标签和一些文本得到页面可以直接在页面上输入文本并确保由上而下逐个添加标签因此 Label 在顶端而Label 在底端

（）创建Page Load事件过程通过打开代码文件并从第一个列表中选择PageEvents 从第二个列表中选择Page Load 在Page Load事件中添加以下代码（记住如果不想手工输入的话则可以从已经完成的示例中复制这些代码）

Dim conn As New SqlConnection(ConfigurationManager ConnectionStrings( WroxUnited ) ConnectionString)

Dim cmd As New SqlCommand( select * from Fixtures conn)

Dim rdr As SqlDataReader

Dim wins As Integer =

Dim losses As Integer =

Dim draws As Integer =

Dim goalsFor As Integer =

Dim goalsAgainst As Integer =

Dim winRatio As Integer

conn Open()

rdr = cmd ExecuteReader(CommandBehavior CloseConnection)

While rdr Read

goalsFor += Convert ToInt (rdr( GoalsFor ))

goalsAgainst += Convert ToInt (rdr( GoalsAgainst ))

If goalsFor > goalsAgainst Then

wins +=

ElseIf goalsFor < goalsAgainst Then

losses +=

Else

draws +=

End If

End While

Label Text = wins ToString()

Label Text = losses ToString()

Label Text = draws ToString()

Label Text = goalsFor ToString()

Label Text = goalsAgainst ToString()

If losses = Then

Label Text = No losses a perfect season

Return

End If

winRatio = Convert ToInt ((wins / losses) * )

Select Case winRatio

Case

Label Text = No wins Relegation is a certainty

Case Is <

Label Text = Less than % Very poor

Case Is <

Label Text = Under half Could do better

Case Is <

Label Text = Winning more than losing Excellent

Case Else

Label Text = A high ratio near the top of the table

End Select

End Sub

End Class

cha138/Article/program/net/201311/14540