首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上有一个Label控件和两个命令按钮,数据文件personl.dat存放员工的编号、姓名、工资。自定义一个数据类型person,字符型数据定长为12;按“开始”按钮后,从考生文件夹下的personl.dat中读出所有数据并写人考生文
在名称为Forml的窗体上有一个Label控件和两个命令按钮,数据文件personl.dat存放员工的编号、姓名、工资。自定义一个数据类型person,字符型数据定长为12;按“开始”按钮后,从考生文件夹下的personl.dat中读出所有数据并写人考生文
admin
2010-07-13
71
问题
在名称为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语言的______机制,只能够处理同步共享数据和各种不同的事件。
下列语句中所使用的布局管理器,当改变容器大小,组件大小不会随着一起改变的是
下列数组array_test中,能在程序运行时动态调整大小的是
在结构化分析方法中,用于描述系统中所用到的全部数据和文件的文档称为______。
在Java中,能实现多重继承效果的方式是
下列代表八进制整数的是
下面程序中,若从键盘输入大写字母C,则程序的输出结果是______。importjava.io.*;publicclassTest{publicstaticvoidmain(String
随机试题
部分(休克)病人在休克初期血压可正常或略高,但过后必将出现血压下降,特别是脉压下降。()
新生儿细胞外液在体重中所占比例是
某鸡场300只34日龄鸡发病,发病率90%,病死率为80%。病鸡伸颈张口呼吸,咳嗽,气喘,有鼻漏;部分鸡翅、腿麻痹,下痢,粪带血;剖检见嗉囊积液,全身性黏膜和浆膜出血,盲肠扁桃体肿胀、出血。对该鸡群应采取的措施是
反射弧的结构不包括
按《民用建筑热工设计规范》要求,夏热冬暖地区的热工设计应该满足下列哪一种要求?
赵先生,本科学历,今年28岁,北京某证券公司的部门经理;赵太太,研究生学历,今年26岁,任职于某大型国有企业。赵先生每月税前收入20000元,赵太太每月税前收入8000元,均每月按照税前工资的15%缴纳“三险一金”。两人现在住的是赵太太单位的福利房,200
任取一个正整数,其平方数的末位数是4的概率等于().
设窗体文件中有下面的事件过程:PrivateSubCommand1_Click() Dims a%=100 PrintaEndSub其中变量a和s的数据类型分别是( )。
执行下列语句:#includeusingnamespacestd;intmain(){intx:3:if(x=5)cout
十进制整数127转换为二进制整数等于()。
最新回复
(
0
)