课后习题及补充习题(程序设计).pdfVIP

第九章 1.编写程序，接受用户输入的20个数，输出20个数的平均值。 解1 Sub ro41 () Dim a(l To 20) As Single, i As Integer, sum As Single sum = 0 For i = 1 To 20 a (i)= ValGn utBox (〃请输入数据： 〃)) sum = sum + a(i) Next i MsgBox 〃平均值为：〃 sum / 20 End Sub 解2 Sub ro411() Dim a(l To 20) As Single, i As Integer