VBA中计算标准差的公式为STDEV函数,其语法如下:
```
STDEV(number1, [number2], ...)
```
其中,number1, number2等表示要计算标准差的数字或数字区域。该函数将返回这些数字的标准差。
如果要通过VBA代码使用STDEV函数,可以按照以下格式编写:
```
Dim result As Double
result = WorksheetFunction.STDEV(Range("A1:A10"))
```
其中,Range("A1:A10")表示要计算标准差的数字区域,result为计算结果的变量名。
private sub command1_click()
dim score(1 to 5) as integer
dim i as integer
for i=1 to 5
score(i)=cint(inputbox("Input Score"+cstr(i)))
next i
dim avg as double
avg=score(1)+score(2)+score(3)+score(4)+score(5)
avg=avg/5
dim stdd as double
for i=1 to 5
stdd=stdd+(score(i)-avg)*(score(i)-avg)
next i
stdd=stdd/5
stdd=sqrt(stdd)
msgbox "Average Score="+cstr(avg)+",Standard Differential="+cstr(stdd)
exit sub