مساعدة ضرورية

السلام عليكــم ورحمـة الله وبركاتــه ،،

بالنسبة للسؤال الأول

		Dim q As New Queue
		For i As Integer = 1 To 5
			q.Enqueue(i)
		Next
		Dim reversed() As Object = q.ToArray
		Array.Reverse(reversed)
		For Each item As Object In reversed
			MsgBox(item)
		Next

أما السؤال الثانى

		Dim st As New Stack
		st.Push(5)
		st.Push(2)
		st.Push(4)
		st.Push(1)
		st.Push(3)

		Dim sorted() As Object = st.ToArray
		Array.Sort(sorted)

		For Each item As Object In sorted
			MsgBox(item)
		Next

يرجى التزام قوانين المنتدى تجنبا لغلق الموضوع ,,

السلام عليكم

شكرأً جزيلاً لك

وأرجو منك أن تشرح الكود لأنني لم أفهمه جيداً

ولك جزيل الشكر والتقدير