28O32N36M40L44L48K52J56I60H64H68G72F76E80D84D88C92B96AAA
Dim i As Integer For i = 3 To 11
t = Sheets(1).Cells(i, 2).Value '取得成绩 If t >= 90 Then j = \"A\"
ElseIf t >= 80 Then j = \"B\"
ElseIf t >= 70 Then j = \"C\"
ElseIf t >= 60 Then j = \"D\" Else
j = \"E\" End If
Sheets(1).Cells(i, 3) = j NextEnd Sub
100104108112116120124128132136
'取得成绩
因篇幅问题不能全部显示，请点此查看更多更全内容