首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序: Private Type Record ID As Integer:Name As String*20 End Type Private Sub Command1_Click() Dim M
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序: Private Type Record ID As Integer:Name As String*20 End Type Private Sub Command1_Click() Dim M
admin
2016-09-19
39
问题
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序:
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 To1Step-1
MyChar=Input(1,#1)
Next
NextCbar
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/H7Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定定义了一个记录类型,名为Rt,同时建立了一个名为Fr.tXt的文件,然后编写如下程序段:DimRvAsRtr1=Len(RV)Open“Fr.txt”ForRandomAs#1x=LOF(1)
有如下函数过程:Functionf1(xAsInteger)AsLongDimsAsLongDimiAsIntegers=0Fori=1Tox
下面()不是VB的文件系统控件。
在数据库设计中,将E.R图转换成关系数据模型的过程属于()。
在窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:PrivateSubForm_Click()Open“d:\Temptxte1.txt”.For:
注意:下面出现的“考生文件夹”均为C:\wexam\25160002。请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上建立1个名称为Op1的单选按钮数组,含3个单选按钮,它们的标
以下叙述中错误的是()。
对含有n个关键词的序列进行冒泡法排序,最少的比较次数是______。
下列符号常量的声明中,不合法的是
在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则在下列横线处合适的语句是()。PrivateSubForm_Cli
随机试题
机器单采浓缩白细胞悬液保存最佳温度为
关于光电效应的产物,正确的是
水洗的主要目的是
葡萄糖的特殊杂质检查包括( )。
恩格斯在《致约,布洛赫》一信中曾经指出:“根据唯物史观,历史过程中的决定性因素归根到底是现实生活的生产和再生产。无论马克思或我都从来没有肯定过比这更多的东西。如果有人在这里加以歪曲,说经济因素是惟一决定性的因素,那么他就是把这个命题变成毫无内容的、抽象的、
关于静力压桩法特点的表述正确的是()。
对施工过程中发生的质量问题、质量事故进行查处的处理意见通常不包括()。
下列属于基金管理人会计系统控制措施的有()。Ⅰ.建立复核制度Ⅱ.规范基金清算交割工作Ⅲ.制定完善的会计档案保管和财务交接制度Ⅳ.建立账务组织和账务处理体系Ⅴ.建立严格的成本控制和业绩考核制度
社会工作者利用家访、教育讲座等形式,为社区居委会选举做准备。引导居民认识和关心居委会的功能,正确行使权利,履行义务。社会工作者运用的是()
某人编写了下面的程序:PrivateSubCommand1=1_Click()DimaAsInteger,bAsIntegera=InputBox("请输入整数")b=InputBox("请输入
最新回复
(
0
)