早教吧作业答案频道 -->数学-->
1求一个由十个数构成的一维数组的平均值,并求出低于平均值的数的和.2.编写一求圆面积的函数过程,在commandclick事件中调用该过程,求圆的面积s
题目详情
1求一个由十个数构成的一维数组的平均值,并求出低于平均值的数的和.
2.编写一求圆面积的函数过程,在command click事件中调用该过程,求圆的面积s
2.编写一求圆面积的函数过程,在command click事件中调用该过程,求圆的面积s
▼优质解答
答案和解析
'1,求一个有十个数构成的一维数组的平均值,并求出低于平均值的数的和.
Private Sub Command1_Click()
Dim x(9) As Integer
Print "随机10个一维函数值:";
For i = 0 To 9
x(i) = Int(10 * Rnd)
Print x(i);
Y = Y + x(i)
Next
Y = Y / 10
Print
Print "平均值:"; Y
For i = 0 To 9
If x(i) < Y Then
Z = Z + x(i)
End If
Next
Print "低于平均值的数的和:"; Z
End Sub
'2,编写一个圆的面积的函数过程,在commandl click事件中调用该过程,求圆的面积s.
Function S(n As Integer)
S = 3.14159 * n * n
End Function
Private Sub Command1_Click()
Dim n As Integer
n = Val(InputBox("请输入圆半径"))
MsgBox "圆半径等于" & S(n)
End Sub
Private Sub Command1_Click()
Dim x(9) As Integer
Print "随机10个一维函数值:";
For i = 0 To 9
x(i) = Int(10 * Rnd)
Print x(i);
Y = Y + x(i)
Next
Y = Y / 10
Print "平均值:"; Y
For i = 0 To 9
If x(i) < Y Then
Z = Z + x(i)
End If
Next
Print "低于平均值的数的和:"; Z
End Sub
'2,编写一个圆的面积的函数过程,在commandl click事件中调用该过程,求圆的面积s.
Function S(n As Integer)
S = 3.14159 * n * n
End Function
Private Sub Command1_Click()
Dim n As Integer
n = Val(InputBox("请输入圆半径"))
MsgBox "圆半径等于" & S(n)
End Sub
看了 1求一个由十个数构成的一维数...的网友还看了以下:
1.已知一次函数的图像经过点p(2,0),且与两坐标轴截得的三角形面积为3,求一次函数的解析式.2 2020-07-14 …
函数中表示每个输入值对应唯一输出值的一种对应关系,我在教材上看到“可以多对一,但不可以“一对多”一 2020-07-23 …
问1道数学题将x=2/3代入反比例函数y=1/x中,所得函数植记为y1,又将x=y1+1代入函数中, 2020-10-31 …
似然函数值就是概率的乘积,那么对数似然函数自然就是都小于0的,那么我们要找的最大似然函数的解解具体是 2020-11-04 …
有一个运算装置,当输入值为x时,其输出值为y,且y是x的二次函数,已知输入值为-2,0,1时,相应的 2020-11-07 …
(2004•连云港)有一个运算装置,当输入值为x时,其输出值为y,且y是x的二次函数,已知输入值为- 2020-11-12 …
k·π/α(k∈Z)的三角函数值,当k为偶数时,等于α的同名三角函数值,当k为奇数时,等于α的余名三 2020-12-25 …
已知函数f(x)=(x2-3x+3)ex,x∈[-2,t](t>-2)(1)当t<1时,求函数f(x 2020-12-31 …
有一个运算装置,当输入值为x时,其输出值为y,且y是x的二次函数,已知输入值为-2,0,1时,相应的 2020-12-31 …
有一个运算装置,当输入值为x时,其输出值为y,且y是x的二次函数,已知输入值为-2,0,1时,相应的 2020-12-31 …