[sami2015]

PHP كود :

Private Sub Command1_Click()
    Dim s$, l%, i%, i1%, i2%, r$, m$
    s$ = "مرحبا"
    
    m$ = s$ & vbCrLf
    l% = Len(s$)
    For i% = 1 To l% - IIf((l% Mod 2 > 0), 0, 1)
        r$ = ""
        For i1% = 1 To (l% \ 2) + (l% Mod 2)
            i2% = (Len(s$) - i1% + 1)
            r$ = r$ & Mid$(s$, i2%, 1) & IIf(i1% <> i2%, Mid$(s$, i1%, 1), "")
        Next
        m$ = m$ & r$ & vbCrLf
        s$ = r$
    Next
    
    MsgBox m$
End Sub