在 VBA（Visual Basic for Applications）中，可以使用内置函数 WorksheetFunction.StDev 来计算一组数据的标准差。
WorksheetFunction.StDev 函数的语法如下：
WorksheetFunction.StDev(Range)
其中，Range 是包含要计算标准差的数据范围。
以下是一个示例，演示如何在 VBA 中使用 WorksheetFunction.StDev 函数计算标准差：
Dim dataRange As Range Set dataRange = Range("A1:A10") ' 假设数据范围是 A1 到 A10 Dim stdev As Double stdev = WorksheetFunction.StDev(dataRange) MsgBox "标准差为: " & stdev
在上面的示例中，我们将数据范围设置为 A1 到 A10，然后使用 WorksheetFunction.StDev 函数计算这些数据的标准差，并将结果存储在 stdev 变量中。最后，通过 MsgBox函数显示计算结果。
需要注意的是，WorksheetFunction.StDev 函数计算的是样本标准差。如果要计算总体标准差，可以使用 WorksheetFunction.StDev_P 函数。
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
