[silverlight]

PHP كود :

       ' تقرأ الرقم
        Dim i As Integer = 3
        ' دالة للتاكد من أن الرقم زوجي أو فردي
        Dim func As Func(Of Integer, Boolean) = Function(x) x Mod 2 = 0
        Dim k As Integer = 0
        ' إذا كان الرقم زوجي
        If func(i) Then
            k = i

        Else
            ' إن كان الرقم فردي
            k = i + 1
        End If