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