منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] تصحيح الكود التالي والإفادة - نسخة قابلة للطباعة

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

تصحيح الكود التالي والإفادة - شنيني صراب - 25-12-13

السلام عليكم اخواني الأعزاء
عندي سوال بسيط وابيكم تساعدوني فيه جزاكم الله خيرا وفي ميزان حسناتكم
مطلوب كود يظهر التالي
Even Number = 2-4-6-8-.......-50
Odd Number = 1-3-5-7-......-49
ولكم جزيل الشكر والأمتنان
حاولت بهذا الكود بس ما ضبط
والتصحيح منكم مطلوب
dim i as integer
for i = 1 to 50 step 1
if ( i mod 2 = 0 ) then
richTextbox.AppendText("Even Number =" & i & "-")
Else
richTextbox.AppendText("Odd Number =" & i & "-")
Next
End if

ارجوا المساعدة والإيضاح ولكم خالص الشكر والتقدير

RE: تصحيح الكود التالي والإفادة - حريف برمجة - 25-12-13

PHP كود :
Dim i As Integer = 1

        For y As Integer = 1 To 50

            If i > 50 Then Exit For

            ListBox1.Items.Add(i)
            i += 1

            ListBox2.Items.Add(i)
            i += 1

        Next 


RE: تصحيح الكود التالي والإفادة - شنيني صراب - 25-12-13

PHP كود :
Dim odd = "", even As String = ""
        For counter = 0 To 50
            If counter Mod 2 = 0 Then
                even = even & Str(counter) & "  "
            Else
                odd &= Str(counter) & "  "

            End If 

Next
RichTextBox1.AppendText("Even Number =" & even & vbCrLf & "Odd Number=" & odd & vbCrLf)
PHP كود :
Dim odd = "", even As String = ""
        For counter = 0 To 50
            If counter Mod 2 = 0 Then
                even = even & Str(counter) & "  "
            Else
                odd &= Str(counter) & "  "

            End If 

Next
RichTextBox1.AppendText("Even Number =" & even & vbCrLf & "Odd Number=" & odd & vbCrLf)