首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据: Private Sub Command1_Click() Dim s1 As String.a2 As String Open"c:\d4.
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据: Private Sub Command1_Click() Dim s1 As String.a2 As String Open"c:\d4.
admin
2019-04-29
50
问题
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:
Private Sub Command1_Click()
Dim s1 As String.a2 As String
Open"c:\d4.dat"For Append As #3
Line Input #3.s1
Line Input #3.s2
Text1.Text=s1+s2
Close
End Sub
该程序运行时有错误,应该进行的修改是
选项
A、将Open语句中的For Append改为For Input
B、将Une Input改为Line
C、将两条Line Input语句合并为Line:Input #3,s1,s2
D、将Close语句改为Close #3
答案
A
解析
文件打开方式中的Append意味着打开的文件是顺序输出方式,也就是说打开文件是为了向其中写入数据的而不是要读出数据。因此Open"c:\d4.dat"For Append As #3应该改为Open"c:\d4.dat"For Input As #3。所以A选项正确。Clsoe语句中的文件号可以省略,这时会关闭所有打开的文件。
转载请注明原文地址:https://kaotiyun.com/show/lFUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面的程序运行时,单击窗体后,窗体上显示的结果是()。PrivateSubForm_Click()Dima(1To6)AsIntegerDimminl%,i%,j%,n%,t%,k%a(1)=8
目录列表框的Path属性的作用是()。
以下程序的功能是:把父目录下顺序文件smtext1.txt的内容读入内存,并在文本框Text3中显示出来。淆选择适合横线处的语句()。PrivateSubCommand1_Click()DiminDataAsStri
数据流图用于抽象描述一个软件的逻辑模型,数据流图由一些特定的图符构成。下列图符名标识的图符不属于数据流图合法图符的是()。
下列程序的输出结果为()。S1=“1”:S2=“2”:S1=Val(S1)+VaI(S2):S2=Val(“12”)IfS1◇S2ThenPrintS1-S2ElsePrintS2一S1
设计窗体时双击窗体的任何位置,将打开()。
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommandl—Click()Dima%,b%,i%s=1a=2Fori=
数列1,1,2,3,5,8,13,21,…的规律是从第三个数开始,每个数是它前面两个数之和。在考生目录下有一个工程文件sit5.vbp。窗体中已经给出了所有控件,如图3—87所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击“计算”按
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timerl的定时器,以及名称为Linel和Line2的两条水平直线。请用名称为Shapel的形状控件,在两条直线之间画一个宽和高都相等的形状,其显示形式为圆,并设置适当属性使其满足以下要求
随机试题
机动车在上坡途中可以掉头。
《权利法案》
糖皮质激素的临床应用表现在以下哪些方面
AustinFlint杂音可发生于下列疾病中的
2岁男孩,发热3天,全身皮疹伴双耳后肿痛1天,当地有类似患儿。查体:面部、后触及黄豆大小淋巴结。心肺查体正常,血常规示WBC4.8×109/L,N0.32,L0.68,Hb119g/L。最可能的诊断是
以下保温门的构造图中有误,主要问题是:[2007—112]
《证券投资基金法》正式实施以来,基金数量和规模迅速增长,市场地位日趋重要,呈现出的特点有()。
我国的政党制度是一种社会主义的新型政党制度,建立在社会主义经济基础之上.同社会主义国家国体的性质相适应,具有如下特征()
设窗体上有一个文本框Text1和一个命令按钮Command1,并有以下事件过程:PrivateSubCommand1_Click() DimsAsString,chAsString s="" Fork=1ToLen(Te
CarThievesCouldBeStoppedRemotely(遥远地)Speedingoff(超速行驶)inastolencar,thethiefthinkshehasgotagreatcatch.But
最新回复
(
0
)