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

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个文本框和标签就照你的图做就可以了

有问题再在线联系....

要通过省普通高中学生综合素质评价信息管理平台，在规定时间内补充完善综合素质评价报告，报告须包括高中三年相关材料，可采取系统直接填报办法。补录需要在限定时间前完成填写、审核和公示、确认等工作。

学生数据补录程序

（1）点击左侧菜单栏“高三补录数据”按钮进入补录主窗口，点击“补录综评数据”进行相应数据的补录(补录后的数据默认为已通过审核，无需再 *** 作审核)

（2）在学生数据补录窗口中，选择窗口上方“思想品德”、“学业水平”、“综合实践”等维度，即可进行对应维度综评数据的补录；

（3）必修成绩录入。在相应的科目、学期的成绩上点击，在d出的窗口中录入普通高中学生三年的全部成绩数据，再点击确定（学考成绩由省级统一导入）；

（4）国家体质健康标准成绩录入。国家体质健康标准成绩为一学年一次的数据，补录罗列出了学生三学年的所有数据，确保每个学年(上学期或下学期)有一份数据录入数据即可；

（5）其他数据的录入。其他数据为增量录入，选择相应需要补录项目的标签页面，在打开的窗口中，按页面提示填写修改数据，逐项点击提交（如：“思想品德”维度中的党团活动，实际已经录入4次，学生实际有10次，只需补录6次即可）。

参数录入分为七个模块: 人力资源参数录入模块、环境影响参数录入模块、通风系统参数录入模块、机电运输系统参数录入模块、防治水灭火系统参数录入模块、安全管理参数录入模块、应急响应机制参数录入模块。这些参数又分为矿山整体安全生产参数和各作业场所安全生产参数。参数设置的具体内容按照安全检查表的格式进行编写，并给出相应的等级参考标准，具体分值按照 ( 5，4，3，2，1) 对应 ( 安全、较安全、警告、危险、极度危险) ，分值越高代表安全性越高，先确定范围再确定具体分数。这七个模块结构基本类似，在此不一一赘述，以其中一个作业场所的人力资源参数录入模块为例，如图7. 11 所示。录入的数据将保存到相应的数据库中，具体的实现程序如下:

图 7. 10 系统界面图

图 7. 11 人力资源参数录入模块

Data1. DatabaseName = App. Path + " \ database \ safe97. mdb"

Label10. Caption = " 设置安全管理机构和" " 一通三防" " 管理机构，各不少于 5 人。"

Label11. Caption = " 1、缺少 1 个机构本项不得分。" + Chr( 13) + " 2、2 机构每缺 1 人扣0. 1 分。" + Chr( 13) + " 3、本项分数扣完为止。"

Label12. Caption = " 1、生产矿长、安全矿长、总工程师 ( 技术负责人) 取得矿山安全技术资格证。" + Chr( 13) + "2、特种作业人员取得特种作业 *** 作证并持证上岗，人员数量满足生产需要有煤与瓦斯突出、喷出危险和瓦斯涌出较大、变化异常的采掘工作面，设专职瓦斯检查工和专职爆破工。"

Label13. Caption = " 1、无证书每 1 人扣 0. 1 分。" + Chr( 13) + " 2、根据矿井实际测算所需特种作业人员数量，每缺 1 人扣 0. 1 分查当班应上岗所有特种作业人员，缺岗或未持证上岗每 1 人扣 0. 05 分专职人员每缺 1 人扣 0. 1 分。"

Label14. Caption = " 有当年安全培训计划，培训情况和考核结果存档。"

Label15. Caption = " 无本年度培训计划扣 0. 2 分当年和上年未存档扣 0. 2 分。"

Label16. Caption = " 设立矿山救护队或与就近救护队签订救护协议。"

Label17. Caption = " 无救护队又未签订救护协议本项不得分。"

Strsql = ”insert into data values( “＆i＆”，”’＆name＆’”，”＆time＆”，”’＆state＆’”) ”

Executesql( Strsql)

---