Question

vb 编写一个程序,使其具有如下功能，（1）随机产生10个数据

，范围是30-90.存入文本文件data.text中。（2）从文件data.txt中读出数据，计算标准方差，将结果显示在窗体上

不要百度能搜到的那个答案，我试了，不管用

谢谢！

Answer 1

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

  Print

  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

  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

Answer 2

我可以给你写
帮你调试好