首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图2.92所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图2.92所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读
admin
2018-12-20
69
问题
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图2.92所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读取考生文件夹下的inS.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,窗体文件名为sit5.frm。
选项
答案
【操作步骤】 步骤1:新建一个“标准EXE”工程,如表3-51在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写相应事件过程。 参考代码: Private Type Studlnfo Name As String*8 Sex As String*4 Age As Integer End Type Dim Stud As StudInfo Dim RecNum As Long Private Sub Commandl C1ick() Open App.Path&”\in5.txt”For Random As#1 Len=Len(Stud) RecNum=1 Do While Not EOF(1) Get #1,RecNum,Stud Textl.Text=Textl.Text&Stud.Name Textl.Text=Textl.Text&Stud Sex Textl.Text=Textl.Text&Str(Stud.Age) Textl.Text=Textl.Text+vbCrLf RecNum=RecNum+1 Loop Close 1 End Sub Private Sub Command2 Click() Open App.Path&”\out5.txt”ForOutput As#1 Print#1,Textl.Text Close 1 End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/l8Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubForm_Click() Print"Welcome!"EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAs
如果要在窗体上使用2组单选按钮,每组都可以有一个被选中,则应该做的是( )。
以下关于事件、事件驱动的叙述中,错误的是( )。
以下叙述中正确的是( )。
设窗体上有3个图像框:Image1、Image2、Image3,并有下面的程序代码:PrivateSubForm_Load()Image1.Picture=LoadPicture("LEAF.bmp")Image2.Pictu
下面程序的功能是输出100以内所有素数:PrivateSubCommand1_Click()Forn=2To100isprime=Truek=2DoWhilek
下面不属于软件设计阶段任务的是
设窗体文件中有下面的事件过程:PrivateSubCommand1_Click() Dims a%=100 PrintaEndSub其中变量a和s的数据类型分别是( )。
下面描述中不属于数据库系统特点的是
随机试题
()属于六大类按摩基本手法之一。
关于胆石症,下列叙述哪些是正确的
正经别行深入体腔的支脉是
吸入麻醉药中麻醉效能最低的是
甲公司对乙公司享有一笔10万元的债权,在该债权到期之前,甲公司将其资产按7:3的比例分立为两个独立的公司丙公司和丁公司,而甲公司解散。甲公司分立时未与乙公司就该笔债权的归属作出约定,则该债权到期后,应由谁行使还款请求权?
依据施工合同示范文本规定,施工中涉及的应由承包人承担的费用有()。
对未设档案管理部门的单位,会计档案应由会计机构指定专人保管,但不得由单位出纳保管。
有关劳动力因素对人力资源策略的影响的说法正确的有()。
数据链路层采用了后退N帧(GBN)协议,发送方已经发送了编号为0~7的帧。当计时器超时时,若发送方只收到0、2、3号帧的确认,则发送方需要重发的帧数是()。
DrThomasStarzl,likeallthepioneersoforgantransplantation,hadtolearntolivewithfailure.Whenheperformedtheworld
最新回复
(
0
)