[شنيني صراب]

السلام عليكم اخواني الأعزاء
عندي سوال بسيط وابيكم تساعدوني فيه جزاكم الله خيرا وفي ميزان حسناتكم
مطلوب كود يظهر التالي
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

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

[حريف برمجة]

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 


[شنيني صراب]

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)