[a_abdullah]

السلام عليكم.
هذا السؤال :

The following program will read words from the user and store it in array. It stops when the user enters "End". Concatenate the words together and print it in one line as the figure below. The maximum length of array is 30.

[amgad525]

PHP كود :

Dim arr(29) As String
For i = 0 To 29

    Dim s = InputBox("أدخل كلمة")
    If s = "End" Then Exit For

    arr(i) = s

Next

MsgBox(String.Concat(arr))

MsgBox(String.Join(" ", arr)) 


[a_abdullah]

(25-11-16, 03:23 PM)amgad525 كتب :

PHP كود :

Dim arr(29) As String
For i = 0 To 29

    Dim s = InputBox("أدخل كلمة")
    If s = "End" Then Exit For

    arr(i) = s

Next

MsgBox(String.Concat(arr))

MsgBox(String.Join(" ", arr)) 


يعطيك العافيه بس ممكن تشرح لي كيف حليته و اذا امكن اذا ابغاه يطلعها لي في ليبل على طول بدون المسج بوكس كيف 

[amgad525]

((MsgBox(String.Concat(arr
(Me.Label1.Text = String.Concat(arr


((MsgBox(String.Join(" ", arr
(Me.Label1.Text = String.Join(" ", arr

[a_abdullah]

ِشكرا ضبط معي الكود