首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下程序的功能是:把父目录下顺序文件smtext1.txt的内容读入内存,并在文本框Text3中显示出来。请选择适合横线处的语句( )。 Private Sub Command1_Click() Dim inData As String Text3.
以下程序的功能是:把父目录下顺序文件smtext1.txt的内容读入内存,并在文本框Text3中显示出来。请选择适合横线处的语句( )。 Private Sub Command1_Click() Dim inData As String Text3.
admin
2020-07-22
88
问题
以下程序的功能是:把父目录下顺序文件smtext1.txt的内容读入内存,并在文本框Text3中显示出来。请选择适合横线处的语句( )。
Private Sub Command1_Click()
Dim inData As String
Text3.Text=" "
Open"..\smtext1.txt"______________As#1
Do While______________
Input#1,inData
Text3.Text=Text3.Text&inData
Loop
Close#1
End Sub
选项
A、For Input Not EOF(1)
B、For Output EOF(1)
C、For Append Not EOF(1)
D、For Random EOF(1)
答案
A
解析
本题考查文件的打开。打开顺序文件的基本格式为:
Open FileName For Mode As #FileNumber。其中,FileName表示要打开的文件的路径;Mode为文件打开模式:OutPut用于输出、Append用于追加写入、Input用于读取;FileNumber为打开文件时指定的句柄(文件号)。本题中是需要读取顺序文件中的数据,因此打开模式为:Input:当通过Input#语句读取文件中数据时,为避免程序出错,常以Not EOF(文件号)作为循环条件,用于判断是否已到文件结尾。
转载请注明原文地址:https://kaotiyun.com/show/dyHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:DimnumAsInteger,rAsInteger,nAsInteger,iAsIntegerDimarr(5)AsIntegerPrivateSubCommand1_Click()num=
下列叙述中正确的是
下列叙述中正确的是
以下关于菜单的叙述中,错误的是
在关系模型中,每一个二维表称为一个
已知A$="Welcome",下列语句操作能够正确执行的是()。
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger) DimcAsString
耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是()。
将数据项“Student”添加到名称为List1的列表框中,并使其成为列表框第一项的语句为()。
随机试题
_______是一种常见病、多发病,并且公认为是脑血管病和冠心病的危险因素。
超声造影在心血管的用途,下列哪一项是错误的
杨女士,29岁。已育一子,现停经49天,医生诊断为“宫内早孕”,准备进行“人工流产加放置宫内节育器”术。人流加放置金属节育器后,护士告知受术者无异常情况下,一般带铜节育器口可放置的时间是
[背景资料]某建筑装饰装修工程,业主与承包商签订的施工合同协议条款约定如下:工程概况:该工程现浇混凝土框架结构,建筑面积98000m2,15层,平面呈“L”形,在平面变形处设有一道变形缝,结构工程于2013年7月28日已验收合格。施工范围:首层到15
文具店的圆珠笔每支4元,签字笔每支6元,钢笔每支7元。甲、乙、丙三人带的钱数相等且都不超过100元,三人分别购买一种笔,已知甲买完圆珠笔后还剩15元,乙买完签字笔后还剩21元,丙买完钢笔后还剩17元。如果三人的钱相加,最多能买多少支笔?
根据《中华人民共和国合同法》的规定,在买卖合同中,除法律另有规定或当事人另有约定外,标的物的所有权转移时间为()。
求下列函数项级数的收敛域:
在VBA编程中检测字符串长度的函数名是【】。
Access提供厂两种字段数据类型保存文本和数字组合的数据,这两种类型是:文本和【】。
WhatdoIwant?It’sreallyavery【C1】______question:yetmanyofusarenotsure.【C2】______itdoesn’thavetobeallthatdif
最新回复
(
0
)