首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3—111所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3—111所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则
admin
2017-03-27
36
问题
在窗体上画一个文本框,其名称为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全国计算机二级
相关试题推荐
建立一个新的标准模块,应该选择哪个菜单下的“添加模块”命令?
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。PrivateSubForm_Click()StaticxAsInteger
下面程序运行后,单击命令按钮,输出的结果是【】PrivateSubCommand1_Click()Dima%(1To4),b%(2To6),i%,str1#,str2#Fori=1To4a(i)=iNe
下列特征中不是面向对象方法的主要特征的是()。
设已经在"菜单编辑器"中设计了窗体的快捷菜单,其顶级菜单为Bs,取消其"可见"属性,运行时,在以下事件过程中,可以使快捷菜单响应鼠标右键菜单的是
要清除已经在图片框Picture1中打印的字符串而不清除图片框中的图像,应使用语句()。
下列关于栈的描述中错误的是()。
下列叙述中正确的是()。
假定一个文本框的Name属性为Text1,为了在该文本框中显示“Hello!”,所使用的语句为【】。
设有如下程序,查找并输出该数组中的最小值,请在空白处填上合适的代码,将程序补充完整。OptionBase1PrivateSubCommand1_Click()Dimarr1DimMinAsInteger,iAsInteger
随机试题
根据我国现有法律规定以及现实生活中的行政补偿实践,下列选项中属于我国行政补偿的范围的是()。
A.Histaskistoensurethefairuseandstorageofpersonalinformationheldincomputer.B.Andthatlatertheyagreeduponc
天门冬氨酸可参与下列何种物质的合成
鳃裂囊肿见皮样囊肿见
常用水闸中,( )建在河道、水库或湖泊的岸边,用来控制引水流量。
倒装是一种通过词序颠倒以增强表现力的修辞方式。在格律诗中,有些倒装句是为了迁就格律;有些是为了强调某一形象,加强语气、音乐,突出话语的表现力。下列诗句未使用倒装的修辞方式的是()。
已知随机变量Y的概率密度为随机变量的数学期望E(Z)=________.
对于逻辑表达式(((a|b)‖(c>2))&&d<0),需要________________个测试用例才能完成条件组合覆盖。
Betweenwhattimesistheroadtrafficlightest?Whowillnoticethenoisemost?
Americansoftensaythatthereareonlytwothingsapersoncanbesureofinlife:deathandtaxes.Americansdonothaveacor
最新回复
(
0
)