
asp access 自动计算
最近做一个小网页应用,用asp+assess,是一个评委评分的应用,大概就是评委通过网页提交评分保存在数据库中,另一个页面显示评分信息。我遇到一个问题:最后一个评委提交分...
最近做一个小网页应用,用asp+assess,是一个评委评分的应用,大概就是评委通过网页提交评分保存在数据库中,另一个页面显示评分信息。
我遇到一个问题:最后一个评委提交分数后,网页或者数据库自动计算做高分和最低分,平均分并且自动保存数据库中,有什么好的方法,请大神们帮忙。 展开
我遇到一个问题:最后一个评委提交分数后,网页或者数据库自动计算做高分和最低分,平均分并且自动保存数据库中,有什么好的方法,请大神们帮忙。 展开
展开全部
Dim FS_Arr,Temp_Arr,N,I,J,X,ZF
FS_arr="90,75,63,99,77,55,85" '分数
Temp_Arr=split(Fs_Arr,",") '切割成数组
N=Ubound(Temp_Arr) '取成员数
For I=0 To N '冒泡排序,最低分在最前
For J=0 To N-i-1
IF Temp_Arr(J)>Temp_Arr(J+1) Then
Temp_FS=Temp_ARR(J)
Temp_ARR(J)=Temp_ARR(J+1)
Temp_ARR(J+1)=Temp_FS
End if
Next
Next
Response.Write "去掉一个最高分:"& Temp_Arr(N)&"<BR />"
Response.Write "去掉一个最低分:"& Temp_Arr(0)&"<BR />"
For I=0 to N
If I>0 and I<N then '去掉最高与最低分后的平均分
X=X+1
ZF=Clng(ZF)+Clng(Temp_Arr(I))
End if
Next
Response.Write "本轮总得分为:"& ZF &"<BR />"
Response.Write "本轮平均分为:"& ZF/X&"<BR />"
来吧,,给分~~

2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询