查人人中国名人网桃仙机场国际航班:求高手解释vb 程序
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/05 10:02:09
看不懂啊，哪个高手帮我解释一下！十分感谢
Private Function average(stuarray() As Single, n As Integer)_ As Single
'求平均值
Dim i As Integer
Dim aver As Single, sum As Single
For i = 1 To n - 1
sum = sum + stuarray(i)
Next
aver = sum / n
average = aver
End Function
Private Sub cmdstart_Click()
Dim salary1(5) As Single, salary2(8) As Single
salary1(0) = 1900: salary1(1) = 1970: salary1(2) = 1915
'设置初始值
salary1(3) = 1600: salary1(4) = 1655
salary2(0) = 2675: salary2(1) = 2780: salary2(2) = 2715
salary2(3) = 2540: salary2(4) = 2990: salary2(5) = 2770
salary2(6) = 2895: salary2(7) = 2765
'求正式员工工资
Text1.Text = Int(average(salary2(), 8) * 100) / 100
'求临时员工工资
Text2.Text = Int(average(salary1(), 5) * 100) / 100
End Sub
'求平均值函数
Private Function average(stuarray() As Single, n As Integer)_ As Single
Dim i As Integer
Dim aver As Single, sum As Single
For i = 0 To n - 1
sum = sum + stuarray(i) '数组相加得总和
Next
aver = sum / n '总数除于个数得平均数
average = aver '返回函数值
End Function
Private Sub cmdstart_Click() ‘按钮按下事件
Dim salary1(5) As Single, salary2(8) As Single
salary1(0) = 1900: salary1(1) = 1970: salary1(2) = 1915
'设置初始值
salary1(3) = 1600: salary1(4) = 1655
salary2(0) = 2675: salary2(1) = 2780: salary2(2) = 2715
salary2(3) = 2540: salary2(4) = 2990: salary2(5) = 2770
salary2(6) = 2895: salary2(7) = 2765
'求正式员工工资
Text1.Text = Int(average(salary2(), 8) * 100) / 100 '调用求平均值函数,int函数是取整
'求临时员工工资
Text2.Text = Int(average(salary1(), 5) * 100) / 100
End Sub
你会不会用vb啊，有那样的循环和求平均数的吗？
拜托你改一下，是从0 to n-1 好不好