如何判断<=５的数字个数，谢谢！！
x1=6
x2=4
x3=7
x4=8
x5=5
x6=3
如上几个数字，怎么能判断出其中 <=５的个数！！！

[解决办法]
Private Sub Command1_Click()
Dim i As Integer
Dim x1, x2, x3, x4, x5, x6
x1 = 6
x2 = 4
x3 = 7
x4 = 8
x5 = 5
x6 = 3

i = 0
If x1 <= 5 Then i = i + 1
If x2 <= 5 Then i = i + 1
If x3 <= 5 Then i = i + 1
If x4 <= 5 Then i = i + 1
If x5 <= 5 Then i = i + 1
If x6 <= 5 Then i = i + 1

MsgBox "小于5发数字一共 " & i & "个 "
End Sub

简单得不能再简单的东西。。。
偶写这个写得想笑。。。。