[.NET] 有關副程式和排序的問題

[r770619a (阿奶奶......瓶)]

我是用主控台寫的 之前用表單 現在改這個還真有點不習慣


題目是要輸入10位學生的三科成績 然後算每個人的平均

再用副程式將平均分數排序 最後依平均分數的高低印出姓名 三科成績&平均



sub Main()
  Dim a() as integer = {4,52,12 }

  sort(a)
  for i as integer = 0 to UBound(a)
    Console.Write(a(i) & ",")
  Next
  Pause()
End sub

Sub Sort(ByRef arr() AS Integer)
  For x As Integer = 0 To UBound(arr)
    For y As Integer = x + 1 To UBound(arr)
      If arr(x) > arr(y) Then Swap(arr(x),arr(y))
    Next
  Next
End Sub

Sub Swap(ByRef n1 As Integer,ByRef n2 As Integer)
  Dim c As Integer

  c  = n1
  n1 = n2
  n2 = c
End Sub

Sub Pause()
  Console.WriteLine()
  Console.Write("==>按任意鍵繼續...")
  Console.ReadKey()
End Sub


這是之前的範例，輸入部份我想改成用陣列寫　應該會比較好傳值這類的

Sub Main()
        Dim a(10) As Integer
        Dim name As String

        Sort(a)

        For i As Integer = 1 To UBound(a)

            Console.WriteLine("輸入第" & i & "位同學的姓名:")
            name = Console.ReadLine()
            Console.WriteLine(name)
        Next
        Pause()
    End Sub

輸入改成這樣　可是名字一輸入都會重覆２次　~><"



可以幫我看看嗎 謝謝~~~

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 59.115.240.192
→ O2000:一個是使用者輸入的 一個是用Console.WriteLine寫出來的