Select Case (Vb to B4A)

Dim x as int
Select x
Case 1,2,3,4,5
Label1.Text = "Plus petit que 5"
Case Else 
Label1.Text = "Plus grand que 5"
End select

If x > 5 then
  Label1.Text = "Plus grand que 5"
Else If x < 5 Then 
  Label1.Text = "Plus petit que 5"
End If

Dim temp As Double
temp = Floor (x/5)
Select temp
Case 0 ' x was less than 5
Label1.Text = "Plus petit que 5"
Case 1 ' x was between 5 and 10
Label1.Text = "Plus grand que 5"
End select

Select Case true
Case (x<5)
Label1.Text = "Plus petit que 5"
Case Else
Label1.Text = "Plus grand que 5"
End Select