首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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
47
问题
在窗体上画一个名称为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全国计算机二级
相关试题推荐
面向对象的模型中,最基本的概念是对象和【】。
程序运行时,用户向文本框输入内容时,将触发文本框的()事件。
窗体上有两个控件:一个是驱动器列表框Drive1,另一个是目录列表框Dir1,现在要使目录列表框跟随驱动器列表框的变化而变化,则需在Drive1_Change事件过程中填入语句【】。
在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编写如下代码:DimSaveAllAsStringPrivateSubCommand1Click()Text1.Text=Left(UCase(SaveAl
以下关于窗体的描述中,错误的是()。
在程序的每个空白处填写一条适当的语句,使程序完成相应的操作。程序实现的功能是:窗体上有文本框Text1和若干复选框,其中复选框Check1设置文本框Text1显示的文本是否加下划线。Check1的单击事件过程如下:PrivateSubCheck1_C
表达式Sgn(-2)-3.5的值是______。
设有如下的VisualBasic表达式:5*x^2-3*x-2*Sin(A)/3,它相当于代数式【】。
在窗体上画一个命令按钮,然后编写如下程序:(假定变量x是一个窗体级变量)DimxAsIntegerSubinc(aAsInteger)x=x+aEndSubPrivateSubComma
随机试题
A、枕骨B、颊骨C、骶骨D、肩岬骨E、臀部ISA的先露部指示点为()
我国《民事诉讼法》有很多关于审限的规定,以下错误的是:
甲、乙共谋行抢。甲在偏僻巷道的出口望风,乙将路人丙的书包(内有现金一万元)一把夺下转身奔逃,丙随后追赶,欲夺回书包。甲在丙跑过巷道口时突然伸腿将丙绊倒,丙倒地后摔成轻伤,甲、乙乘机逃脱。甲、乙的行为构成何罪?()(2009年卷二第7题)
根据建设工程勘察合同文本,下列解释合同文件的优先顺序正确的是()。
钢筋工程机械连接接头试验时发现有1个试件的抗拉强度不符合要求,这时应再取()个试件进行复检。
零担货物是指按一份运单托运的一批货物,其质量不超过______t,按其体积、形状或性质不需要单独车辆运送的货物。
以下属于迁移现象的有()。
某公司年会设有6个红包,分别装有100、200、300、400、500、600元现金,若从中任意抽取3个红包且红包内总金额能被三等分,则三个红包归抽中的人所有。那么中奖概率为多少?
目前我国的执法主体主要有()
Theworld’srainforestscoverlessthantenpercentoftheearth’ssurface,butcontainoverfortypercentofallplantandanim
最新回复
(
0
)