首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中: Private Sub Command1_Click() Open "out.txt" For Output As #2 Print "Text1" Close
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中: Private Sub Command1_Click() Open "out.txt" For Output As #2 Print "Text1" Close
admin
2015-08-28
20
问题
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中:
Private Sub Command1_Click()
Open "out.txt" For Output As #2
Print "Text1"
Close #2
End Sub
调试时发现没有达到目的,为实现上述目的,应做的修改是( )。
选项
A、把Print "Text1" 改为Print #2, Text1
B、把Print "Text1" 改为 Print Text1
C、把Print "Text1" 改为Write "Text1"
D、把所有 #2 改为 #1
答案
A
解析
要把文本框中的内容写入文本文件中,首先要用Open语句的For Output 模式打开文本文件,并为文件制定一个文件号,然后,用Print语句将文本写入文本文件,最后关闭文件。
本题中Click事件过程中第1、3条语句正确。
第2条语句Print语句的格式是:Print #文件号,要写入的内容 ,原语句错误。
根据格式按选项A修改正确,故A选项正确。
转载请注明原文地址:https://jikaoti.com/ti/HR60FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sj5.vbp,其窗体上有一个命令按钮,名称为Commandl、标题为“添加”;一个文本框,名称为Text1。程序运行前,文本框的编辑区为空白;一个列表框,名称为Listl。在文本框中输入文本,若单击“添加”按钮,文本框中的文本
考生文件夹下的工程文件sjt5.Vbp中有一个初始内容为空的文本框Textl,两个标题分别是“读数据”和“计算”的命令按钮;请画一个标题为“各行平均数的最大值为”的标签LabeL2,再画一个初始内容为空的文本框Text2,如图1-195所示。程序功能如下
数列1,1,3,5,9,15,25,41,…,的规律是从第三个数开始。每个数是它前面两个数的和加1。在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图1-99所示。请编写适当的事件过程实现以下功能:在Textl中输入整数40,单击“
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在标题为“文本框”、名称为Forml的窗体上画一个名称为Textl的文本框,无初始内容,其高、宽分别为2000、1800,可显示多行,有水平滚动条,并通过属性窗口把文本框的
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的0~999之间的100个整数读入数组a中;②单击“计算”按钮,则找出这100个整数中所有水仙花数,并将它们的最大值与最小值分别显示
VisualBASIC应用程序通常由3类模块组成,即窗体模块、【】和类模块。
以下关于函数过程的叙述中,正确的是______。
以下关于MsgBox的叙述中,错误的是______。
下列语句:X=5IfX>0ThenY=5Y=10运行程序后,下列叙述中正确的是______。
随机试题
共有是指两个以上的权利主体对同一项财产都享有使用权。()
A.食管、胃底静脉曲张破裂B.急性胃黏膜病变C.胃十二指肠溃疡D.胃癌E.胆道出血选择性动脉栓塞止血适用于哪种疾病的出血。
某工厂某病连续4年的患病率分别为7%,9%、8%和10%,则该病4年平均患病率为
以下关于烟叶税的规定正确的有()。
下列观点不属于达尔文进化理论的是()。
处于象征期的幼儿绘画进入了()。
询问证人的地点可以是()。
Fromtheearliesttimesmessageswerecarriedonfootby______.
Inthelast30years,scienceandtechnologyhavehadatrulydramaticimpactonsports.Therearethreemajorreasonsforthis.
Theherowouldratherdiethan(give)______in.
最新回复
(
0
)