VBS封装实例

问题：为完成某个班级同学信息的统计工作，需要将学生抽象为某一类，然后用一个一位数组保存这些学生的信息，并根据要求输出学生信息（语文成绩，计算机成绩，英语成绩，姓名，性别，学号）：

         将学生的平均成绩由高到低进行输出

         将输出所有男生姓名

         输出所有女生学号

         获取平均成绩

 

这里假设全班10名同学

代码如下：

Option explicit
'定义课程类
Class course
	   Private cName  '姓名
	   Private cScore    '成绩
	'Property Get，Property Let，Property Set分别为读值，赋值，和对象类型赋值。
	  Public property get courseName
		 courseName =cName  '读值且有返回值
	  End Property
	  
		Public property let courseName( vName)
		 cName =vName   '变量赋值无返回值
	  End Property
	
	'课程成绩只读性，注意其赋值的过程
		Public property get courseScore
		 courseScore =cScore '读值
	  End Property
	  
		Public property let courseScore( vs)
		 cScore =vs     '变量赋值
	  End Property
End Class

'定义学生类
Clas