首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Commandl和Command2,标题分别为“显示”和“保存”,如图3.92所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Commandl和Command2,标题分别为“显示”和“保存”,如图3.92所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读
admin
2016-03-22
28
问题
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Commandl和Command2,标题分别为“显示”和“保存”,如图3.92所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读取考生文件夹下的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-51在窗体中画出控件并设置其相关属性。 [*] 步骤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 Commandl C1ick() 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 Textl.Text=Text4.Text&Stud.Sex Textl.Text=Text1.Text&Str(Stud.Age) Textl.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,Textl.Text Ciose 1 End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://jikaoti.com/ti/i1J0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
滚动条控件中,用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是______。
下列程序段的执行结果为______。N=0ForI=1To3ForJ=5To1Step-1N=N+1NextJNextIPrintN;J;I
要把一个命令按钮设置成无效,应设置属性______的值为False。
为了避免流程图在描述程序逻辑时的灵活性,提出了用方框图来代替传统的程序流程图,通常也把这种图称为______。
线性表的顺序存储结构和线性表的链式存储结构分别是______。
下面程序运行的结果为1111221222331323334请在画线处填上适当的内容使程序完整。PrivateSubForm_Click()Call
下面运行程序后,单击命令按钮,输出的结果是______。PrivateSubCommandl_clck()Dima%(1To4),b%(3To6),i%,s1#,s2#Fori=1To4a(i)=
3下面程序的运行结果是()。OptionBase1PrivateSubCommandl_Crick()Dimx,y(3,3)x=Array(1,2,3,4,5,6,7,8,9)Fori=1To3
无论何种控件,都具有一个共同属性。这个属性是()。
下列程序弹出对话框中按钮的个数为【】。MsgBox″确认!″,vbAbortRetryignore+vbMsgBoxHelpButton+vbInformation,″提示;″
随机试题
由于交错齿三面刃铣刀外圆齿槽有左、右螺旋之分,变换螺旋方向时,应__________以保证螺旋槽加工。
骨折的早期并发症是
A.静置后分3层的浆液黏脓性痰B.脓性臭痰C.砖红色胶冻状痰D.烂桃样脓血痰E.巧克力样脓血痰下列疾病的咳痰性状及其特征为:女性,42岁。2个月前因1次不洁饮食后反复腹泻。近1月来发热、肝区疼痛
患者,男,20岁,大学生。自述不能见马路上的汽车,当汽车经过时总感觉汽车很可能撞上自己,因此十分恐惧,来心理门诊就诊。最好采用的方法是
根据《营业税暂行条例》的规定,下列各项中,属于营业税征收范围的有()。
内部会计控制制度是相对内部管理控制制度而言,是为保证会计记录的正确性、会计信息的可靠性、财务收支的合法性以及维护资产的安全完整而设置和实施的相关组织分工、处理程序、方法和标准等制度。以下属于会计人员控制制度内容的有()。
汤显祖把对澳门的新奇印象写进题为()的作品里。
假设A的初始财富值为ω0,那么A所下的赌注x和球队AA赢球的概率p之间的函数关系是什么?[中国人民大学834经济学2012研]
设某棵树的度为3,其中度为2、1、0的结点个数分别为3、4、15。则该树中总结点数为
Lookatthenotesbelow.Someinformationismissing.YouwillheartheChiefFinancialOfficerispresentingtheannualreport
最新回复
(
0
)