首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3.111所示,编写适当的事件过程。程序运行后,如果单击“显示"按钮,则
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3.111所示,编写适当的事件过程。程序运行后,如果单击“显示"按钮,则
admin
2018-12-20
48
问题
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3.111所示,编写适当的事件过程。程序运行后,如果单击“显示"按钮,则读取考生文件夹下的in5.txt文件,并在文本框中显示出来,该文件是一个用随机存取方式建立的文件,共有5个记录,要求按记录号顺序显示全部记录,每个记录一行;如果单击“保存”按钮,则把所有记录保存到考生文件夹下的顺序文件out5.txt中。随机文件in5.txt中的每个记录包括三个字段,分别为姓名、性别和年龄,其名称和长度分别为:
其类型定义为:
PriVate Type StudInfo
Name As String*8
Sex As String*4
Age As Integer
End Type
要求:文件out5.txt以顺序存取方式建立和保存。存盘时必须存放在考生文件夹下,工程文件名为sjt5.vbp,窗体文件名为sjt5.frm。
选项
答案
步骤1:新建一个“标准EXE"工程,如表4.67在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写相应事件过程。 参考代码: Private Type StudInfo Name As String*8 Sex As String*4 Age As Integer End Type Dim Stud As StudInfo Dim RecNum As Long Private Sub Command1 Click() Open App.Path &"\in5.txt"For Random As #1 Len=Len(Stud) RecNum=1 Do While Not EOF(1) Get #1,RecNum,Stud Text1.Text=Text1.Text & Stud.Name Text1.Text=Text1.Text & Stud.Sex Text1.Text=Text1.Text & Str(Stud.Age) Text1.Text=Text1.Text+vbCrLf RecNum=RecNum+1 Loop Close 1 End Sub Private Sub Command2 Click() Open App.Path &"\out5.txt"For Output As #1 Print #1,Text1.Text Close 1 End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
本题程序设计思路:在“显示”按钮的单击事件过程中,用Open语句以随机方式打开数据文件in5.txt,并用Get读出一条记录显示在文本框中,随后读取下一条记录,直到所有的记录都读取完毕;在“保存”按钮的单击事件过程中,用Open语句以Output方式打开数据文件out5.txt,并用Print #方法将文本框中的值存入该文件。
转载请注明原文地址:https://kaotiyun.com/show/nwFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个Command1命令按钮,还有以下程序代码:PrivateSubCommand1_Click()StaticxAsIntegerx=x+1Callproc(x)Printx,E
以下VisualBasic不支持的循环结构是
如果要将一个窗体从内存中清除,应使用的语句是
窗体上有一个名称为Command1的命令按钮,并有如下程序代码:OptionBase1PrivateSubCommand1_Click()Dima%(3,3)Fori=1To3Forj=
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为"Teacher
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为
设循环队列存储空间为Q(1:50)。初始状态为front=rear=50。经过一系列入队和退队操作后,front=14,rear=19,则该循环队列中的元素个数为
For循环的循环控制变量
对于循环队列,下列叙述中正确的是
随机试题
关于无偿献血表彰权限不正确的是
集体利益与个人利益的关系是()
某工业项目,建设期为2年,运营期为6年。固定资产投资总额为6000万元,其中一半为银行贷款,一半为自有资金,且均按两年等比例投入,余值在运营期末按240万元回收。贷款年利率按10%计算,还款方式为运营期按每年等额本金偿还,利息按年收取。第三年初正式
下列关于资性房地产计量模式变更的说法中,正确的是()。
根据我国《税收征收管理法》的规定,对扣缴义务人应扣未扣的税款,下列选项中,不正确的有()。
下列有关注册会计师实施进一步审计程序的时间的说法中,错误的是()。
什么是或有事项?什么情况下应当将或有负债确认为一项负债?
求函数z=3axy—x3一y3(a>0)的极值.
阅读下列说明,回答问题1至问题3,将解答填入对应栏内。【说明】随着信息技术的快速发展,企业对信息技术依赖程度日渐提高,这使得IT成为企业许多业务流程必不可少的组成部分,甚至是某些业务流程赖以运作的基础。企业IT部门地位提升的同时,也意味着要承担更
Whydosomepeopleabusedrugs?
最新回复
(
0
)