25-12-13, 10:30 PM
(آخر تعديل لهذه المشاركة : 25-12-13, 10:40 PM {2} بواسطة شنيني صراب.)
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)
