首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3—111所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3—111所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则
admin
2017-03-27
35
问题
在窗体上画一个文本框,其名称为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://kaotiyun.com/show/rhGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()a$="321":b$="abc"Forj=1To5PrintMid$(a$,6-j,1)+Mid$(b$,
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:PrivateSubCommand1_Click()strText=InputBox("请输入"
设有如下通用过程:PublicSubFun(a()AsInteger,xAsInteger)Fori=1To4x=x*a(i)NextEndSub
下面概念中,不属于面向对象方法的是______。
在窗体上画一个命令按钮,然后编写如下事件过程。该程序运行后,单击命令按钮,在输入对话框中分别输入321和456,则输出结果为【】。PrivateSubCommand1_Click()a=InputBox("请输入一个整数")
在窗体上画一个名称为Commaudl的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程;PrivateSubCommand1_Click()n=Text1.TextSelectCasen
窗体上有一个列表框和一个文本框,编写如下两个事件过程:PrivateSubForm_Load()List1.Addltem"Beijing"List1.Addltem"Tianjin"List1.Addltem"Shan
在窗体上画三个单选按钮,组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是()。
以下叙述中错误的是______。
窗体文件的扩展名是
随机试题
预算管理实质上是一种()
根据公式H=F×b/a,不正确的是
用0.05的超微焦点放大摄影,最大放大率是
患者,女,70岁。反复咳喘30余年。胸部膨满,憋闷如塞,咳痰清稀,胸闷心悸,腰酸肢肿,气短汗出,怕冷,面唇青紫,舌苔白滑,舌体胖质暗,脉沉细。阳虚的治疗原则是
杆OA=l,绕定轴O以角速度ω转动,同时通过A端推动滑块B沿轴x运动(图4-87)。设分析运动的时间内杆与滑块并不脱离,则滑块的速度vB的大小用杆的转角φ与角速度ω表示为()。
甲上市公司为募集资金,发展南方市场,拟非公开发行股票1000万元。则购买该股票的主体不得超过()。
甲公司与乙公司相邻。甲公司为通行方便,与乙公司达成协议:甲公司借用乙公司的部分道路,甲公司每年向乙公司支付一定费用。下列说法正确的有()。
平面广告设计的操作步骤有______、______、______、______、______。
【B1】【B20】
AfterlunchIfelt______enoughtoaskmybossforariseinmyweeklywages.
最新回复
(
0
)