首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
已知c:\1.txt是一个非空文件,其程序代码如下。 Private Sub Command1_Click() Dim MaxSize,NextChar,MyChat Open"c:\1.txt"For Input As#1
已知c:\1.txt是一个非空文件,其程序代码如下。 Private Sub Command1_Click() Dim MaxSize,NextChar,MyChat Open"c:\1.txt"For Input As#1
admin
2009-02-13
70
问题
已知c:\1.txt是一个非空文件,其程序代码如下。 Private Sub Command1_Click() Dim MaxSize,NextChar,MyChat Open"c:\1.txt"For Input As#1 MaxSize=LOF(1) For NextChar=MaxSize To 1 Step-1 Seek #1,NextChar MyChar=Input(1,#1) Next NextChar Print EOF(1) Close #1 End Sub 程序运行后,单击命令按钮,其输出结果为______。
选项
A、True
B、Null
C、0
D、False
答案
8
解析
For循环开始执行时,由于NextChar=MaxSize,所以要执行语句Seek #l,NextChar,文件指针指向文件尾,使EOF(1)为真,循环结束后,文件指针指向文件的开始处,故其输出结果为False。
转载请注明原文地址:https://kaotiyun.com/show/V21p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列()选项不能提高程序的性能。
在Windows环境下,实现窗口移动的操作是()。
给出下列的不完整的类代码,则哪个语句可以被加到横线处?()classPerson{Stringname,department;intage;publicPerson(S
给出下列的程序段,哪个选项是不正确的?()①publicvoidcreate(){②Vectormy;③my=newVector();④}
下列程序段执行后的输出结果为()intx=3;inty=10;System.out.println(y%x);
创建一个显示“选项”的菜单项对象mi的正确语句是【13】。
下列组件不能添加进Frame主窗口的是()。
下面是一个Applet程序,其功能是建立一个图形用户界面的窗口,包括一个文本显示区和一个按钮,点击按钮,可以在文本区已有的文本基础上追加显示10条"WelcometotheNCRExamination!"信息,并且文本区由滚动条控制文本的上下滚动。
下列Applet在窗口中实现一个不可编辑的TextField,并且显示“ok”。请填写正确的程序在横线处。importjava.applet.Applet;importjava.awt.*;publicclassTest14
随机试题
经注册的设备监理工程师有()情形的,由原注册登记机构注销注册。
Word2010快速访问工具栏中默认显示的按钮有“保存”、“撤消”和“恢复”。
资本主义社会实行的纪律是()。
A.L1~2椎间盘突出B.L2~3椎间盘突出C.L3~4椎间盘突出D.L4~5椎间盘突出E.L5~S1椎间盘突出导致趾背伸力弱的椎间盘突出症是
不属于上睑下垂的病因是
男性,13岁,半月来全身水肿,乏力。尿蛋白(++++),定量4.0g/24h,镜检偶见沉渣红细胞和透明管型。血压120/80mmHg,血浆白蛋白29g/L,BUNSmmol/L,Scr98μmol/L.胆固醇、甘油三酯升高。该例最可能的病理诊断应是
(河北2010—37)某月刊每期定价5元。某单位一部分人订半年,另一部分人订全年,共需订费480元;如果订半年的改订全年,订全年的改订半年,那么共需420元。共有多少人订了这份期刊?()
Youwillhearfivestatementsinwhichpeopletalkabouttheiropinionsonbusinessmeetings.Foreachrecording,decideeac
我想起故乡放雏鸭的人了。一大群鹅黄色的雏鸭游牧在溪流间。清浅的水,两岸青青的草,一根长长的竹竿在牧人的手里他的小队伍是多么欢欣地发出啾啁声?又多么驯服地随着他的竿头越讨一个田野又一个山坡!夜来了,帐幕似的竹篷撑在地上,就是他的家。但这是怎样辽远的想象啊!在
WhichofthefollowingisNOTtrueabouttheAUpeacekeepingforce?
最新回复
(
0
)