Private Sub fileopen()
Dim i As Integer
Open filename For Random As 1 Len = rec_long
rec_long = Len(a)
rec_total = LOF(1) / rec_long
rec_no = 1
Call display
End Sub
运行时
Open filename For Random As 1 Len = rec_long
这条显示错误5
怎么改
Private Sub Command1_Click()RandomizeDim a(1 To 20) As IntegerDim i As IntegerDim sum As Integer, avera As DoubleFor i = 1 To 20a(i) = Int(Rnd * 1001)sum = sum + a(i)Nextavera = sum / 20Print averaEnd Sub========================================================================Private Sub Comm...
