![[填空题] 下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。 Private,第1张 [填空题] 下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。 Private,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E4%B8%8B%E5%88%97%E4%BA%8B%E4%BB%B6%E8%BF%87%E7%A8%8B%E7%9A%84%E5%8A%9F%E8%83%BD%E6%98%AF%EF%BC%9A%E5%BB%BA%E7%AB%8B%E4%B8%80%E4%B8%AA%E5%90%8D%E4%B8%BADatal%E7%9A%84%E9%9A%8F%E6%9C%BA%E6%96%87%E4%BB%B6%EF%BC%8C%E5%AD%98%E6%94%BE%E8%A7%92%E5%BA%A6%E5%80%BC%E5%8F%8A%E8%BF%99%E4%BA%9B%E8%A7%92%E5%BA%A6%E7%9A%84%E6%AD%A3%E5%BC%A6%E5%87%BD%E6%95%B0%E5%80%BC%E5%92%8C%E4%BD%99%E5%BC%A6%E5%87%BD%E6%95%B0%E5%80%BC%EF%BC%8C%E8%A7%92%E5%BA%A6%E4%B8%BA1%EF%BC%8C2%EF%BC%8C3%EF%BC%8C%E2%80%A6%EF%BC%8C90%E3%80%82%E8%AF%B7%E5%9C%A8%E7%A9%BA%E7%99%BD%E5%A4%84%E5%A1%AB%E5%85%A5%E9%80%82%E5%BD%93%E7%9A%84%E5%86%85%E5%AE%B9%EF%BC%8C%E5%B0%86%E7%A8%8B%E5%BA%8F%E8%A1%A5%E5%85%85%E5%AE%8C%E6%95%B4%E3%80%82+Private.png)
[填空题] 下列事件过程的功能是:建立一个名为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
Put #2,i,Ksc
参考解析:第1个空白行已经告诉我们是打开文件的语句,现在要将它填写完整。该语句应确定文件的存取方式是随机存取。在自定义变量中,有3个成员,其中角度为整型数据,占2个字节;弦和余弦函数值为单精度类型,各占4个字节,故文件的记录占10个字节。若不指定kn参数,则隐含一个记录占:128字节。为了节省存储空间,可在Open语句中只写len参数值。程序中没有将数据写入随机文件的语句,第2个空白行应是Put语句。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)