作者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