تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تصحيح الكود التالي والإفادة
#1
السلام عليكم اخواني الأعزاء
عندي سوال بسيط وابيكم تساعدوني فيه جزاكم الله خيرا وفي ميزان حسناتكم
مطلوب كود يظهر التالي
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

ارجوا المساعدة والإيضاح ولكم خالص الشكر والتقدير
الرد
تم الشكر بواسطة:
#2
PHP كود :
Dim i As Integer 1

        
For As Integer 1 To 50

            
If 50 Then Exit For

            
ListBox1.Items.Add(i)
            
+= 1

            ListBox2
.Items.Add(i)
            
+= 1

        Next 
الرد
تم الشكر بواسطة: شنيني صراب
#3
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)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التحكم فى لون خلفية الازرار من خلال الكود nabil.1710 6 473 03-05-22, 09:53 PM
آخر رد: nabil.1710
  السلام عليكم 2 مشكله حقل data type نوع text لو الكود اكثر من 10احرف لا يضيف ahmedhhh2 4 536 17-03-22, 12:52 AM
آخر رد: ahmedhhh2
  السلام عليكم ممكن تصحيح كود جدول مع جدول تم بنجاح ولاكن اريد عمل انتر بين الجدولين ahmedhhh2 5 678 02-02-22, 12:15 AM
آخر رد: ahmedhhh2
  [كود] مساعدة في حل مشكل هذا الكود Necro PC 3 493 01-02-22, 01:12 PM
آخر رد: Necro PC
Brick [VB.NET] اختصار الكود EMADSS 1 376 12-01-22, 12:52 AM
آخر رد: أبو خالد الشكري
  رغم تنشيط Devexpress لكن مع تشغيل الكود يعطى هذه الرسالة shrarf_eg 2 439 28-12-21, 03:21 AM
آخر رد: DR.YASER
  ما هو الخطأ في هذا الكود haithammoftah 0 323 19-12-21, 09:29 PM
آخر رد: haithammoftah
  اريد عمل استعلام الكود يعمل على SQL server اريد يعمل على vb.net new_programer 17 1,249 17-12-21, 04:41 AM
آخر رد: new_programer
  [VB.NET] الكود الجديد لا يعمل بالبرنامج بعد نقل البرنامج الى جهاز اخر فيجوال بيسك 2017 mustafa mohamed 3 698 30-11-21, 07:37 AM
آخر رد: E100
  اريد تعديل الكود ليعمل على صف فى داتا جريد new_programer 14 1,397 30-11-21, 07:26 AM
آخر رد: E100

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم