通识，修还是不修？

2023-10-16 17:36| 来源: 网络整理| 查看: 265

通识选修课2个学分并不算低，而这个学分是可以刷的。期末绩点关系到毕业保研听说也是要算上通识成绩的。但是绩点是用加权平均的方式来计算，也就是说刷通识也不一定会让绩点更上一层楼。那么多选一门通识究竟对期末绩点影响几何？好，对于这个答案显而易见的问题，闲的蛋疼的我在这里用简单的vb代码演示一下。

课程数和分数均根据笔者所在大学情况估计，那么根据我校情况，以十门课程为基准，通识拿优秀是95分（我校通识优秀率蛮高的，使用这里都以95分计算）

由于加权平均的关系，笔者认为通识修影响大小跟其他科目成绩也有一定关联。那么这里分为三种人来讨论：

第一种族：学神

对于学神来说，一切课程都必须纠结是拿满分还是满分减一.代码块：

Option Explicit Dim a Dim total As Single, i As Integer, n As Integer, j As Integer Public Function score(n As Integer) As Single 'n:本学期科目数 total = 0 a = Array(98, 99, 95, 96, 94, 97, 95, 98, 95, 95, 95, 95, 95) '各门课程的成绩 For i = 0 To n - 1 Select Case i Case 0, 1 '4个学分的课程有两门 total = total + a(i) * 4 Case 2, 3 '3学分的课程2门 total = total + a(i) * 3 Case 4 To 6 '1学分的课程1门 total = total + a(i) * 1 Case Else '2学分的课程放在Else,方便添加2学分的通识课 total = total + a(i) * 2 End Select Next i Print total score = total / (23 + j * 2) '求出加权平均数 Text1.Text = score End Function Private Sub Form_click() j = 0 n = 10 Text1.Text = score(n) Text2.Text = 0 End Sub Private Sub Command1_Click() j = InputBox("你要悄咪咪地多选几门通识？：") n = n + j Text2.Text = score(n) - Val(Text1.Text) '求出差值,此差值即为衡量影响大小的标准 Text1.Text = score(n) '这个时候你的绩点 End Sub Private Sub Command2_Click() j = -InputBox("你要少选几门通识？：") n = n + j Text2.Text = score(n) - Val(Text1.Text) '求出差值,此差值即为衡量影响大小的标准 Text1.Text = score(n) End Sub

学神的测试结果：妈耶。虽然影响不大但是少选两节通识绩点还上去了！！

对于这类旁友，一门通识约合0.1~0.3分