,范围是30-90.存入文本文件data.text中。(2)从文件data.txt中读出数据,计算标准方差,将结果显示在窗体上
不要百度能搜到的那个答案,我试了,不管用
谢谢!
Private Sub Command1_Click()
Open "d:\data.txt" For Output As #1
Randomize
Print "输入文件:"
For i = 1 To 10
x = 30 + Int(Rnd * 61)
Print #1, x;
Print x;
Next i
Close #1
Print "从文件中读出:"
Open "d:\data.txt" For Input As #1
Dim a(10)
s = 0
For i = 1 To 10
Input #1, a(i)
Print a(i);
s = s + a(i)
Next i
av = s / 10
Print "平均值="; av
s = 0
For i = 1 To 10
s = s + (a(i) - av) * (a(i) - av)
Next i
s = Sqr(s / 10)
Print "标准方差="; s
End Sub