VB编程开发的学生成绩管理系统

Posted 2021-04-24 跟我学VB

VB编程易学实用

VB编程简单易学、功能强大，掌握VB编程，对于提高自己的工作效率、自身综合能力具有至关重要的作用。

在当今信息技术日新月异的时代，编程语言的学习更是对自己的综合能力有很大影响，而VB因其可视化、面向对象、简单易学的特点是最适合学习的编程语言。 因此， 学好VB编程就显得非常重要了 。

今天，我们共同来学习如何用VB编程开发学生成绩管理系统。

用到的VB技术知识主要有：

• VB控件的综合应用；
  

• VB多重窗体的应用；
  

• VB内部函数、数据类型、自定义类型的应用；
  

• VB文件的读写操作；

• VB运算符与表达式；

系统主界面

增加学生成绩

查询学生成绩

统计学生成绩

下面是系统的部分代码，完整的程序代码可添加小编微信或进入QQ、微信学习群获取。

模块代码：Public Type UserData num As Integer '学号 Names As String * 20 '姓名 E As Single '英语成绩 C As Single '语文成绩 Em As Single '数学成绩 Used As BooleanEnd Type
Public Recode As UserDataPublic c_Recode As IntegerPublic a_Recode As IntegerPublic RecodeLen As Integer增加学生成绩代码：Option ExplicitPrivate Sub Command1_Click() Dim i As Integer Dim Recode1 As UserData Recode.num = Val(Text1) Recode.Names = Text2 Recode.C = Val(Text3) Recode.Em = Val(Text4) Recode.E = Val(Text5) Recode.Used = True If Recode.num = 0 Then MsgBox "学号不能为 0 ！", vbOKOnly, "警告" Exit Sub End If For i = 1 To a_Recode Get #1, i, Recode1 If Recode1.Used And Recode1.num = Recode.num Then MsgBox "学号不能重复 ！", vbOKOnly, "警告" Exit Sub End If Next i For i = 1 To a_Recode Get #1, i, Recode1 If Not Recode1.Used Then Exit For End If Next i If i > a_Recode Then a_Recode = i End If Put #1, i, Recode Call Command2_ClickEnd SubPrivate Sub Command2_Click() Unload FormAEnd SubPrivate Sub Form_Load() FormA.Caption = "增加学生" Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = ""End Sub

有VB学习问题可以长按识别下图，添加小编微信，在线答疑交流。

长按上图，关注跟我学VB微信

提供VB编程的解答与二级VB的指导