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("请输入学习成绩

显示成绩等级...

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 SubEnd Class

总结

以上是内存溢出为你收集整理的VB学习第六周--显示成绩等级全部内容，希望文章能够帮你解决VB学习第六周--显示成绩等级所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。