作者one9870 (風之痕)
看板Visual_Basic
標題[.NET] 超級新手發問
時間Fri Oct 24 16:51:24 2008
請輸入專案類型(網站專案或者應用程式專案)：
因為最近系上請了一位教ASP的老師
來教我們最基本的網頁撰寫
但是
由於系上是沒有學過任何C語言的相關課程
所以想請問學過Visual Web Developer的前輩們
教一下我這超級新手ˊˋ
主要是要將一個10*2的姓名與成績
照著成績的高低來排序(我已經將陣列與註解都寫好了..但是不知怎麼變化..)
PS：我是加入一個Button要做成績排序
所以是不曉得該怎麼寫這段程式碼
程式碼如下：
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As
System.EventArgs)
Dim id As String
Dim name As String
Dim mathscr As String
Dim sum As Integer = 0
Dim average As Double
Dim max As Integer = 0
Dim min As Integer
Dim j As Integer
Dim k As Integer
'10x2的二維陣列
Dim Students(9, 1) As String
'存入10組的學號、姓名和數學成績
Students(0, 0) = "John"
Students(1, 0) = "Cobe"
Students(2, 0) = "George"
Students(3, 0) = "Nancy"
Students(4, 0) = "Mary"
Students(5, 0) = "Job"
Students(6, 0) = "Judy"
Students(7, 0) = "Joice"
Students(8, 0) = "Linda"
Students(9, 0) = "Brown"
Students(0, 1) = "70"
Students(1, 1) = "75"
Students(2, 1) = "90"
Students(3, 1) = "61"
Students(4, 1) = "20"
Students(5, 1) = "100"
Students(6, 1) = "99"
Students(7, 1) = "95"
Students(8, 1) = "93"
Students(9, 1) = "50"
Response.Write(" 姓名 " & " , " & "數學成績" & "<p />")
For i As Integer = 0 To 9
name = Students(i, 0)
mathscr = Students(i, 1)
'列印每一組的姓名和數學成績
Response.Write(name & " , " & mathscr & "<p />")
'數學成績加總
sum = sum + CInt(Students(i, 1))
'找最大的數學成績值以及最大的數學成績的陣列索引值
If Students(i, 1) > max Then
max = Students(i, 1)
j = i
End If
Next i
'找最小的數學成績值以及最小的數學成績的陣列索引值
min = max
For i As Integer = 0 To 9
If Students(i, 1) < min Then
min = Students(i, 1)
k = i
End If
Next
'計算數學成績的平均值，並列印
average = sum / 10
Response.Write("10位同學數學成績平均為" & average & "<p />")
'列印出數學成績最高的姓名和數學成績
Response.Write("數學成績最高的同學是" & Students(j, 0) & " , "
& max & "<p />")
'列印出數學成績最低的姓名和數學成績
Response.Write("數學成績最低的同學是" & Students(k, 0) & " , "
& min & "<p />")
End Sub
麻煩前輩們幫我解答>"<
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.123.223.223