首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上有一个Label控件和两个命令按钮,数据文件personl.dat存放员工的编号、姓名、工资。自定义一个数据类型person,字符型数据定长为12;按“开始”按钮后,从考生文件夹下的personl.dat中读出所有数据并写人考生文
在名称为Forml的窗体上有一个Label控件和两个命令按钮,数据文件personl.dat存放员工的编号、姓名、工资。自定义一个数据类型person,字符型数据定长为12;按“开始”按钮后,从考生文件夹下的personl.dat中读出所有数据并写人考生文
admin
2010-07-13
27
问题
在名称为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://jikaoti.com/ti/uyg0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面不属于软件设计原则的是( )。
数据字典是各类数据描述的集合,它通常包括5个部分,即数据项、数据结构、数据流、【】和处理过程。
在结构化程序设计中,模块划分的原则是( )。
有下面的Applet程序段:import.java.awt.*;import.java.applet.*;publicclassHelloextendsApplet{publicvoidpanin(Graphicsg){gdrawS
给出下列代码,可放在类A的横线位置作为A合理的内部类的是( )。classA{protectedinti;A(inti){this.i=i;}
Java源文件中最多只能有一个______类,其他类的个数不限。
下面代码的运行结果是publicclassTest{publicstaticvoidmain(Stringargs[]){for(inti=0;i<3;i++){if(i<2)
在软件生命周期中,能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是______。
若按功能划分,软件测试的方法通常分为白盒测试方法和______测试方法。
下列程序实现对ZIP文件file.zip的检索,在横线处填入正确的语句packagetest;importjava.io.*;importjava.util.*;importjava.util.zip.*;p
随机试题
手工钨极氩弧焊对焊件材料表面的清理要求不高,因此使用方便。()
银行向借款人发放一笔10000元的5年期贷款,若年利率为6%,复利计息,则到期后借款人要向银行支付利息多少?
电子邮件地址格式是同定的,其格式为( )。
A.前庭裂B.声门裂C.喉前庭D.声门下腔E.喉中间腔
下列属于心的主要功能的是
材料的软化系数是指()。
甲股份有限公司为一般工业企业,适用的所得税税率为25%,按照资产负债表债务法进行所得税核算。按净利润的10%提取法定盈余公积。假定对于会计差错,税法允许调整应交所得税。该公司在2×15年度发生或发现如下事项:(1)甲公司存在一台于2×12年1月1日起计提
阅读以下文字。完成56~60题。历史的变局,往往隐藏于一些被史书一笔带过的细节中。弓箭是人类最早发明的工具之一,它利用竹、木、牛角和兽筋的弹性,将箭矢投射到远处,以杀伤野兽和敌人。但只有经过多年严格训练才能百步穿杨,洞穿重甲则需要过人的
下边是给定的立体图形,以下哪一项是该立体图形的主视图和俯视图?
简述亲属权的基本内容。
最新回复
(
0
)