首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3—111所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3—111所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则
admin
2019-05-14
42
问题
在窗体上画一个文本框,其名称为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:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/DTUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
考生文件夹下的工程文件sit5.vbp中的窗体如图3.162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:①
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个文本框,名称为Text1,内容为“VB程序设计”;再画两个命令按钮,其名称分别为Commandl和Command2,标题分别为“扩大”和“
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Frame1、标题为“目的地”的框架,在框架中添加三个复选框,名称分别为Check1、Check2、Check3,其标题分别是“上海
在考生目录下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此2数相乘,若乘积
在考生文件夹下有一个工程文件vbsi5.vbp,请先装入该工程文件,然后完成以下操作:在名称为Forml的窗体上画两个命令按钮,其名称分别为cmdRead和cmdCal,标题分别为“读入数据”和“计算保存”(如图3.42所示)。程序运行后,如果单击“读入数
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“显示记录”的窗体上画一个名称为Text1的文本框,其初始内容为空;再画一个名称为Commandl的命令按钮数组(下标从0开始,有4个按钮,其对
(1)在考生文件夹下有一个工程文件sit3.vbp,窗体上有一个矩形和一个圆,还有垂直和水平滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
请根据以下各小题的要求设计visualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“图片”的窗体上画一个名称为Imagel的图像框,其高为2500、宽为2000。请通过属性窗口设置适当属性,装入考生目录下的图片文件picljp
在考生文件夹下有一个工程文件vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、lblTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtT
在考生文件夹下有文件in5.txt,文件中有几行汉字。请在Forml的窗体上画一个文本框,名称为Text1,能显示多行;再画一个命令按钮,名称为C1,标题为“存盘”。编写适当的事件过程,使得在加载窗体时,把in5.txt文件的内容显示在文本框中,然后在文本
随机试题
根据《行政处罚法》的规定,违法事实确凿并有法定依据,对法人或者其他组织处以一千元以下罚款或者警告的行政处罚的,可以当场作出行政处罚决定。
若国家公务员降职过程中发生争议,解决的途径有()
教育生物起源说的代表人物是( )。
A.呕吐明显,腹泻频繁,腹痛以上腹部及脐周多见B.发热、腹痛、腹泻,大便呈血水样C.发热、阵发性腹部绞痛、黏液脓血便D.腹痛、腹泻、颜面潮红、荨麻疹E.无痛性腹泻,先泻后吐,无发热金黄色葡萄球菌食物中毒
I期临床试验的最低病例数Ⅳ期临床试验的最低病例数
黄体萎缩不全出血是因为
关于腕关节摄影影像显示,以下错误的是
甲企业从乙企业购进一批设备,价款为80万元。甲企业开出一张付款期限为6个月的已承兑的商业承兑汇票给乙企业,丙企业在该汇票的正面记载了保证事项。乙企业取得汇票后,将该汇票背书转让给了丁企业。汇票到期,丁企业委托银行收款时,才得知甲企业的存款账户不足支付。银行
“那个人长什么样我不记得了,但是再见面时我能认得出来”,这种能力属于()
计算机病毒的特征不包括______。
最新回复
(
0
)