首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,并编写如下程序: Private Type Record ID As Integer:Name As String*20 End Type Private Sub Command1_Click() Dim M
在窗体上画一个名称为Command1的命令按钮,并编写如下程序: Private Type Record ID As Integer:Name As String*20 End Type Private Sub Command1_Click() Dim M
admin
2016-12-13
45
问题
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:
Private Type
Record ID As Integer:Name As String*20
End Type
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
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/h6Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
对如下二叉树进行后序遍历的结果为()。
本程序的功能是利用随机数函数模拟投币,方法是:每次随机产生一个整数0或1,相当于一次投币,1代表正面,0代表反面。在窗体上有3个文本框,名称分别是Textl、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图1所示
数据库恢复是将数据库从_______状态恢复到某一已知的正确状态。
要将名为MyForm的窗体显示出来,正确的使用方法是()。
一个算法通常由两种基本要素组成:一是对数据对象的运算和操作,二是___________。
没有数组定义语句:Dima(5)AsInteger,Listl为列表框控件。下列给数组元素赋值的语句错误的是()。
三种基本结构中,能简化大量程序代码行的是()。
设有以下函数过程:Functionfun(mAsInteger)AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Step-2sum
窗体上有一个名称为Labell的标签和一个名称为Commandl的命令按钮。命令按钮的单击事件过程如下:PrivateSubCommandlClick()x=InputBox("输入x:":..0)y=InputBox(
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
随机试题
A、原发型肺结核B、血行播散型肺结核C、继发型肺结核D、结核性胸膜炎E、肺外结核60岁男性病人,既往有肺结核史及慢性咳嗽史,X线胸片发现左上肺大片密度增高影,内有透光区,左肺门上提,气管及纵隔左移,应诊断为
初生第一天的新生儿,血常规:血红蛋白160g/L,白细胞21×109/L,N0.60,L0.38,M0.02,HbF60%.,可见少量幼稚红细胞及幼稚中性粒细胞,血常规提示
某女,经来先期,量少或多,色红质稠,手足心热,舌红少苔,脉细数。首选方是
某女,30岁。因服用大量地西泮导致昏迷而入院。诊断为:地西泮急性中毒。此时除洗胃及其他支持疗法外,应给予特异性的解毒药是
甲公司获得了某医用镊子的实用新型专利,不久后乙公司自行研制出相同的镊子,并通过丙公司销售给丁医院使用。乙、丙、丁都不知道甲已经获得该专利。根据《专利法》的规定,下列选项中正确的是()。
适用于生态环境影响评价和预测的方法有()。
深基坑施工中,以提高土体的强度和土体的侧向抗力为主要目的的地基加固处理方法有()。
大面积烧伤病人由于严重脱水,使血钾升高,细胞外液渗透压升高,此时血液中()
在利用结构化开发生命周期法开发系统时,在整个开发过程中最重要的环节是()。
ThefloodinThailandresultedinthefollowingdamagesEXCEPT______.
最新回复
(
0
)