首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序: Private Type Record ID As Integer:Name As String*20 End Type Private Sub Commandl_Cli
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序: Private Type Record ID As Integer:Name As String*20 End Type Private Sub Commandl_Cli
admin
2018-10-18
32
问题
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序:
Private Type
Record ID As Integer:Name As String*20
End Type
Private Sub Commandl_Click()
Dim MaxSize,NextChar,MyChar
Open”d:\temp\female.txt”For Input As#1
MaxSize=LOF(1)
For NextChar=MaxSize To 1 Step—l
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/axFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Command1的命令按钮。其单击事件过程如下:PrivateSubCommand1_Click()Open"c:\f1.txt"ForInputAs#1Open"c:\f2.txt"ForOut
构成计算机软件的是
在窗体上画一个文本框,其名称为Text1,然后编写如下程序:OptionBase1PrivateSubForm_Click()DimArr(10)AsIntegerFori=6To10Arr
如果在列表框List1中没有选中项目,则List1.ListIndex的值为
以下关于数组的叙述中,错误的是
将窗体的KeyPreview属性设为True,然后编写如下程序:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)
以下说法中正确的是( )。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() a$=InputBox("请输入一个二进制数") n=Len(a$) Fori=1Ton Dec=Dec*2+
计算下面分段函数的正确语句是( )。
能正确表述"x为大于等于5并且小于20的数"的VisualBasic表达式是
随机试题
A、Freshmeat.B、Freshfruit.C、Biscuit.D、Chocolate.B原文提到,只有新鲜蔬菜和水果通常是不需要包装的,所以选B。这道题符合“听到什么就选什么”的原则。如果听到的不只一项,则需要在旁边做笔记来帮助判断。听
固体催化剂使用载体的目的在于使活性组分有高度的分散性,增加催化剂与反应物的接触面积。
外科治疗门静脉高压症最主要的目的是
奶牛,3岁,采食饲料后不久突然出现不安,回头顾腹,左侧腹部明显增大,叩诊鼓音区增大,呼吸困难。则关于该患牛说法正确的是
肠风脏毒下血,治疗宜选用的方剂是
某公司2009年7月发生以下业务:(1)出租房屋取得租金收入10万元;(2)派本单位员工赴境外为境外企业提供劳务服务,取得收入15万元;(3)将自产成本为30万元、市价为45万元的商品投资人股某贸易公司,评估价为40万元:
对联要求()。这些特点都和律诗有某些相似之处,所以有人把对联称为张贴的诗。
Thepurposeoflifelongemploymentisto______.Bytrainingitsemployees,acompanycanmakethem______.
A、Iamalone.B、Fine,thanks.C、Whataboutyou?D、It’slate.B本题考查的是对问候语的回答。Howareyou?/How’sitgoing?/Howareyougettingalo
TheSixthSenseWhenyouwereachild,didyoueverwonderhowyourmotherknewwhenyouwerewritingonthewallwithcrayo
最新回复
(
0
)