Private TypeAng KAs Integer SinxAs Single CosxAs Single End Type Dim KscAsAng Private Sub Form_Click() Dim YAs Single Dim iAs Integer Dim KscAsAng 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 A."..\Data1.txt"For RandomAs #1 Len=10Put#1,i,Ksc B."..\Data1.txt"For RandomAs #1 Len=10Put#1,Y,Ksc C."..\Data1.txt"For RandomAs #1 Put#1,i,Ksc D."..\Data1.txt"For RandomAs #1 Put#1,Y,Ksc