Visual Basic 2008 程式.誰能幫我解答?感謝

(知識+管理員...你說漏了= ="，還有最小值呢)

2010-04-10 22:38:29 補充：
PS: 使用主控台應用程式專案
Module Module1

　　Sub Main()
　　　　'原資料
　　　　Dim a() As Integer = {120, 92, 351, 66, 1024, 964, 47, 539, 76, 33}
　　　　Console.WriteLine(Join(ToStrArray(a), ", "))

　　　　Dim maxIndex As Integer = 0　　'假設的最大值索引
　　　　Dim minIndex As Integer = 0　　'假設的最小值索引

　　　　'檢查 & 更新
　　　　For i As Integer = 1 To a.Length - 1
　　　　　　If a(maxIndex) < a(i) Then maxIndex = i
　　　　　　If a(minIndex) > a(i) Then minIndex = i
　　　　Next

　　　　'輸出
　　　　Console.WriteLine("max = " & a(maxIndex))
　　　　Console.WriteLine("min = " & a(minIndex))

　　　　'等待
　　　　Console.ReadKey()
　　End Sub

　　'Integer() 轉換為 String()
　　Private Function ToStrArray(ByVal a() As Integer) As String()
　　　　Dim t() As String
　　　　ReDim t(a.Length - 1)

　　　　For i As Integer = 0 To a.Length - 1
　　　　　　t(i) = CStr(a(i))
　　　　Next
　　　　Return t
　　End Function
End Module

＊ 九州娛樂 http://***** ＊

[電子遊戲]
拉霸、水果盤、7PK、5PK

[運彩遊戲]
棒球、籃球、足球、網球、冰球、各種體育經典賽事

[真人遊戲]
百家樂、21點、骰寶、輪盤、牌九、三公、輪盤、翻攤、牛牛、二八杠

[對戰遊戲]
台灣麻將、德州撲克、骰盅吹牛、四支刀、鬥地主、十三支、二八槓、暗棋、接龍

[彩球遊戲]
香港六合、台灣樂透、今彩539、樂合彩、大陸時時彩、基諾彩、北京賽車、賽狗、賽馬、指數

[優惠活動]
1. 新舊會員儲值就送500點
2. 真人百家樂彩金等你拿
九州娛樂 http://*****
歡迎免費體驗試玩!!

Dim A = Array(120,92,351,66,1024,964,47,539,76,33)
Dim High = 0
Dim Low
Dim i
For i = 0 To 9
If A(i) > High Then
High = A(i)
End If
If i = 0 Then Low = A(i)
If A(i) < Low Then
Low = A(i)
End If
Next i

最大值 High
最小值 Low
點解﹖自己想想。

只是找最大值而已，不用排序吧？