
vb编程题,谢谢各位好心人了!麻烦大家了!(因为我没有悬赏金了,各位好心的大哥大姐能免费帮我回答下么
编写程序,求当x分别为1,3,5,7,9时的yi(i为y右下角的角标,但我不会打,见笑)值yi=x=3x³+5x的五次方加。。。加到11x的十一次方(我不会打x...
编写程序,求当x分别为1,3,5,7,9时的yi(i为y右下角的角标,但我不会打,见笑)值 yi=x=3x³+5x的五次方加。。。加到11x的十一次方(我不会打x右上角的角标)以求出此五个数的平均数出这十一个y值的最大值和最小值,谢谢啦!麻烦了!
展开
2010-12-27
展开全部
Function GetValue() As Single
Dim grpY(1 To 5) As Single
Dim i As Integer
For i = 1 To 9 Step 2
grpY((i + 1) / 2) = GetY(i)
Next i
Dim avgY As Single
For i = 1 To 5
avgY = avgY + GetY(i)
Next i
avgY = avgY / 5
Debug.Print "平均值:" & avgY
Debug.Print "最大值:" & grpY(5)
Debug.Print "最小值:" & grpY(1)
End Function
Function GetY(ByVal X As Integer) As Single
Dim tmpY As Single
Dim i As Integer
For i = 1 To 11 Step 2
tmpY = tmpY + i * (X ^ i)
Next i
GetY = tmpY
End Function
平均值:1.212075E+08
最大值:3.487122E+11
最小值:36
Dim grpY(1 To 5) As Single
Dim i As Integer
For i = 1 To 9 Step 2
grpY((i + 1) / 2) = GetY(i)
Next i
Dim avgY As Single
For i = 1 To 5
avgY = avgY + GetY(i)
Next i
avgY = avgY / 5
Debug.Print "平均值:" & avgY
Debug.Print "最大值:" & grpY(5)
Debug.Print "最小值:" & grpY(1)
End Function
Function GetY(ByVal X As Integer) As Single
Dim tmpY As Single
Dim i As Integer
For i = 1 To 11 Step 2
tmpY = tmpY + i * (X ^ i)
Next i
GetY = tmpY
End Function
平均值:1.212075E+08
最大值:3.487122E+11
最小值:36
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询