首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请选择正确的程序段是( ),将程序补充完整。 Private Type Ang K As Integ
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请选择正确的程序段是( ),将程序补充完整。 Private Type Ang K As Integ
admin
2013-04-11
61
问题
下列事件过程的功能是:建立一个名为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 Dim i As Integer Dim Ksc As Ang 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 EndSub
选项
A、..\Data1.txtFor Random As#1 Len=10 Put#1,i,Ksc
B、..\Data1.txtFor Random As#1 Len=10 Put#1,Y,Ksc
C、..\Data1.txtFor Random As#1 Put#1,i,Ksc
D、..\Data1.txtFor Random As#1 Put#1,Y,Ksc
答案
A
解析
分析程序,程序要将角度值及这些角度的正弦函数值和余弦函数值存入Datal文件中。因此,应先打开Daml文件,应为Daml文件是随机文件,要新建并写入信息,所以应用Random方式打开文件。这里我们给随机文件指定长度为10,所以第1个空白处应填: "..\Datal.txt"For Random As#1 Len=10。要向随机文件中写入信息,应用Put语句,因此第2空应填:Put#1,i,Ksc。
转载请注明原文地址:https://kaotiyun.com/show/Xdhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:FunctionFunc(ByValxAsInteger,yAsInteger)y=x*yIfy>0Then
下面叙述中不正确的是______。
决定一个窗体有无控制菜单的属性是______。
设在菜单编辑器中定义了一个菜单项,名为menul。为了在运行时隐藏该菜单项,应使用的语句是______。
下面关于InputBox函数的说法中,不正确的是______。
在窗体上画一个命令按钮和一个通用对话框,其名称分别为Command1和CommonDialogl,然后编写如下代码;PrivateSubCommand1_Click()CommonDialogl.Filter="AllFiles|
以下叙述中,错误的是______。
在关系数据库中,用来表示实体之间联系的是______。
Rnd函数不可能产生______值。
随机试题
简述罗马法的基本特征。
Ourenvironmentisgettingworseandworsewiththeincreaseoftheworldpopulation,whichaffectstheenvironmentintwoways.
常用普通医用X线胶片属于
下列哪一项不属于行为目标所涉及的内容
A.医德认识B.医德情感C.医德意志D.医德信念E.医德行为
成套配电装置柜体多台成列安装时,应逐台按顺序成列找平找正,并将柜间间隙调整为()左右。
蛋糕,25克/只,8只/盒
M公司2016年5月1日至2018年1月10日发生下列与长期股权投资有关的经济业务:(1)2016年5月1日M公司从证券市场上购入N公司发行在外40%的股份并准备长期持有,从而对N公司能够施加重大影响,实际支付款项2500万元(含已宣告但尚未发放的现金股
教师专业发展不竭的动力是()。
Thereasonsomechildrenarebackwardinspeakingismostprobablythattheirmothersrespond________totheirattemptstospea
最新回复
(
0
)