首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Commandl和Command2,标题分别为“显示”和“保存”,如图3.92所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Commandl和Command2,标题分别为“显示”和“保存”,如图3.92所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读
admin
2016-03-22
46
问题
在窗体上画一个文本框,其名称为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://kaotiyun.com/show/DMLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为______。Dimm(3,3)AsIntegerDimiAsIntegerDimjAsIntegerDimxAsIntegerFori=1To3m
若在Shape控件内以FillStyle属性所指定的图案填充区域,而填充图案的线条的颜色由FillColor属性指定,非线条的区域由BackStyle属性填充,则应______。
数据处理的最小单位是______。
为了避免流程图在描述程序逻辑时的灵活性,提出了用方框图来代替传统的程序流程图,通常也把这种图称为______。
3下面程序的运行结果是()。OptionBase1PrivateSubCommandl_Crick()Dimx,y(3,3)x=Array(1,2,3,4,5,6,7,8,9)Fori=1To3
以下关于窗体的描述中,错误的是()。
在窗体(Name属性为Forml)上面添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下两个事件过程:PrivateSubCommandl_Click()a=Tex
随机文件以【】为单位读写。
有如下程序:PrivateSubCommand1_Click()a$="AWORKERISHERE"x=Len(a$)Fori=1Tox-1b$=Mid$(a$,i,3)Ifb$="WOR"ThenS
函数过程Fun1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。FunctionFun1(bAsInteger)if_____ThenFun1=0ElseFun1=
随机试题
根据生态因子的性质,通常可将生态因子归纳为气候因子、土壤因子、地形因子、_______和人为因子。
所有的质量记录应遵循的原则不包括
A.毛果芸香碱B.阿托品C.新斯的明D.有机磷酸酯类E.琥珀胆碱直接兴奋M受体
马斯洛的需要层次类型由低到高的排列顺序是()。
某大学通过选取1900年至2000年出生且在该大学医学中心就诊的患者信息,对他们的医疗记录进行分析研究,发现出生月份和疾病发生率之间有某种相关性,出生月份决定了一个人是否容易生病。在所有的月份中,7月和10月出生的人得哮喘的概率最大,3月出生的人心脏最容易
在下列说法中,哪些是正确的?()
Theyareanoddcouple.Sheisastall______heisshort,andheisasfat______sheisthin.Buttheyareboth______happyasthey
Isawthembendingwithgreat______overthemachines,after6hours’workingtheyfoundthefault.
TheearlyretirementofexperiencedworkersisseriouslyharmingtheUSeconomy,accordingtoanewreportfromtheHudsonInsti
()反倾销税()商品贸易差额()海关申报表()进口报单
最新回复
(
0
)