首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上有一个Label控件和两个命令按钮,数据文件personl.dat存放员工的编号、姓名、工资。自定义一个数据类型person,字符型数据定长为12;按“开始”按钮后,从考生文件夹下的personl.dat中读出所有数据并写人考生文
在名称为Forml的窗体上有一个Label控件和两个命令按钮,数据文件personl.dat存放员工的编号、姓名、工资。自定义一个数据类型person,字符型数据定长为12;按“开始”按钮后,从考生文件夹下的personl.dat中读出所有数据并写人考生文
admin
2010-07-13
69
问题
在名称为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全国计算机二级
相关试题推荐
关系模型允许定义三类数据约束,下列不属于数据约束的是( )。
Java语言中的【】是程序的基本单位。
在进行模块测试时,要为每个被测试的模块另外设计两类模块:驱动模块和承接模块(桩模块)。其中【】的作用是将测试数据传送给被测试的模块,并显示被测试模块所产生的结果。
下面不属于java.awt.Event包中定义的事件适配器是( )。
在文件类提供的方法中,用于创建目录的方法是( )。
下面程序代码运行结果为( )。importjava.awt.*;publicclassTest{publicstaticvoidmain(Stringargs[]){String
现有一个整型数组a[4],它的所有数组元素为( )。
Java源文件中最多只能有一个______类,其他类的个数不限。
下面属于面向对象程序设计语言的是______。
下列程序的功能是在监控台上每隔一秒钟显示一个字符串"Hello!",能够填写在程序中下划线位置,使程序完整并能正确运行的语句是publicclassTestimplementsRunnable{publicstaticvoidmain(Strin
随机试题
从重从快惩处严重刑事犯罪分子的前提是()。
患者男性,28岁,下腹痛伴脓血便2周,腹痛常于便后缓解。查体无异常发现。首选的检查方法是
肝性脑病最常见的病因是
地下人防工程是一个战时能生活、能生产、能疏散的自成体系的综合性工程,通常分为通信指挥工程等()类。
对我国商业银行不良贷款产生的原因,叙述错误的是()。
俗话说“三个和尚没水喝”,这说明的是人浮于事,但如果“三个和尚”都很负责,结果也许会造成水满为患,这两种不同的说法表明()。
文稿标题结构的不规范之处是()。
以下关于Python函数的描述中,错误的是()。
设数据结构B=(D,R),其中D:{a,b,c,d,e,f}R={(f,a),(d,b),(e,d),(c,e),(a,c)}该数据结构为()。
Whereisthewomanfrom?
最新回复
(
0
)