首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有一个事件过程,其功能是:从已存在于磁盘上的顺序文件NMl.txt中读取数据,计算读 出数据的平方值,将该数据及其平方值存入新的顺序文件NMtxt中。请填空。 Private Sub Form_Click() Dim x As Sing
有一个事件过程,其功能是:从已存在于磁盘上的顺序文件NMl.txt中读取数据,计算读 出数据的平方值,将该数据及其平方值存入新的顺序文件NMtxt中。请填空。 Private Sub Form_Click() Dim x As Sing
admin
2009-01-15
37
问题
有一个事件过程,其功能是:从已存在于磁盘上的顺序文件NMl.txt中读取数据,计算读
出数据的平方值,将该数据及其平方值存入新的顺序文件NMtxt中。请填空。
Private Sub Form_Click()
Dim x As Single,y As Single
Open "NMl.txt" For Input As #1
Open "NMtxt" For Input As #2
Do While Not EOF(1)
【 】
Print x
y=x^2
【 】
Print x
Loop
Close #1,#2
End Sub
选项
答案
Input #1,x , Print #2,x,y
解析
本题考查顺序文件的读写操作,事件过程中,顺序文件的打开和关闭语句都正确。循环语句使用也正确。事件过程的功能是:从NM1.txt中读取数据,向NM2.txt中写人数据。程序中没有对数据文件进行读写的语句,故空白处要填写的正是对顺序文件读数据和写数据的语句。
转载请注明原文地址:https://jikaoti.com/ti/6180FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在Java线程模型中,一个线程是由______、______和______三部分组成。
设有数组定义:intMyIntArray[]={10,20,30,40,50,60,70};,则执行下列几个语句后的输出结果是______。ints=0;for(int
______语句的功能是从当前方法中退出,返回到调用该方法的地方继续执行下面的语句。
数据元素之间______的整体称为逻辑结构。
下列是一个JavaApplet程序,填空使它的功能为计算数组下标为偶数的各元素的和。 importjava.applet.*; importjava.awt.*; publicclassTestwwextendsApplet
计算机软件由两部分组成,一部分是机器可执行的程序和数据,另一部分是机器不可执行的,与软件开发、运行、维护、使用有关的________。
下面程序的功能是将数组array下标为奇数的元素相乘(数组的位置是从0开始的),并将乘积存放到变量total中。请在程序的每条横线处填写—个位运算符,使程序的功能完整。注意:请勿改动main()主方法和其他已有的语句内容,仅在横线处填入适当的语句
下面程序是一个计时器,从1000秒开始倒计时,直到为0结束。在界面上有两个按钮,一个可以暂停计时,另一个可以继续已经暂停的计时。请更正题中带下划线的部分。注意:不改动程序的结构,不得增行或删行importjava.awt.*;im
Java语言使用Unicode字符集它的字母包括:’A’~’Z’,’a’~’z’以及序号大于____________的所有符号。
下列的程序的功能是求2~100之间的素数,程序中划线部分应填入的选项是 publicclassTestnn{ publicstaticvoidmain(Stringargs[]) {Labell: for(int
随机试题
试述一个具有科学性的教育研究理论构思的主要标准。
下列哪种肝炎病毒不是RNA病毒
A.左归丸 B.归脾汤 C.天麻钩藤饮 D.半夏白术天麻汤 E.通窍活血汤治疗头晕目眩,头重如蒙,视物旋转,苔白腻,脉弦滑、方用
室内排水系统的组成包括()。
由于财务报表中所规定的内容具有一定的(),只能提供定量的会计信息,其所能反映的会计信息受到一定的限制。
采用市场法评估花卉资产价值时,首先应考虑()。
某公司某会计年度的销售总收入为420万元,其中销售折扣为20万元,成本300万元,息税前利润85万元,利息费5万元,公司的所得税率为33%。销售净利率为()
期货交易所违反规定收取保证金的,对直接负责的主管人员和其他直接责任人员给予纪律处分,处()罚款。
进程创建原语的任务是______。
Readthereportbelowaboutthegrowthoflow-costairlines.ChoosethecorrectwordtofilleachgapfromA,BorContheoppo
最新回复
(
0
)