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