作者r770619a (阿奶奶......瓶)
看板Visual_Basic
標題[.NET] 有關副程式和排序的問題
時間Tue Aug 5 23:47:21 2008
我是用主控台寫的 之前用表單 現在改這個還真有點不習慣
題目是要輸入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
1F：→ O2000:一個是使用者輸入的 一個是用Console.WriteLine寫出來的 08/06 17:11