[الاصيله]

(07-12-15, 02:07 AM)Ahmed_Mansoor كتب : أهلا أختي الكريمه الأصيله , النتيجة هي توضع في مصفوفه نصيه بإسم ResultLines ولكن أنا أظهر المسج بوكس لكي تشاهدي النتيجة أو عناصر المصفوفه , عموما عدلت تعديل بسيط على الكود كا فيه خطأ بسيط لأنه لم أجربه على الفيجول , ووضعته في مثال .

PHP كود :

Dim Chars As String
Dim ResultLines() As String
Dim I As Integer
Dim H As Integer

Chars = "abcde"

ReDim ResultLines(1 To Len(Chars)) As String

For I = 1 To Len(Chars)
    For H = 1 To Len(Chars)
        ResultLines(I) = ResultLines(I) & "aa" & Mid(Chars, I, 1) & Mid(Chars, H, 1) & ","
    Next
    ResultLines(I) = Left(ResultLines(I), Len(ResultLines(I)) - 1)
    MsgBox ResultLines(I)
Next 


شكرا لك استاذنا الغالي