首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序: Private Type Record ID As Integer:Name As String*20 End Type Private Sub Coremandl Click()
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序: Private Type Record ID As Integer:Name As String*20 End Type Private Sub Coremandl Click()
admin
2017-06-21
25
问题
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序:
Private Type
Record ID As Integer:Name As String*20
End Type
Private Sub Coremandl Click()
Dim MaxSize,NextChar,MyChar
Open"d:\temp\female.txt"For Input As#1
MaxSize=LOF(1)
For NextChar=MaxSize To 1 Step-1
MyChar=Input(1,#1)
Next
NextChar
Print EOF(1)
Close#1
End Sub
运行程序,单击命令按钮,其输出结果为
选项
A、True
B、False
C、0
D、Null
答案
A
解析
LOF函数返回给文件分配的字节数(即文件的长度),与DOS下用Dir命令所显示的数字相同。EOF函数用于判断文件指针是否已到文件结尾,如果到达文件末尾,则返回True。通过使用EOF函数,测试是否到达文件末尾。本题中的循环遍历了整个文件,因此循环结束时文件指针在文件结尾。
转载请注明原文地址:https://kaotiyun.com/show/IWGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程:PrivateSubCommand1_Click()CommonDialogl.Flags=cdlOFNHideReadOnly
下列关于文件的叙述中,错误的是()。
以下程序用随机函数模拟掷骰子,统计掷50次骰子出现各点的次数。阅读该程序,并在【】和【】处填上正确的内容。PrivateSubCommand1_Click()Dimd(6)fori=1To50n=【】d(n)=【
以下叙述中错误的是
在运行程序时,在程序代码中改变文本框的Text属性值,或在文本框中输入新的内容,相应会触发()事件。
下列程序的功能是:弹出一个对话框询问用户是否输出,如果是,则输出;否则结束。请填空。SubPrintOut()DimaAsIntegera=MsgBox("输出结果?",vblnformation+vbYesNo,"提
数据模型按不同应用层次分成3种类型,它们是概念数据模型、【】和物理数据模型。
在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:PrivateSubCommand1_Click()n=Val(Text1.Text)
编写如下通用过程:SubProc(xAsSingle,yAsSingle)t=xx=t/yy=tMody
DefSnga定义的变量a是______类型的变量。
随机试题
9座(含9座)以下进口小客车(含轿车)注册登记不满2年的不可以办理转籍手续。()
按照《混凝土结构设计规范》的规定,以下关于双向板的说法中正确的有( )。
教“果实”时,教师不仅提供某一果实,还提供了颜色、大小、形状不同,可食与不可食、硬与软的各种果实。这运用了心理学中的()。
有两只相同的大桶和一只空杯子,甲桶装牛奶,乙桶装糖水,先从甲桶内取出一杯牛奶倒入乙桶,再从乙桶取出一杯糖水喝牛奶的混合液倒入甲桶,请问,此时甲桶内的糖水多还是乙桶内的牛奶多?()
某地劳动部门租用甲、乙两个教室开展农村实用人才培训。两教室均有5排座位,甲教室每排可坐10人,乙教室每排可坐9人。两教室当月共举办该培训27次,每次培训均座无虚席,当月共培训1290人次。问甲教室当月共举办了多少次这项培训?
(上海财大2012)有A、B两公司各欲借入5000万美元,期限均为5年。两家公司的借款条件如下表:通过该利率互换,A公司在5年借款期内,共可节约多少利息费用?
请简要解释以下段落中画线部分的知识点:诺曼底登陆的胜利,宣告了盟军在欧洲大陆第二战场的开辟,意味着德国陷入两面作战,减轻了苏军的压力,迫使法西斯德国提前无条件投降。
Ifyouhaveneverplantedanything,youwon’tbeabletoknowthepleasureofwatchingthethingyouhaveplanted______.
ThecelebrationoftheNewYearistheoldestoneofallholidays.Itwasfirst【C1】______in【C2】______Babylonabout4,000yearsa
TheheadofgovernmentofCanadaisrepresentedby
最新回复
(
0
)