vb代码，有没有计算标准平方差的函数？ vb自带的函数中没有。可以自己写。
求用VB做计算方差的程序。 Private Sub Command1_Click()Dim a As IntegerDim b As SingleDim Sj()As SingleDim He As SingleDim I As Integera=InputBox(\"你要求多少个数的方差？ReDim Sj(a)For I=1 To aSj(I)=InputBox(\"请输入第\"&I&\"个数字：\")He=He+Sj(I)Next Ib=He/aFor I=1 To aSj(0)=Sj(0)+(Sj(I)-b)^2Next IPrint\"这\"&a&\"个数的方差是：\"&Sj(0)/aEnd Sub
怎样用VB计算标准差 Private Sub Command1_Click()Doa=Val(InputBox(\"a\"，a))If a=0 ThenElseb=b+ac=c+1End IfLoop Until a=0 b=b/cText1.Text=bEnd Sub 在输入“0”以后结束对数据的载入。Private Sub Command2_Click()Doa=Val(InputBox(\"a\"，a))If a=0 ThenElseb=b+Fix((Text1.Text-a)^2*1000)/1000c=c+1End IfLoop Until a=0b=bPrint a，bb=b/cPrint Sqr(b)，cEnd Sub在另一个按钮中输入，得出标准差。
