[填空题] 下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
Dim Ksc As Ang
Private SubForm_Click()
Dim Y As Single
Open 【10】
Y=3.14159/180
For i=1 To 90
Ksc.K=i
Ksc.Sinx=Sin(i*Y)
Ksc.Cosx=Cos(i*Y)
【11】
Next i
Close #2
End Sub
正确答案:[10]“C:Datal.txt”For Random As #Len_=10 [11]Put #2,i,Ksc
参考解析:第1个空白行已经告诉我们是打开文件的语句,现在要将它填写完整。该语句应确定文件的存取方式是随机存取。在自定义变量中,有3成员,其中角度为整型数据,占2个字节;弦和余弦函数值为单精度类型,各占4个字节,故文件的记录占10个字节。若不指定Len参数,则隐含一个记录占128字节。为了节省存储空间,可在Open语句中指写Len参数值。程序中没有将数据写入随机文件的语句,第2个空白行应是 Put语句。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)