我建议您创建一个类级别属性,它是元组的字典。其中键是索引,值是课程名称和学分时间的元组。然后你的所有函数都可以停止复制那么多代码,只需从字典中提取。您需要在构造函数中初始化字典。
首先,将变量从子类移到类下面的顶部,使它们成为全局变量。 您只有一个信用小时变量(信用),所以每次从任何组合框编辑一个值时,您只需更改一个值。为您需要的每个信用小时值设置一个变量,并为总计创建一个变量 dim totalCH as integer
dim totalCH as integer
然后在每个程序结束时只需键入类似的内容 totalCH = credithour1 + credithour2...
totalCH = credithour1 + credithour2...