首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下代码: Private Sub Command1_Click( ) Dim MaxSize,NeXtChar,MyChar Open"d:\temp\female.txt"For Input As
在窗体上画一个命令按钮,然后编写如下代码: Private Sub Command1_Click( ) Dim MaxSize,NeXtChar,MyChar Open"d:\temp\female.txt"For Input As
admin
2018-09-29
52
问题
在窗体上画一个命令按钮,然后编写如下代码:
Private Sub Command1_Click( )
Dim MaxSize,NeXtChar,MyChar
Open"d:\temp\female.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、Tme
B、False
C、0
D、Null
答案
B
解析
本题考查文件的操作。以读的方式打开文件female.txt,Nextchar表示从文件的最后一个字符开始。程序首先定位到该字符,然后取出一个字符,存放到字符串Mychar中。输出的EOF(1)表示文件指针是否到达文件1的末尾。返回值有True(移动到末尾)和False(没有到末尾)。既然是从后往前读出每个字符,因此操作结束以后,文件指针不可能移动到文件的末尾,所以EOF(1)的值必然为False。
转载请注明原文地址:https://kaotiyun.com/show/GQFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有以下通用过程:Functionfun(NAsInteger) s=0 Fork=1ToN s=s+k*(k+1) Nextk fun=sEndFunction该过程的功能是( )。
有如下程序:PrivateSubForm_Click() DimiAsInteger,nAsInteger Fori=1To20 i=i+4 n=n+i Ifi>10ThenExitFor
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:OptionBase1PrivateSubCommand1_Click()Dima(4,4)AsIntegerFori=1To4
如果将命令按钮的访问键设置为"D",以下不会触发命令按钮Click事件的操作是
为了读取数据,需打开顺序文件"D:\data5.txt",以下正确的命令是
编写如下程序:PrivateSubCommand1_Click()Dima(10)AsStrings="123456"n=Len(s)Fork=1Tona(k)=Mid(s,
设栈的顺序存储空间为S(0:49),栈底指针bottom=49,栈顶指针top=30(指向栈顶元素)。则栈中的元素个数为
编写如下程序:PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimarr()AsIntegern=InputBox("请输入数值:")ReDi
随机试题
对人有敌意的是谦虚的是
根据《房屋建筑工程和市政基础设施工程实行见证取样和送检的规定》,下列试块、试件和材料必须实施见证取样和送检的是()。
一个单位只能在一家金融机构开设一个基本存款账户,一般存款账户不得办理现金支付。()
国债回购交易实质是一种以()为抵押拆借资金的信用行为。
光纤通信是以光波作为信息载体,以光纤作为传输媒介的一种通信方式。从原理上看,构成光纤通信的基本物质要素是()。
领队对游客机票进行检查时,应重点检查()等内容。
关于雌激素的生理作用,哪些是正确的()。
定义部门关系模式:部门(部门号,部门名:部门成员;部门总经理),使它不满足第一范式的属性是
Solvingaproblemcanbebrokendownintoseveralsteps.First,theproblemmustbeidentifiedcorrectly.Psychologistsrefer【C1
A、TheGreenRevolution.B、TheUnitedNationsFoodandAgricultureOrganization.C、TheMillenniumSeedBankPartnership.D、TheMo
最新回复
(
0
)