25-04-13, 04:39 PM
قمت بعمل كود للترتيب التصاعدي للارقام كالتالي :
ضروري
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
كيف يمكن جعل هذا الكود للترتيب التنازلي 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
ضروري
