+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مالخطأ بكود الاري هذا ؟ (/showthread.php?tid=18175)
مالخطأ بكود الاري هذا ؟ - a_abdullah - 27-11-16
PHP كود :
Dim arr(29) As String
For i = 0 To 29
Dim s = TextBox1.Text
If s = "End" Then Exit For
arr(i) = s
Next
TextBox2.Text = String.Concat(arr)
TextBox2.Text = String.Join(" ", arr)
هذا السؤال
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.
المشكلة في الكود اي جملة اكتبها يكررها 30 مره وانا ابغاه ياخذ من الجملة كلها بس 30 مع حساب السبيس
RE: مالخطأ بكود الاري هذا ؟ - amgad525 - 27-11-16
PHP كود :
Dim arr() As String
arr = TextBox1.Text.Split(" ")
For i = 0 To 29
If i > arr.Length Then Exit For
Dim s As String = arr(i)
If s = "End" Then Exit For
TextBox2.Text = TextBox2.Text & s
Next
RE: مالخطأ بكود الاري هذا ؟ - a_abdullah - 27-11-16
(27-11-16, 09:52 PM)amgad525 كتب :PHP كود :
Dim arr() As String
arr = TextBox1.Text.Split(" ")
For i = 0 To 29
If i > arr.Length Then Exit For
Dim s As String = arr(i)
If s = "End" Then Exit For
TextBox2.Text = TextBox2.Text & s
Next
واللان وين المشكلة
RE: مالخطأ بكود الاري هذا ؟ - amgad525 - 27-11-16
PHP كود :
Dim arr() As String
arr = TextBox1.Text.Split(" ")
For i = 0 To arr.Length - 1
If i > 29 Then Exit For
Dim s As String = arr(i)
If s = "End" Then Exit For
TextBox2.Text = TextBox2.Text & s
Next