[silverlight]

PHP كود :

       Dim i As Integer = 256
        Dim s As String = i.ToString
        Dim l As Integer = s.Length - 1
        Dim v As Integer = CInt(s.Substring(l))
        Dim result As Integer = i - v
        If v >= 5 Then
            result = result + 10
        End If