用VB编写程序，从文件“c:zx.txt”中读出10个实数。求出10个数的最大值和平均数，并分别显示。

用VB编写程序，从文件“c:zx.txt”中读出10个实数。求出10个数的最大值和平均数，并分别显示。

由于不知道你的数据时如何存储在文件中的，下面假设你的数据是一行一行的存储的

Private Sub Form_Load()
Dim x(10) As String
Dim even As Double
Dim MaxX As Double
Dim i As Integer
MaxX = 0
even = 0
Open "c:\zx.txt" For Input As #1

For i = 1 To 10
Line Input #1, x(i)
even = even + Val(x(i))
If Val(x(i)) > MaxX Then
MaxX = Val(x(i))
End If
Next i
even = even / 10
MsgBox "这10个数的最大值为:" & MaxX & ",平均值为" & even
End Sub

Option Explicit Const N = 10 '读取10个数 Private Sub Form_Activate() Dim S, Max, i, temp On Error GoTo errmsg Open "c:\zx.txt" For Input As #1

For i = 1 To N Line Input #1, temp '按行读取

If EOF(1) Then MsgBox "检查数据的个数：" & N Unload Me End If S = S + Val(temp) If Max < Val(temp) Then Max = Val(temp) Next Close #1 S = S / N

MsgBox "最大值：" & Max & vbNewLine & "平均值：" & S Unload Me Exit Sub errmsg: MsgBox "检查c:\zx.txt文件是否存在！" End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息