[填空题] 下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当

[填空题] 下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为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“C:Data1.txt”For Random As#2 Len=10

Y=3.14159/180

For i=1 To 90

Ksc.K=i

Ksc.Sinx:Sin(i*Y)

Ksc.Cosx:Cos(i*Y)

(15)

Next

Close#2

End Sub

Put #B,i,ksc

打开一个随机文件的一般格式为：Open”文件名称”For Random As#文件号[Len=记录长度]。