笔试题用VBS实现Excel中功能统计

有下图这样一道题（第一次做记录脚本）

1. 首先用Excel创建如图worksheet

Set ExcelApp = CreateObject("Excel.Application")
Set ExcelBook = ExcelApp.Workbooks.Open("C:\Users\Administrator\Desktop\学生成绩.xls")
Set ExcelSheet = ExcelBook.Worksheets(1)

ExcelSheet.Range("E1").Value = "总分"
ExcelSheet.Range("F1").Value = "NofTotal>180"
ExcelSheet.Range("G1").Value = "MS>CS"
MsgBox ExcelSheet.Range("E1").Value
'--------计算总分--
Dim c,r,s,mc '定义row数量(r)column数量c/计算人数总和的(s)/数学大于语文人数(mc)
For r = 2 To 7
	ExcelSheet.cells(r,5).value = ExcelSheet.cells(r,2).value+ExcelSheet.cells(r,3).value+ExcelSheet.cells(r,4).value
	'-总分大于180的人数-
	If ExcelSheet.cells(r,5).value > 180 Then
	'ExcelSheet.cells(r,6).value = "0"
	s=s+1	
	End If 
	'--数学成绩大于语文成绩人数--
	If ExcelSheet.cells(r,3).value > ExcelSheet.cells(r,2).value Then 
	mc=mc+1
	End If
	'---各科成绩<60的数据标记底色为红字体加粗
	for c = 2 To 4 
		If ExcelSheet.cells (r,c).value < 60 Then 
		ExcelSheet.cells (r,c).Font.Bold = True '字体加粗
		ExcelSheet.cells (r,c).Interior.Color = RGB(255,0,0) '背景设为红色
		End If 
	next
ExcelSheet.Range("F2").Value = s
ExcelSheet.Range("G2").Value = mc
Next 

ExcelBook.SaveAs("C:\Users\Administrator\Desktop\学生成绩2.xls") 
ExcelBook.Close  
ExcelApp.Quit  
Set ExcelBook = Nothing  
Set ExcelApp = Nothing 

2. 以下是结果：

第一个是脚本，第二个是原始数据，第三个是要求数据

12 

3