[administrator]

حسب مافهمت من كودك السابق لماذا لا تسخدم

PHP كود :

Select Case 


مثال

PHP كود :

Private Sub Command2_Click()
    MMM = Val(Text2.Text)
    Call FUNC3
End Sub

Public Sub FUNC3()
    Select Case MMM
    Case Is <= 10
        Print "case1"
    Case Is <= 20
        Print "case2"
    Case Is <= 30
        Print "case3"
    Case Is < 30
        Print "case4"
    End Select
End Sub