简易学生成绩管理系统_学生成绩信息管理系统

简易学生成绩管理系统由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“学生成绩信息管理系统”。

Option Explicit Option Base 1 Dim st()As String Dim grade()As chengji, str1$, str2$, prog()As kecheng

Private Sub chengji_Click()' 输出序号、成绩及分数 Cls Dim i% Print str1 For i = LBound(grade)To UBound(grade)Print grade(i).xh;grade(i).xm;Space(4Len(Trim(grade(i).xm)));grade(i).score(1);grade(i).score(2);Spc(5);grade(i).score(3);Spc(8);grade(i).score(4);Spc(8);grade(i).score(5);Spc(4);grade(i).aver Next i End Sub

Private Sub kecheng_Click()'在窗口输出课程的内容 Cls Dim i% Print str2 For i = LBound(prog)To UBound(prog)Print prog(i).bh;Spc(12);prog(i).name;Spc(12);prog(i).xf Next i End Sub

Private Sub paiming_Click()'利用加权平均分排名 Dim i%, j%, m%, n%, p% Cls Print str1 & “

加权平均分” & “

排名” m = LBound(grade): n = UBound(grade)For i = m To n p = 1

For j = 1 To n

If grade(i).aver

grade(i).rank = p

Next j

Next i For i = m To n

Print grade(i).xh;grade(i).xm;Space(4-Len(Trim(grade(i).xm)));grade(i).score(1);grade(i).score(2);Spc(5);grade(i).score(3);Spc(8);grade(i).score(4);Spc(8);grade(i).score(5);Spc(2);grade(i).aver, grade(i).rank Next i End Sub

Private Sub pjf_Click()Cls Dim i%, j%, n%, m%, sum% m = UBound(prog): n = UBound(grade)Print str2;Spc(4);“平均分” For i = 1 To 5 sum = 0 For j = 1 To n sum = sum + grade(j).score(i)prog(i).pjf = sum / n Next j Print prog(i).bh;Spc(10);prog(i).name;Spc(10);prog(i).xf;Spc(10);prog(i).pjf Next i End Sub

Private Sub renshu_Click()Cls Dim bn(1 To 5, 5 To 9)As Integer, t As Integer, x As Integer, i%, j%, m%, n% n = UBound(prog): m = UBound(grade)Print “范围”;Spc(1);“

Private Sub bujige_Click()Cls Dim i%, j%, t% Print Spc(2);”学号“;Spc(5);”姓名“;Spc(5);”不及格课程“;Spc(6);”学分“;Spc(4);”成绩“ For i = 1 To UBound(grade)

t = 0

For j = 1 To UBound(prog)

If grade(i).score(j)

t = t + 1

End If

If t > 1 And grade(i).score(j)

Print Tab(25);prog(j).name;Tab(38);Format(prog(j).xf, ”0.0“);Spc(2);grade(i).score(j)

ElseIf t = 1 And grade(i).score(j)

Print Spc(3);grade(i).xh;grade(i).xm;Tab(25);prog(j).name;Tab(38);Format(prog(j).xf, ”0.0“);Spc(4);grade(i).score(j)

End If

Next j

Next i End Sub

Private Sub youdengsheng_Click()Cls Dim i%, j%, t% Print Tab(3);”学号“;Spc(6);”姓名“;Spc(4);”英语“;Spc(4);”数学“;Spc(4);”VB“;Spc(3);”物理“;Spc(3);”专业概论“;Spc(3);”平均成绩“;Spc(3);”名次“

For i = 1 To UBound(grade)

t = 0

For j = 1 To UBound(prog)

If grade(i).score(j)>= 95 Then

t = t + 1

End If

Next j

If grade(i).aver >= 90 Or grade(i).rank = 85)Then

Print Tab(3);grade(i).xh;Tab(13);grade(i).xm;Tab(21);grade(i).score(1);Spc(3);grade(i).score(2);Spc(3);grade(i).score(3);Spc(3);grade(i).score(4);Spc(3);grade(i).score(5);Spc(8);Format(grade(i).aver, ”0.00“);Spc(5);grade(i).rank

End If

Next i End Sub

Private Sub chengjitiao_click()Cls Dim i% For i = LBound(grade)To UBound(grade)Print ”学号“;Spc(6);”姓名“;Spc(8);”英语“;Spc(6);”数学“;Spc(4);”体育“;Spc(6);”物理“;Spc(5);”化学“;Spc(6);”加权平均分“;Spc(5);”平均分“;Spc(5);”名次" Print Spc(2);grade(i).xh;grade(i).xm;Spc(0);grade(i).score(1);Spc(5);grade(i).score(2);Spc(5);grade(i).score(3);Spc(5);grade(i).score(4);Spc(5);grade(i).score(5);Spc(9);grade(i).aver;Spc(7);grade(i).aver;Spc(5);grade(i).rank Next i End Sub