首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3—111所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图3—111所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则
admin
2018-10-29
20
问题
在窗体上画一个文本框,其名称为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 S1ab 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/4CFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下通用过程:PublicFunctionFun(xStrAsString)AsString DimtStrAsString,strLAsInteger tStr="" strL=Len(xStr) i=strL
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。程序代码如下:Dimcolor(3)AsIntege
以下不属于单选按钮的属性是( )。
编写如下程序:PrivateSubCommand1_Click()DimscoreAsIntegerscore=86Ifscore>85Thenr=1ElseIfscore>
对长度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为
为了用键盘打开菜单和执行菜单命令,第一步应按的键是( )。
在窗体上画一个名称为Combo1的组合框,名称为Text1的文本框,以及名称为Command1的命令按钮,如图所示。运行程序,单击命令按钮,将文本框中被选中的文本添加到组合框中,若文本框中没有选中的文本,则将文本框中的文本全部添加到组合框中。命令按钮的
在窗体上画两个单选按钮,名称分别为Option1、Option2,标题分别为"宋体"和"黑体";1个复选框(名称为Check1,标题为"粗体")和1个文本框(名称为Text1,Text属性为"改变文字字体"),窗体外观如图所示。程序运行后,要求"宋体"单选
在窗体上画一个命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click()DimArr(10)AsIntegerFori=1To10Arr(i)=
设运行程序时弹出的菜单如图所示.关于该菜单,以下叙述中错误的是( )。
随机试题
[-1,1)
生态系统的中心问题不包括()。
严重面磨损引起颞颌关节紊乱病的主要原因是
下列选项属于环境的总价值的是( )。
甲、乙、丙、丁四位个人投资者从公开发行和转让市场取得的某上市公司股票,甲持股期限超过1年,乙持股期限在1个月以内(含1个月)的,丙持股期限为半年,丁通过股票交易获得投资收益,下列股东中无须交纳个人所得税的有()。
研究开发支出中的开发支出应资本化,计入无形资产成本。()
在网络配置管理的功能描述中,错误的是______。
AGenomeMilestoneItwasthebiggestscientificgrudgematchsincethespacerace.TheGenomeWarshadeverything:twogrou
Educatorsarefindingthatstudentswhocheat______.Accordingtothepassage,whichofthefollowingstatementistrue?
Nooneknowsexactlyhowmanydisabledpeoplethereareintheworld,but【C1】______suggestthefigureisover450million.Then
最新回复
(
0
)