[mona173]

هل يمكن كود لترتيب الارقام تصاعديا وتنازليا دون استخدام المصفوفة
عملته تصاعدي على الفيجوال بيسك

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Dim msgStr As String = ""
Dim X(20) As Single

Dim N As Single

N = InputBox("ادخل عدد القيم")
For I = 1 To N
X(I) = InputBox("ادخل القيم")

msgStr = msgStr & X(I)
Next I
MsgBox(msgStr)

End Sub

كيف يمكن تحويله الى سي شارب