首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Commandl和Command2,标题分别为“显示”和“保存”,如图3.92所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Commandl和Command2,标题分别为“显示”和“保存”,如图3.92所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读
admin
2016-03-22
51
问题
在窗体上画一个文本框,其名称为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全国计算机二级
相关试题推荐
若在Shape控件内以FillStyle属性所指定的图案填充区域,而填充图案的线条的颜色由FillColor属性指定,非线条的区域由BackStyle属性填充,则应______。
下列程序段的执行结果为______。N=0ForI=1To3ForJ=5To1Step-1N=N+1NextJNextIPrintN;J;I
下列有关数据库的描述,正确的是______。
为了避免流程图在描述程序逻辑时的灵活性,提出了用方框图来代替传统的程序流程图,通常也把这种图称为______。
下面运行程序后,单击命令按钮,输出的结果是______。PrivateSubCommandl_clck()Dima%(1To4),b%(3To6),i%,s1#,s2#Fori=1To4a(i)=
在窗体上画四个文本框(如下图所示),并用这四个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大),然后编写如下事件过程PrivateSubCommandl_Click()ForEachTextBoxin
文本框的ScrollBars属性设置为非零值,却没有效果,原因是()。
有如下SUB过程:Subs(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上添加一个命令按钮,然后编写如下事件过程:PrivateSubF
假定用下面的语句打开文件:Open“Filel.txt”forInputAs#1则不能正确读文件的语句是
以下关于顺序文件的叙述中,正确的是
随机试题
下列关于痢疾志贺菌的特性描述正确的是()
女,38岁,因阴部有块状物脱出而就诊。妇科检查:阴道前壁脱出,超过处女膜缘,部分宫体与宫颈露于阴道口外,宫颈较长。其临床分度为
组织应制定一个或多个方案,其作用是保证环境( )的实现。
账户记录中如果出现漏记、重记、串记、反方向记录等时,有可能不影响发生额试算平衡。( )
在中国证监会对承销业务的现场检查中,包括检查作为主承销商是否对发行人信息披露文件的()进行了核查。
如果A、B两只股票的收益率变化方向和变化幅度完全相同,则由其组成的投资组合()。
马克思主义认为,实现人全面发展的根本途径是()
不等式4(χ-2)≤2(χ-1)的非负整数解的个数是().
在通过其他途径都不能获得满意的救济时,可以通过()渠道获得充分的补救。
"HowdidJamiefindoutaboutherpromotion?""She______byherboss."
最新回复
(
0
)