下列事件过程的功能是:建立一个名为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 (14) Y=3.14159/180 For i=1 TO 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) (15) Next i Close#2 End Sub
语句Form2.Show 0表示 (11) ;语句Form3.Show 1表示 (12) ;
有如下函数过程: Function gys(By Val x As Integer,ByVal y As Integer)As Integer Do While Y<#0 preminder=x/y x=Y y=preminder Loop gys=x End Function 以下是调用该函数的事件过程,该程序的运行结果是______。 Private Sub Command1_Click() Dim a As Integer,b As Integer a=10:b=2 x=gys(a,b) Print x End Sub