下面是Excel的VBA代码，根据C列值大于90在D列标注“优秀”，完成下列代码。
Subsmp()
DimrngAsRange，nasInteger
n=1
For InSheet1.Range("c2:c10")n=n+1
Ifrng>90ThenSheet1.cells(n，4) ="优秀"
Next
EndSub