|
楼主 |
发表于 2013-1-4 23:29
|
显示全部楼层
本帖最后由 寂寞深水鱼 于 2013-1-4 23:37 编辑
---------------------------------------------------------------------------------------------------------------蹭学小富康老师的作业题
此题来自【VBA初级201202班】第二次作业中的其中一道
------------------------------------------------------------------------------------------------
代码模仿:{:321:}{:011:}{:021:}请大神们路过留痕,小虾米甚是感谢!!!
- Sub 成绩()
- Dim i%
- For i = 2 To Range("a" & Rows.Count).End(3).Row
- If Cells(i, 7) < 60 Then
- Cells(i, 8) = "不及格"
- ElseIf Cells(i, 7) < 75 Then
- Cells(i, 8) = "及格"
- ElseIf Cells(i, 7) < 85 Then
- Cells(i, 8) = "良好"
- ElseIf Cells(i, 7) >= 85 Then
- Cells(i, 8) = "优秀"
- End If
- Next i
- End Sub
复制代码- Sub 成绩2()
- Dim i%
- Dim CJ%
- For i = 2 To Range("a" & Rows.Count).End(3).Row
- CJ = Cells(i, 7)
- Select Case CJ
- Case Is < 60
- Cells(i, 8) = "不及格"
- Case Is < 75
- Cells(i, 8) = "及格"
- Case Is < 85
- Cells(i, 8) = "良好"
- Case Is >= 85
- Cells(i, 8) = "优秀"
- End Select
- Next i
- End Sub
复制代码
- Sub 成绩3()
- Dim i%
- Dim CJ%
- For i = 2 To Range("a" & Rows.Count).End(3).Row
- CJ = Cells(i, 7)
- Select Case CJ
- Case 0 To 59
- Cells(i, 8) = "不及格"
- Case 60 To 74
- Cells(i, 8) = "及格"
- Case 75 To 84
- Cells(i, 8) = "良好"
- Case Is >= 85
- Cells(i, 8) = "优秀"
- End Select
- Next i
- End Sub
复制代码
第二次作业.rar
(44.47 KB, 下载次数: 0)
|
评分
-
查看全部评分
|