首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3—111所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3—111所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则
admin
2017-03-27
21
问题
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3—111所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读取考生文件夹下的in5.txt文件,并在文本框中显示出来,该文件是一个用随机存取方式建立的文件,共有5个记录,要求按记录号顺序显示全部记录,每个记录一行;如果单击“保存”按钮,则把所有记录保存到考生文件夹下的顺序文件out5.txt中。随机文件in5.txt中的每个记录包括三个字段,分别为姓名、性别和年龄,其名称和长度分别为:
其类型定义为:
Private Type StudInfo
Name As String*8
Sex As String*4
Age As Integer
End Type
要求:文件out5.txt以顺序存取方式建立和保存。存盘时必须存放在考生文件夹下,工程文件名为sjt5.vbp,窗体文件名为sjt5.frm。
[img][/img]
选项
答案
步骤1:新建一个“标准EXE”工程,如表4—67在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写相应事件过程。 参考代码: Private Type StudInfo Name As String*8 Sex As String*4 Age As Integer End Type Dim Stud As StudInfo Dim RecNum As Long Private Sub Command1_Click() Open App.Path&"\in5.txt"For Random As#1Len=Len(Stud) RecNum=1 Do While Not EOF(1) Get#1,RecNum,Stud Text1.Text=Text1.Text&Stud.Name Text1.Text=Text1.Text&Stud.Sex Text1.Text=Text1.Text& Str(Stud.Age) Text1.Text=Text1.Text+vbCrLf RecNum=RecNum+1 Loop Close1 End Sub Private Sub Command2_Click() Open App.Path&"kout5.txt"For Output As#1 Print#1,Text1.Text Close1 End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
本题程序设计思路:在“显示”按钮的单击事件过程中,用Open语句以随机方式打开数据文件in5.txt,并用Get读出一条记录显示在文本框中,随后读取下一条记录,直到所有的记录都读取完毕;在“保存”按钮的单击事件过程中,用Open语句以Output方式打开数据文件out5.txt,并用Print#方法将文本框中的值存入该文件。
转载请注明原文地址:https://jikaoti.com/ti/VOy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下程序:FunctionF(aAsInteger)b=0StaticCb=b+1c=c+2F=a+b+cEndFunctio
对长度为N的线性表进行顺序查找,在最坏情况下所需要的比较次数为______。
为了清除窗体上的一个控件,下列正确的操作是______。
下列程序段的执行结果是______。optionbase1privateeommand1_c1ick()DimA(10)DimE(5)Fori
Sub过程与Function过程最根本的区别是
在窗体上画一个列表框、一个文本框及一个按钮,然后编写如下两个事件过程:PrivateSubForm_Load()Fori=1To10List1.AddItemi*10Nexti
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnu
假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项不可见,应使用的语句为()。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dima(5)AsStringFori=1T05a(i)=Chr(Asc("A"
下列叙述中正确的是______。
随机试题
青黛具有而大青叶不具有的功效有
下列细胞色素P450的同工酶巴比妥类对其无诱导作用的是
A.“针已出,气独行”B.“络脉传注,周流不息”C.“内景隧道,惟返观者能照察之”D.“十二经皆有动脉”E.“刺之要,气至而有效”《难经》提出
放坡开挖的基坑,基坑平面尺寸应按基础大小每边加宽(),基础如有凹角,基坑仍应取直。
新学期开始了,鹏鹏和明明高高兴兴地走进了幼儿园。鹏鹏出身于农民家庭,而明明的父母都是高级知识分子。有人说,明明将来肯定比鹏鹏有出息。请结合案例,分析影响学前儿童心理发展的因素。
学生在数学课上学会了端坐在座位上认真做作业,在英语课上学生也做出类似行为。这表明学习行为存在()。
下列属于巡警的主要职责的是()
某出版社与某印刷厂签订图书复印合同,约定印刷厂复印某图书1000套,5月10日交货付款100万元。5月10日印刷厂只复印了图书800套。下列表述正确的是()
软件的结构化设计(SD)方法中,一般分为总体设计和详细设计两个阶段,其中总体设计主要是要建立()。
设R是一个2元关系,S是一个3元关系,则下列运算中正确的是()。
最新回复
(
0
)