首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。 Private Type Ang K As Integer Si
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。 Private Type Ang K As Integer Si
admin
2010-11-20
69
问题
下列事件过程的功能是:建立一个名为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
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
选项
答案
C:\Data1.txt For Random As #2 Len = 10 , Put #2, I, Ksc
解析
第1个空白行已经告诉我们是打开文件的语句,现在要将它填写完整。该语句应确定文件的存取方式是随机存取。在自定义变量中,有3成员,其中角度为整型数据,占2个字节;弦和余弦函数值为单精度类型,各占4个字节,故文件的记录占10个字节。若不指定Len参数,则隐含一个记录占128字节。为了节省存储空间,可在Open语句中指写Len参数值。程序中没有将数据写入随机文件的语句,第2个空白行应是Put语句。
转载请注明原文地址:https://kaotiyun.com/show/Q7mp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
鼠标在窗口中移动时,产生的事件是______。A)ActionEventB)PrintEventC)KeyEventD)MouseEvent
在Applet中,创建一个具有16行40列的多行文本区域对象ta的语句为【】。
运行Java程序需要的工具软件所在的目录是()。
数组中各个元素的数据类型是
若要在D盘根目录下生成一个名为mydir的文件夹,请在下面横线处填入代码完成此程序。importjava.io.*;publicclassFileTest{publicstaticvoidmain(Stringargs
数字签名的验证过程是:首先引入签名密钥的公钥,其次建立【】,然后配置本地运行环境的安全策略。
创建一个名为MyPackage的包的语句是【】。
设有如下关系表:则下列操作中正确的是
下面程序是关于类的继承的用法。阅读下面程序,根据程序中的注释在每一条横线处填写一个语句,使程序的功能完整,且运行程序后的输出结果为:Iamparentclass!Iamchildclass!Iamchildclass!
下列属于正则表达式的是()。
随机试题
以下不是健康教育计划实施过程中质量控制方法的是
A.可动黏膜B.移行黏膜C.固定黏膜D.咀嚼黏膜E.口内黏膜移行皱襞黏膜属于
A.国务院药品监督管理部门B.省级药品监督管理部门C.市级药品监督管理部门D.药品监督管理部门设置的派出机构《医疗机构制剂许可证》由何部门发给()
A.瞳孔缩小B.瞳孔扩大C.黄疸D.血红蛋白尿E.樱桃红吗啡中毒()
(2010年)图5—72所示三根压杆均为细长(大柔度)压杆,且弯曲刚度均为EI。三根压杆的临界载荷Fcr的关系为()。
我国现行建筑安装工程价款按月结算的结算对象是( )。
按照“三同时”制度的规定,落实防治环境污染和生态破坏的措施及经费概算的工作,应当在( )完成。
预提所得税应由扣缴义务人于每次扣缴税款后( )内缴入国库,并向当地税务机关报送扣缴所得税报告。
东亚航空公司是位于北京的一家大型民营航空公司,2019年2月发生下列经营业务:(1)国内航线取得不含税客运收入4700万元,国际航线取得客运收入2400万元。(2)将一架配备有机组人员的小型客机租赁给某公司使用三个月,每月月末收取租金100万元(不含税
Longtimeago,everyoneknewthatregularbedtimeswereimportant."Dreamon!"mostmodernparentsmightreply.Butresearchby
最新回复
(
0
)