grade.vb

来自「asp做的新闻系统」· VB 代码 · 共 19 行

Public Class Grade Inherits System.Web.UI.Page

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim nGrade As Integer = 75

       If nGrade >= 80 Then
          Response.Write("您的等级为A。")
       ElseIf nGrade >= 70 Then
          Response.Write("您的等级为B。")
       ElseIf nGrade >= 60 Then
          Response.Write("您的等级为C。")
       Else
          Response.Write("您的等级为D。")
       End If

    End Sub

End Class