杭州交通信息网生死狙击抽奖抽哪第一:帮忙一下完成程序，拜托了
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 04:06:09
1为超级女声歌手大赛设计一个评分程序，10名评委，去掉一个最高分，一个最低分，计算平均分。
2一列火车在某地时的速度为Vo=40Km/h,以加速度a=0.15m/s²加速度行使，求2min后的加速度v和距开始点的距离S。
3某商场为了对苹果进行促销，规定购买2公斤以上可以在原价每公斤1.5元的基础上打8折，请设计一个程序计算购买X公斤苹果的应付款y。
三选二，分别写出它们的流程图和VB语言。
拜托了，我知道难不到各位高手的，这是作业， 请麻烦尽快，谢了！！！
2一列火车在某地时的速度为Vo=40Km/h,以加速度a=0.15m/s²加速度行使，求2min后的加速度v和距开始点的距离S。
3某商场为了对苹果进行促销，规定购买2公斤以上可以在原价每公斤1.5元的基础上打8折，请设计一个程序计算购买X公斤苹果的应付款y。
三选二，分别写出它们的流程图和VB语言。
拜托了，我知道难不到各位高手的，这是作业， 请麻烦尽快，谢了！！！
第一题和第三题，希望有帮助～
Private Function Average(ByRef x() As Long) As Double
mmax = x(1)
mmin = x(1)
ssum = x(1)
For i = 2 To 10 Step 1
If x(i) > mmax Then
mmax = x(i)
End If
If x(i) < Min Then
mmin = x(i)
End If
ssum = ssum + x(i)
Next
Average = (ssum - mmax - mmin) / 8
End Function
Private Function GetMoney(ByVal x As Double) As Double
If x > 2 Then
GetMoney = 0.8 * x * 1.5
Else
GetMoney = x * 1.5
End If
End Function
Private Sub Main()
Dim x(1 To 10) As Long
For i = 1 To 10
x(i) = Rnd() * 5 + 5
Next
a = Average(x)
b = GetMoney(3)
End Sub
EXELC的函数是带有的！