有没有会ASP泡冒法的高手帮我解决个小问题。十一点前在线等

来源：百度知道 编辑：UC知道 时间：2024/05/27 09:07:32
用ASP做了一个比赛计分的小程序，9位评委，通过输入框获取9个数值，自动进行相加，然后自动减去一个最高分，自动减去一个最低分，再除以7，就得出最后的得分了。

可是程序有点小故障。数值总是排列不准确。有时候数值大小会识别错误。请高手帮改良下。代码不长，而且都加了注释。高手一下就会看懂。求哪位高人帮下。小弟感激不尽。QQ879611513

没有看到代码 先帮你分析下。
1：首先进行排序，找出最高分和最低分，然后把有效分相加。
2：求平均 涉及到小数，小数的进位、数据类型和显示方式 要考虑好。
3：给你个冒泡的例子，仅供参考。

Option Explicit

Private Sub Command1_Click()
Dim a, c As Variant
Dim i As Integer, temp As Integer, w As Integer
a = Array(12, 45, 17, 80, 50)
For i = 0 To UBound(a) - 1
If (a(i) > a(i + 1)) Then '若是递减,改为a(i)<a(i+1)
temp = a(i)
a(i) = a(i + 1)
a(i + 1) = temp
End If
Next
For Each c In a
Print c;
Next
End Sub

你把代码贴出来啊？要不怎么给你改

我来看下。Hi

我看下，HI