منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] طلب كود ضروري - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : البيئات التطويرية ولغات البرمجة (http://vb4arb.com/vb/forumdisplay.php?fid=81)
+--- قسم : دليل الطالب (http://vb4arb.com/vb/forumdisplay.php?fid=198)
+--- الموضوع : [VB.NET] طلب كود ضروري (/showthread.php?tid=18147)



طلب كود ضروري - a_abdullah - 25-11-16

السلام عليكم.
هذا السؤال :
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.



RE: طلب كود ضروري - amgad525 - 25-11-16

PHP كود :
Dim arr(29) As String
For 0 To 29

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

    
arr(i) = s

Next

MsgBox
(String.Concat(arr))

MsgBox(String.Join(" "arr)) 



RE: طلب كود ضروري - a_abdullah - 25-11-16

(25-11-16, 03:23 PM)amgad525 كتب :
PHP كود :
Dim arr(29) As String
For 0 To 29

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

 
   arr(i) = s

Next

MsgBox
(String.Concat(arr))

MsgBox(String.Join(" "arr)) 

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


RE: طلب كود ضروري - amgad525 - 25-11-16

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


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


RE: طلب كود ضروري - a_abdullah - 25-11-16

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