首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个文本框(名称为Text1,初始内容为空白,字体大小为12,允许多行显示)和1个命令按钮(名称为C1,标题为“存盘”),编写适当的事件过程。程序运行后,把考生文件夹下in.txt文件的内容读入内存,并在文本框中显示出来,如图3—1所示;然后在文
在窗体上画1个文本框(名称为Text1,初始内容为空白,字体大小为12,允许多行显示)和1个命令按钮(名称为C1,标题为“存盘”),编写适当的事件过程。程序运行后,把考生文件夹下in.txt文件的内容读入内存,并在文本框中显示出来,如图3—1所示;然后在文
admin
2009-03-17
42
问题
在窗体上画1个文本框(名称为Text1,初始内容为空白,字体大小为12,允许多行显示)和1个命令按钮(名称为C1,标题为“存盘”),编写适当的事件过程。程序运行后,把考生文件夹下in.txt文件的内容读入内存,并在文本框中显示出来,如图3—1所示;然后在文本的最前面手工插入一行汉字:“枫桥夜泊”,如图3—2所示。如果单击“存盘”命令按钮,则把文本框中修改过的内容保存到文件ont.txt中。
注意:只能在最前面插入文字,不能修改原有文字,存盘时,工程文件名为sjt5.vbp,窗体文件名为sjt5.frm。文件in.txt的内容如下:
选项
答案
按以下步骤操作: ① 启动Visual Basic,在窗体上画1个文本框和1个命令按钮。 ② 按F4键,激活属性窗口,在属性窗口中设置文本框和命令按钮的属性,见表4。 [*] ③ 编写窗体的Load事件过程; Private Sub Form_Load() Open"in.txt"For Input As #1 Text1.Text="" Do While Not EOF(1) Line Input # 1,a$ Text1.Text=Text1.Text+a$+ Chr(13)+Chr(10) Loop Close #1 End Sub 在该过程中,从头到尾依次把in.txt文件中的每一行读到内存,然后在文本框中显示出来。在显示时,通过Chr(13)+Chr(10)实现回车换行,也可以通过vbGrLf常量实现换行。 ④ 编写“存盘”命令按钮的Click事件过程: Private Sub C1_Cliek() Open"out.txt"For output As #1 Print #1,Text1.Text Close #1 End Sub 该过程把当前文本框的内容写入文件out.txt。 ⑤ 运行程序,在文本框中显示读入的文本,此时在文本框的顶部输入“枫桥夜泊”,单击“存盘”命令按钮。然后查看当前目录下是否已建立out.txt文件,其内容是否正确。
解析
转载请注明原文地址:https://kaotiyun.com/show/vk1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列代码段执行结果为()。publicclassTest{publicstaticvoidmain(Stringargs[]){System.out.println("
JDBCAPI主要都是定义在下列哪一个包内?()
请在代码中的画线处填写正确的语句【】,使程序输出helloworld!。//HelloApplet.javaImportjava.awt.*;Importjava.applet.*;PublicclassHel
联接运算是将两个或两个以上的关系根据联接条件生成一个【】。
和AWT有关的所有事件类都是从类()派生而来。
在面向对象的程序设计中,下列叙述中错误的是
假设线性表的长度为n,则在最坏情况下,冒泡排序需要的比较次数为【】。
对建立良好的程序设计风格,下面描述正确的是()
下列构造函数中创建了一个为20行,30列的文本区的是()。
Java的图形界面技术经历了两个发展阶段,分别通过提供AWT开发包和【】开发包宋体现。
随机试题
下列哪一项所论不妥
Carefulsurveyshaveindicatedthatasmanyas50percentofpatientsdonottakedrugs______directed.
平胃散主治证的病机是
A.1岁B.2岁C.3岁D.4岁E.5岁小儿T细胞分泌INF-γ达成人水平的年龄是
诚实守信是做人的基本准则,也是会计职业道德的精髓。请指出诚实守信的含义?如果你是一名会计人员,如何做到会计职业道德关于诚实守信的要求?
事业单位以货币资金对外投资时,可能会涉及下列()科目。
下列犯罪在量刑时应并处罚金的有()。
[*]
Bubblegumisnotatopicusuallytreatedseriously,soitisappropriatethatthisnewbooktracingtheculturedhistoryofbub
A、Thejobdon’thavegoodprospects.B、Heearnsfairlyalittle.C、Hefoundabetterjob.D、Hecan’tgetinterestedinthejob.
最新回复
(
0
)