[سعود]

PHP كود :

Private Function RandomizeArray(ByRef arr() As String) As String()
        Dim i, j As Integer
        Dim temp As String
        Randomize
        For i = 0 To UBound(arr)
            j = Int(((UBound(arr)) - i + 1) * Rnd() + i)
            temp = arr(i)
            arr(i) = arr(j)
            arr(j) = temp
        Next
        RandomizeArray = arr
    End Function
Private Function MakeArrFromText(ByVal txt As String) As String()
Dim arr() As String
Dim p As Integer
p = 0
For i = 1 To Len(txt)
Dim v As String
v = Mid(txt, i, 1)
ReDim Preserve arr(p)
arr(p) = v
p = p + 1
Next
MakeArrFromText = arr
End Function
Private Sub Command1_Click()
Dim a As String
a = Text1.Text
Text1.Text = ""
Dim myarr() As String
myarr = MakeArrFromText(a)
myarr = RandomizeArray(myarr)
For Each h In myarr
Text1.Text = Text1.Text & h
Next
End Sub 


ولو تحب المرفق فكلمة فك الضغط

vb4arb