VBA編程:從鍵盤輸入三個整數,然後調用過程sort(),由過程sort()將這三個數從大到小進行排序,

Private?Sub?Form6_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load

Dim?a,?b,?c?As?Integer

Me.Visible?=?False

a?=?InputBox("請輸入第壹個整數")

b?=?InputBox("請輸入第二個整數")

c?=?InputBox("請輸入第三個整數")

Sort(a,?b,?c)

Me.Close()

End?Sub

Public?Sub?Sort(a?As?Integer,?b?As?Integer,?c?As?Integer)

Dim?m?As?Integer?=?0

Dim?list?As?New?List(Of?Integer)

list.Add(a)

list.Add(b)

list.Add(c)

For?i?=?0?To?list.Count?-?1

For?j?=?i?To?list.Count?-?1

If?list.Item(i)?<?list.Item(j)?Then

m?=?list.Item(i)

list.Item(i)?=?list.Item(j)

list.Item(j)?=?m

End?If

Next

Next

MsgBox("從大到小排列為:"?&?vbCrLf?&?list.Item(0)?&?","?&?list.Item(1)?&?","?&?list.Item(2))

End?Sub

寫的比較粗糙...

上一篇:力帆520故障代碼19，21，請求分析！

下一篇:法拉克系統，球鐵和鋁材，請問下鏜孔程式和攻牙程式怎麽寫，怎麽計算他們的轉速和進給，高手進！