下面程序的作用是打开一个随机文件,读统一0个记录,并将它们打印出来,请将下列程序补充完整。
Dim A(20), B(20), C(20)
Open "ABC.DAT " For Random As #1 Len = 8
field #1 as D$
r& = 1
For m = 1 To 20
Get #1, A(m) = cvd(D$), r% + 1
Get #1, B(m) = cvd(D$), r% + 1
Get #1, C(m) = cvd(D$), r% + 1
Next m
close #1
For m = 1 To 20
Print A(m), B(m), C(m)
Next m
End