VB学习第六周--显示成绩等级

显示成绩等级...

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        i = Val(InputBox("请输入学习成绩:"))
        If i >= 100 Or i <= 0 Then
            MsgBox("成绩应该在0～100之间!",vbCritical)
        ElseIf i >= 90 Then
            TextBox1.Text = "优秀"
        ElseIf i >= 75 Then
            TextBox1.Text = "良好"
        ElseIf i >= 60 Then
            TextBox1.Text = "及格"
        Else
            TextBox1.Text = "不及格"
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!