首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3.111所示,编写适当的事件过程。程序运行后,如果单击“显示"按钮,则
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3.111所示,编写适当的事件过程。程序运行后,如果单击“显示"按钮,则
admin
2018-12-20
24
问题
在窗体上画一个文本框,其名称为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。
选项
答案
步骤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 #1 Len=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 Close 1 End Sub Private Sub Command2 Click() Open App.Path &"\out5.txt"For Output As #1 Print #1,Text1.Text Close 1 End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
本题程序设计思路:在“显示”按钮的单击事件过程中,用Open语句以随机方式打开数据文件in5.txt,并用Get读出一条记录显示在文本框中,随后读取下一条记录,直到所有的记录都读取完毕;在“保存”按钮的单击事件过程中,用Open语句以Output方式打开数据文件out5.txt,并用Print #方法将文本框中的值存入该文件。
转载请注明原文地址:https://jikaoti.com/ti/bPm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读程序:OptionBase1SubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubForm_Click()
在窗体上画一个组合框,其名称为Combo1,然后编写如下事件过程:PrivateSubForm_Load()Combo1.Text="1"Fori=1To10Sum=Sum+iNe
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()Fori=3To1Step-1Sum=0Forj=1Toi
通用对话框Filter属性的作用是
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click() ’循环1 Fori=1To3 Forj=1To4
当执行循环的时间较长时,为了避免被误认为是死机,通常应在循环体中放置一个语句,这个语句是
For循环的循环控制变量
随机试题
根据可逆变换反应式CO+H2OCO2+H2,反应前后气体体积不变,则增加压力对该反应平衡无影响,因此变换反应过程应在常压下进行。()
简述使用E—R图分析工具进行数据库设计的主要步骤。
A.心与脾B.心与肺C.肺与脾D.肺与肾E.肾与肝与正常生殖功能有关的脏是
关于激素的代谢下述何项是正确的( )
下列选项中,对行为人行使的权利定性正确的是哪项?()
一级账户又称为总分类账户,简称总账,总账以下的账户称为明细账。()
《会计法》适用的行政处罚有()。
商业助学贷款的借款人、担保人在贷款期间发生银行规定的违约事件时,贷款行能采取的措施不包括()。
A公司的一台机器设备采用工作量法计提折旧。原价为153万元,预计生产产品产量为494.7万件,预计净残值率为3%,本月生产产品7万件。则该台机器设备的本月折旧额为()万元。
“开窗”实验通过对()的分析,可把每一种认知加工成分所经历的时间都比较直接地估计出来,因而它比反应时的相减法和相加因素法具有更明显的优点
最新回复
(
0
)