又是计算机二级考试中的二级问题，请教各位大神来了

是有关数据文件的读取问题。。。。。。。题目是这样的

下列事件的过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度值的正弦函数值，和余弦函数值，角度为1,2,3.。。90.请在空白处填入适当的内容，将程序补充完整。

Private type ang
k as integer
sinx as single
cosx as single
end type
Dim Ksc as ang
private sub form_click()
dim y as single
open______________________________
y=3.14159/180
for i=1 to 90
Ksc.K=i
Ksc.sinx=sin(i*y)
Ksc.cosx=cos(i*y)
__________________________
next i
close #2
end sub

题目就是这样了，希望各位大神知道，话说这个文件的写入输出的，没明白是咋回事儿、、、、、、、、、、、、、

@情落天堂 @YYq1ng丶@

@情落天堂 这个应该就是二级里面的数据文件题目了，我最近在看，可是吧，有些答案不知道为什么，真郁闷。。。。。。。。。。。


不能沉贴 啊！！！！！啊！！！！！！

Private Type ang
k As Integer
sinx As Single
cosx As Single
End Type
Dim Ksc As ang
Private Sub Command1_Click() '''读取文件内容
Dim y As Single
Dim FF As Integer
FF = FreeFile
Open "d:\Datal" For Binary As #FF
Seek #FF, 1
For i = 1 To 90
Get #FF, , Ksc
MsgBox Ksc.k & vbCrLf & Ksc.sinx & vbCrLf & Ksc.cosx
Next i
Close #FF
End Sub
Private Sub form_click() '写入文件内容
Dim y As Single
Open "d:\Datal" For Binary As #2
y = 3.14159 / 180
For i = 1 To 90
Ksc.k = i
Ksc.sinx = Sin(i * y)
Ksc.cosx = Cos(i * y)
Put #2, , Ksc
Next i
Close #2
End Sub


源代码我上传网盘了，加了点注释,自己看!
VB6网友源码 ---> 以二进制方式操作文件
http://pan.baidu.com/netdisk/extractpublic?uk=1596248813

今天早晨我看看随机文件，我还没看随机文件……