首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上有一个Label控件和两个命令按钮,数据文件personl.dat存放员工的编号、姓名、工资。自定义一个数据类型person,字符型数据定长为12;按“开始”按钮后,从考生文件夹下的personl.dat中读出所有数据并写人考生文
在名称为Forml的窗体上有一个Label控件和两个命令按钮,数据文件personl.dat存放员工的编号、姓名、工资。自定义一个数据类型person,字符型数据定长为12;按“开始”按钮后,从考生文件夹下的personl.dat中读出所有数据并写人考生文
admin
2010-07-13
83
问题
在名称为Forml的窗体上有一个Label控件和两个命令按钮,数据文件personl.dat存放员工的编号、姓名、工资。自定义一个数据类型person,字符型数据定长为12;按“开始”按钮后,从考生文件夹下的personl.dat中读出所有数据并写人考生文件夹下的person.dat文件中;执行完毕,“开始”按钮变成“完成”,且无效(变灰),如图39—6所示。
注意:去掉程序中的注释符“’”,把程序中的“?”改为正确的内容。考生的工程文件以文件名sj5.vbp
存盘,窗体文件以文件名sj5.frm存盘。
选项
答案
本题要利用EOF()函数判断是否到文件末尾。根据题意,将一个标签控件和两个命令按钮添加到窗体中,标签控件的Caption属性为“从源文件./personl.dat中读人数据,保存到目标文件./person.dat中”,命令按钮的名称分别为Commandl和Command2,Caption分别为“开始”和“保存”,设置完成后双击Cornmandl进入代码编写窗口,具体代码如下: Private Type person’结构体声明 n As Integer nam As String
*12
"ham为12个字符 salary As Integer End
Type
Dim per()As person Dim hum As Integer Private Sub Commandl_Click() Dim trap As person Dim i num=0 Open"App.Pathg&/personl.dat"For Input As
#1
’打开文件准备读人 While EOF(1)=False’EOF判断是否读到最后 Input#1,trap.n,trap.nam,tmp.salary’读取结构体的各个元素 num=num+l ’计数加1 Wend Close#1 ReDim per(num)As person’重新声明结构体 Open"App.Path&/personl.dat”For Input As#1 ’打开文件准备读入 For i=1To
num
’循环读取 Input#1,per(i).n,per(i).nam,per(i).salary’向数组中读取数据 Next i Close#1 Commandl.
Enabled
=False’Commandl不可用 Commandl.
Caption
="完成" ’Commandl标示改为完成 End Sub Private Sub Command2_Click() Dim i As Integer Open”App.Pathg&/
person.dat
"For Append
As#1
’打开文件准备写入 For i=1 To num’循环写入 Print#l,per(i).n,per(i).nam,per(i).salary’写入数据 Next i Close#1 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/eGmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据字典是各类数据描述的集合,它通常包括5个部分,即数据项、数据结构、数据流、【】和处理过程。
如果不为类的成员变量定义初始值,Java会给它们设置默认值。下列说法中不正确的是( )。
给出下面不完整的类代码,则横线处的语句应该为( )。classPerson{Stringname,department;intage;publicPerson(Strings){nam
Jackson结构化程序设计方法是英国的M.Jackson提出的,它是一种面向【】的设计方法。
用HTML文件显示APPLET时,下面属于必不可少的属性的是
下列语句中所使用的布局管理器,当改变容器大小,组件大小不会随着一起改变的是
在Java中,能实现多重继承效果的方式是
对长度为n的线性表进行顺序查找,在最坏情况下所需要的比较次数为
在进行模块测试时,要为每个被测试的模块另外设计两类模块:驱动模块和承接模块,其中______的作用是将测试数据传送给被测试的模块,并显示被测试模块所产生的结果。
下列操作中,不属于Applet安全限制的是
随机试题
4个月婴儿,昨日种了百白破混合疫苗,今日有轻度发热,稍哭吵不安,查:体温38.2℃(肛表),右上臂外侧注射部位有轻微红肿。咽不充血,心肺无异常发现,下列哪项处理最恰当
弹簧管压力表在测量稳定压力时,最大工作压力不应超过量程的()。
撤销案件通知书通知的对象是()
男性,28岁,十二指肠球部溃疡病史5年,突感上腹剧痛5小时,继之全腹痛,大汗淋漓。查体:全腹压痛及反跳痛,似有溃疡穿孔可能。急诊应做哪项检查
商业银行为管理市场风险采用的风险限额指标中,至少应包括风险价值限额。()
一般资料:求助者,女性,38岁,事业单位职工。案例介绍:求助者大专学历,工作能力强,人际关系好,深受领导和同事的好评。一年前,因为没有本科学历,在单位的干部竞聘中,未能如愿竞聘为副处级干部。这件事情让求助者认识到学历的重要性。此后,求助者对自己读
依据《中华人民共和国教师法》的规定,下列选项中不属于可以解聘教师的法定事由的是()。
试述学习动机与学习效果的关系。
老人节
设=b,其中[x]表示不超过x的最大整数,则().
最新回复
(
0
)