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