首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上有一个Label控件和两个命令按钮,数据文件personl.dat存放员工的编号、姓名、工资。自定义一个数据类型person,字符型数据定长为12;按“开始”按钮后,从考生文件夹下的personl.dat中读出所有数据并写人考生文
在名称为Forml的窗体上有一个Label控件和两个命令按钮,数据文件personl.dat存放员工的编号、姓名、工资。自定义一个数据类型person,字符型数据定长为12;按“开始”按钮后,从考生文件夹下的personl.dat中读出所有数据并写人考生文
admin
2010-07-13
74
问题
在名称为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全国计算机二级
相关试题推荐
一个程序中单独的、并发的线程对同一个对象进行访问的代码段,称为【】。
在Applet中,下列方法中能完成主类实例初始化工作的是( )。
Java中,通过网络使用URL访问对象的功能流是( )。
在结构化程序设计中,模块划分的原则是( )。
阅读下列代码后publicclassPerson{intarr[]=newint[10];publicstaticvoidmain(Stringargs[]){System.out.pr
下列代表八进制整数的是
当一个应用程序的所有非守护线程终止运行时,若仍然有守护线程在运行,应用程序将______。
下列代表十六进制整数的是()。
随机试题
Spaceisadangerousplace,notonlybecauseofmeteorsbutalsobecauseofraysfromthesunandotherstars.Theatmosphereaga
男性,30岁,左前胸刀刺伤30min,查体:烦躁不安,皮肤苍白湿冷,呼吸困难,脉细弱,140/min,颈静脉怒张,血压70/50mmHg。左前胸第5肋间处见约4cm刀伤口。诊断明确后,正确的治疗措施
某孕妇,32岁,目前孕36周出现头痛伴视物不清2天。今晨头痛加剧,恶心、呕吐1次,随后剧烈抽搐约1分钟渐清醒,急诊入院。即刻测血压180/120mmHg,胎心140次/分,有不规律子宫收缩。肛查:羊膜未破,子宫口未开,骨盆测量均正常。对该孕妇的护理措施正确
有一种疾病的皮疹,其表面皮肤发红,主要分布在小腿伸侧面的结节,不破溃,压之疼痛。应考虑是
根据《合同法》的规定,自债务人的行为发生之日起()内没有行使撤销权的,该撤销权消灭。
“事情有大道理,有小道理,小道理都归大道理管着,服从和服务于社会主义现代化建设这个中心,就是大道理。”这句话体现的哲理是()。
心理咨询过程结束后,咨询关系也不复存在,这体现了咨询关系的()。
赵明能够根据A>B,B>C,则A>C的原理,推出A、B、C的关系。根据皮亚杰的认知发展理论,赵明的认知发展处于()阶段。
简述意思表示的特征。
新西兰奥克兰大学的研究人员与来自英国和美国的研究小组在4年内共同对将近1.2万名老人进行了11项调查。其中一半的老人服用钙片,而另一半则服用没有药物成分的安慰剂。结果显示,前一组当中每1000人中突发心肌梗死、中风甚至死亡的案例比后一组分别多14起、10起
最新回复
(
0
)