VB 编程编写一个评价成绩等级的程序

编写一个评价成绩等级的程序，
* 界面要求：
* 使用标签、文本框、命令按钮控件完成。
* 运行要求：
* 1、输入姓名、成绩；
* 2、点击“评价”按钮，判定成绩的等级，显示到“评价”按钮下方的文本框中。
* 注：分数 0～59 60～69 70～79 80～89 90～100
* 等级不及格及格中良优

举报该问题

推荐答案 2009-05-22

Protected Sub Button31_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button31.Click
Dim a As Integer
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("请输入学生姓名或成绩!")
Exit Sub
End If
a = CInt(TextBox2.Text)
If 0 < a And a < 61 Then
TextBox3.Text = TextBox1.Text & "--" & "不及格"
ElseIf 60 < a And a < 71 Then
TextBox3.Text = TextBox1.Text & "--" & "及格"
ElseIf 70 < a And a < 81 Then
TextBox3.Text = TextBox1.Text & "--" & "中"
ElseIf 80 < a And a < 91 Then
TextBox3.Text = TextBox1.Text & "--" & "良"
ElseIf 90 < a And a < 100 Then
TextBox3.Text = TextBox1.Text & "--" & "优"
End If

End Sub
这是按钮的后台代码
3个文本框和标签就照你的图做就可以了
有问题再在线联系....

温馨提示：答案为网友推荐，仅供参考

当前网址：http://www.wendadaohang.com/zd/W41KdG15.html

相似回答

VB中编制程序,根据用户输入的考试成绩,(90—100优秀,80—89良好……小 ...答：ElseIf Text1.Text >= 80 And Text1.Text < 90 Then Print "良好"ElseIf Text1.Text >= 70 And Text1.Text < 80 Then Print "一般"ElseIf Text1.Text >= 60 And Text1.Text < 70 Then Print "及格"Else: Print "不及格"End If End Sub Private Sub Form_Load()Text1.Text = ...

设计一简单VB,根据用户输入的成绩分数(百分制),判定成绩等级。判定按钮...答：'加入3个command、2个label、1个text控件，位置自己调整一下 Option Explicit Private Sub Command1_Click()If IsNumeric(Text1) Then '是否为数字 If Val(Text1) >= 0 And Val(Text1) <= 100 Then '分数范围0-100 If Val(Text1) < 60 Then Label2 = "结果：" & "不及格"ElseIf Val...

用VB编制程序,计算某个学生奖学金的等级,以三门课程成绩为评奖依据答：m1 = InputBox("请输入第一门成绩")m2 = InputBox("请输入第二门成绩")m3 = InputBox("请输入第三门成绩")a = (m1 = 100 And m2 = 100) Or (m1 = 100 And m3 = 100) Or (m2 = 100 And m3 = 100)b = m1 = 100 Or m2 = 100 Or m3 = 100 x = 95: y = 90: z ...

用VB编制程序,计算某个学生奖学金的等级,以三门课程成绩为评奖...答：Text1.Text = "考生姓名:" & nam & Chr(10) & "第一科成绩:" & a(0) & Chr(10) & "第二科成绩:" & a(1) & Chr$(13) & "第三科成绩:" & a(2)Label1.Caption = "请检查输入是否正确,若不正确,请重新输入!"End Sub Private Sub Command2_Click()If nam = "" Then Cal...

VB程序制作一个成绩等级程序,要求在文本框Text1中输入成绩,点击等级...答：If Text1.Text = "" Then MsgBox "请输入成绩", vbInformation, "提示"Text1.SetFocus Exit Sub End If If IsNumeric(Text1.Text) = False Then MsgBox "你输入的不是数字，请重新输入", vbInformation, "提示"Text1.SetFocus SendKeys "{Home}+{End}"Exit Sub Else End If Select Case ...

用vb语言根据学生成绩评定等级答：If score < 0 Or score > 100 Then MsgBox "请输入0~100之间的分数"GoTo L End If If score <= 59 Then Print "不及格"If score >= 60 And score <= 69 Then Print "及格"If score >= 70 And score <= 79 Then Print "中"If score >= 80 And score <= 89 Then Print "良"...

vb编程,根据输入的学习成绩,分别显示优秀(90以上),良好(75以上),及格...答：Private Sub command1_click()x = Val(Text1.Text)If x >= 90 Then Label1.Caption = "优"ElseIf x >= 75 Then Label1.Caption = "良"ElseIf x >= 60 Then Label1.Caption = "及格"Else Label1.Caption = "不及格"End If End Sub ...

使用VB语法完成:根据输入的成绩给出评价。要求:成绩大于等于90分的是...答：在form里画一个label和一个text和一个command，然后输入代码：Private Sub Command1_Click()If Val(Text1.Text) >= 90 Then Label1.Caption = "成绩优秀"Else Label1.Caption = "成绩不优秀"End If End Sub 其他的你想要的功能自己加！

用VB怎么做学生成绩等级排序的程序?答：VB中添加一个按钮点击就可以了\x0d\x0aPrivate Sub Command1_Click()\x0d\x0aa = InputBox("请输入分数：")\x0d\x0aIf IsNumeric(a) And a = 0 Then\x0d\x0aSelect Case a\x0d\x0aCase 0 To 59\x0d\x0add = "E"\x0d\x0aCase 60 To 69\x0d\x0a dd = "D"...

大家正在搜

判断成绩等级c语言程序编程输入一个成绩输出成绩等级编程实现输入成绩判断等级输入学生成绩输出成绩等级 if语句编写学生成绩等级 shell脚本编写成绩等级成绩分等级c语言编程 c语言表示成绩等级的代码要求输出成绩等级ABCDE

VB 编程 编写一个评价成绩等级的程序

VB 编程编写一个评价成绩等级的程序