VB题输入n后,再输入n个数,按照下列公式计算s的值并显示
VB题输入n后,再输入n个数,按照下列公式计算s的值并显示
输入n后,再输入n个数,按照下列公式计算s的值并显示
v=（a1+a2+……+an）/n s=sqr（（a1-v）^2+（a2-v）^2+……（an-v）^2）/n
已知求v的值的函数过程f程序如下,编写事件过程Command1_Click（）,计算s值,其中v值要求调用函数过程f来完成.
Private Function f(x() As Single,n As Integer) As Single
Dim i As Integer
For i = 1 To n:f = f + x(i):Next i
f = f / n
End Function
公式
输入n后,再输入n个数,按照下列公式计算s的值并显示
v=（a1+a2+……+an）/n s=sqr（（a1-v）^2+（a2-v）^2+……（an-v）^2）/n
已知求v的值的函数过程f程序如下,编写事件过程Command1_Click（）,计算s值,其中v值要求调用函数过程f来完成.
Private Function f(x() As Single,n As Integer) As Single
Dim i As Integer
For i = 1 To n:f = f + x(i):Next i
f = f / n
End Function
公式
赞 悠悠凯西 幼苗
共回答了18个问题采纳率：83.3% 举报
Private Function f(x() As Single,n As Integer) As Single
Dim i As Integer
For i = 1 To n:f = f + x(i):Next i
f = f / n
End Function
Private Sub Command1_Click()
Dim n As Integer,x() As Single
Dim i As Integer,v1 As Single
Dim s As Single
n = Val(InputBox("请输入N的值"))
ReDim x(1 To n)
For i = 1 To n
x(i) = Val(InputBox("请输入第" & i & "个数值"))
Next
v1 = f(x,n)
For i = 1 To n
s = s + (x(i) - v1) ^ 2
Next
s = Sqr(s) / n
MsgBox s
End Sub
VB6专家百度Hi群1358368
Dim i As Integer
For i = 1 To n:f = f + x(i):Next i
f = f / n
End Function
Private Sub Command1_Click()
Dim n As Integer,x() As Single
Dim i As Integer,v1 As Single
Dim s As Single
n = Val(InputBox("请输入N的值"))
ReDim x(1 To n)
For i = 1 To n
x(i) = Val(InputBox("请输入第" & i & "个数值"))
Next
v1 = f(x,n)
For i = 1 To n
s = s + (x(i) - v1) ^ 2
Next
s = Sqr(s) / n
MsgBox s
End Sub
VB6专家百度Hi群1358368
1年前
8
可能相似的问题
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答