如何判断<=５的数字个数，谢谢！！

Question

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

Answer 1

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简单得不能再简单的东西
偶写这个写得想笑。