首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上有一个Label控件和两个命令按钮,数据文件personl.dat存放员工的编号、姓名、工资。自定义一个数据类型person,字符型数据定长为12;按“开始”按钮后,从考生文件夹下的personl.dat中读出所有数据并写人考生文
在名称为Forml的窗体上有一个Label控件和两个命令按钮,数据文件personl.dat存放员工的编号、姓名、工资。自定义一个数据类型person,字符型数据定长为12;按“开始”按钮后,从考生文件夹下的personl.dat中读出所有数据并写人考生文
admin
2010-07-13
72
问题
在名称为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中,通过网络使用URL访问对象的功能流是( )。
对如下二叉树进行后序遍历的结果为( )。
在Java新的I/O功能中,通过文件锁定来实现多个线程的【】,避免了可能存在的安全隐患。
Java的简单性首先体现在自身系统的精炼上,它的基本解释程序和【】占内存40KB,附加的基本标准类库和支持线程程序占175KB。
Java程序编译后的形式叫做( )。
有下面的Applet程序段:import.java.awt.*;import.java.applet.*;publicclassHelloextendsApplet{publicvoidpanin(Graphicsg){gdrawS
给出下列代码,可放在类A的横线位置作为A合理的内部类的是( )。classA{protectedinti;A(inti){this.i=i;}
下列程序的功能是创建了一个显示5个"Hello!"的线程并启动运行,请将程序补充完整。publicclassThreadTestextendsThread{publicstaticvoidmain(Stringargs[]){Thre
下列语句中所使用的布局管理器,当改变容器大小,组件大小不会随着一起改变的是
在文件类提供的方法中,用于创建目录的方法是.
随机试题
对前庭大腺炎患者正确的护理措施是
以下关于前牙3/4冠切斜面的要求。错误的是
患者,男,14岁。外伤拔除半年余,影响美观,来修复科就诊。最佳修复方法为
子女教育规划可以投资股票和公司债券的是()。
资产评估中运用清算价格法评估资产价格时,应当根据资产清算时期资产的(),评定重估价值。
某学生的毕业论文选题定为“21世纪以来国民身高与收入关系的调查研究”。这一选题最容易被质疑的是其()
在数据库中,产生数据不一致的根本原因是
客户(客户号,名称,联系人,邮政编码,电话号码)产品(产品号,名称,规格说明,单价)订购单(订单号,客户号,订购日期)订购甲名细(订单号,序号,产品号,数量)查询尚未最后确定订购单的有关信息的正确命令是()。
下列选项中,不属于模块间耦合的是
A、Agiantdeer.B、Astrangeman.C、Ahairyalien.D、Afrighteningwolf.C该题答案出现在Ikeptdrivingforaboutfiveminuteswhenall
最新回复
(
0
)