[شنيني صراب]

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

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