作者commiserate (无)
看板Visual_Basic
标题Re: [ASP.NET ] 一个2维阵列的问题..
时间Wed Nov 1 17:11:25 2006
※ 引述《Firedance (迎火飞舞)》之铭言：
: ※ 引述《Firedance (迎火飞舞)》之铭言：
: : 标题: Re: [ASP.NET ] 一个2维阵列的问题..
: : 时间: Wed Nov 1 02:40:20 2006
: : 推 commiserate:有错误讯息吗？版本？ 11/01 08:51
: 是我宣告变数值宣告错了，
: 我是用Visual Studio 2005（语言用VB）写的
: 我後来把程式改了一下..如下面网址..
: http://www.chinesefreewebs.com/chiahung/asp/2array1.txt
: 先将A(1,1).A(1,2)的值加起来然後让平均产生在最右边.
: 但我想说如果要让平均产生在最下面的话
: 就必需要先产生
: A(1,1).A(1,2)
: A(2,1).A(2,2)
: .
: .
: .
: 的数字，然後在将 A(1,1).A(2,1).A(N.1)的值加起来平均放到下面
: A(1,1).
: A(2,1).
: A(3,1)
: 平均
: 就因为想放到下面我就写不出来了..我都是在纸上先写出来然後
: 在去想要怎麽写，可是这个我先将分数产生出来之後却不知道如
: 何加程式码..
: 想说将Total += A(I,J)改成 Total += A(I,1)，但好像也不行.
: 请问有人知道如何修改的吗？？
: 请问有人知道要怎麽写的呢？
我就直接改你的程式码罗
标黄色是我加上去的
标蓝色是我没用到的部分
就是产生成绩再画表格
请享用
Dim Students As Integer =
Microsoft.VisualBasic.Interaction.InputBox("请输入学生人数")
Dim Subject As Integer =
Microsoft.VisualBasic.Interaction.InputBox("请输入学习科目数量")
Dim A(Students, Subject), I, J As Int16, Total As Int64, Value
As String, Ave, Average, Valuer As Single
Dim RandomNumber As Random = New Random
'自此开始为新增
Dim total_Student(Students) As Double, total_Subject(Subject)
As Double
For I = 1 To Students
For J = 1 To Subject
A(I, J) = RandomNumber.Next(0, 101)
total_Student(I) += A(I, J)
total_Subject(J) += A(I, J)
Next
Next
'自此结束为新增
Response.Write("<title>计算平均分数</title><center><table
border='1' cellpadding='2' width='600' cellspacing='2'>")
Valuer = 0
For I = 1 To Students
Response.Write("<tr>")
'Total = 0
For J = 1 To Subject
'A(I, J) = RandomNumber.Next(0, 101)
'Total += A(I, J)
If A(I, J) >= 60 Then
Value = "<font color=blue>" & A(I, J) & "</font>"
Else
Value = "<font color=red>" & A(I, J) & "</font>"
End If
Response.Write("<td>" & "No" & I & "=" & Value &
"</td>")
Next
'Ave = Math.Round(Total / Subject, 1)
Ave = total_Student(I) / Subject '新增
Valuer += Ave
If Ave >= 60 Then
Response.Write("<td>平均：<font color='blue'>" & Ave &
"</font></td>")
Else
Response.Write("<td>平均：<font color='red'>" & Ave &
"</font></td>")
End If
Next
'自此开始为新增
Response.Write("<tr>")
For J = 1 To Subject
Ave = total_Subject(J) / Students
If Ave >= 60 Then
Response.Write("<td>平均：<font color='blue'>" & Ave &
"</font></td>")
Else
Response.Write("<td>平均：<font color='red'>" & Ave &
"</font></td>")
End If
Next
'自此结束为新增
Average = Math.Round(Valuer / Students, 1)
Response.Write("<td><font color='Green'>总平均：" & Average &
"</font></td>") '新增
Response.Write("<font color='Green'>" & "求每位学生平均分数
<br>" & "</font><br>")
Response.Write("<tr align='center'><td colspan='" & Subject +
1 & "'><font color='Green'>" & Students & "位学生平均分数为：" &
Average & "</font></td></tr>")
Response.Write("</table><br><font color='blue'>考试科目数：" &
Subject & " 学生人数：" & Students & "</font></center>")
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.63.21.245