2、if 条件判断语句

1、

Sub 判断是否符合条件()

Dim i As Integer
For i = 1 To 7
If Range("a" & i).Value Like "李*" Then
Range("b" & i).Value = "√"
Range("b" & i).Font.Color = vbRed
Else
Range("b" & i).Value = "×"
Range("b" & i).Font.Color = vbGreen
End If
Next
End Sub

2、

Sub 不同时段问好()
If Time < 0.5 Then
MsgBox "早上好"
ElseIf Time > 0.75 Then
MsgBox "晚上好"
Else
MsgBox "下午好"
End If

End Sub

3、

Sub case语句()
  Select Case Time
　　Case Is < 0.5
　　　　MsgBox "早上好"
　　Case Is > 0.75
　　　　MsgBox "晚上好"
　　Case Else
　　　　MsgBox "下午好"
End Select
End Sub

4、

Sub 成绩()

Dim cj As Variant, k As String
k = InputBox("请输入姓名：")
cj = InputBox("请输入成绩：")
Select Case cj
　　Case 0 To 59
　　　　MsgBox k & "的成绩等级：D"
　　Case 60 To 69
　　　　MsgBox k & "的成绩等级：C"
　　Case 70 To 79
　　　　MsgBox k & "的成绩等级： B"
　　Case 80 To 100
　　　　MsgBox k & "的成绩等级： A"
　　Case Else
　　　　MsgBox "输入错误！"
End Select

End Sub

5、

Sub kaohedegnji()
　　Dim dj As String
　　Dim i As Integer
　　For i = 2 To 7
　　　　Select Case Cells(i, "B")
　　　　　　Case Is < 85
　　　　　　　　dj = "不评定"

　　　　　　Case Is < 100
　　　　　　　　dj = "一星级"
　　　　　　Case Is < 115
　　　　　　　　dj = "二星级"
　　　　　　Case Is < 130
　　　　　　　　dj = "三星级"
　　　　　　Case Is < 150
　　　　　　　　dj = "四星级"
　　　　　　Case Else
　　　　　　　　dj = "五星级"
　　　　End Select
　　　　Cells(i, "C") = dj
　　　　If dj = "不评定" Then
　　　　　　Cells(i, "C").Font.Color = vbRed
　　　　End If
　　Next
End Sub

6、