1求一个由十个数构成的一维数组的平均值,并求出低于平均值的数的和.2.编写一求圆面积的函数过程,在commandclick事件中调用该过程,求圆的面积s

Question

1求一个由十个数构成的一维数组的平均值,并求出低于平均值的数的和.
2.编写一求圆面积的函数过程,在command click事件中调用该过程,求圆的面积s

Answer 1

'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