首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,并单击“确定”按钮,则对文本框中的文字做相应的设置,如图3—100所示。窗体上的控件已经画出,但没有给出主要程序内容,请编写适当的事件过程,
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,并单击“确定”按钮,则对文本框中的文字做相应的设置,如图3—100所示。窗体上的控件已经画出,但没有给出主要程序内容,请编写适当的事件过程,
admin
2017-03-27
49
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,并单击“确定”按钮,则对文本框中的文字做相应的设置,如图3—100所示。窗体上的控件已经画出,但没有给出主要程序内容,请编写适当的事件过程,完成上述功能。
注意:不能修改已经给出的程序部分和已有的控件;在结束程序运行之前,必须选中一个单选按钮和至少一个复选框,并单击“确定”按钮;必须通过单击窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中已经给出了所有控件。程序运行时,单击“读入文件”按钮,将显示一个“打开”对话框,可以在该对话框中选择考生文件夹下的文本文件in4.txt,并把该文件的内容显示到Text1文本框中。要求:请去掉程序中的注释符,并把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
选项
答案
第1小题 步骤1:打开考生文件下的本题工程文件sjt3.vbp。 步骤2:打开代码编辑窗口,编写“确定”按钮的Click事件过程,代码如下。 参考代码: Private Sub Command1_C1ick() If Op1.Value Then Text1.FontName=Op1.Caption ElseIf Op2.Value Then Text1.FontName=Op2.Caption End If If Ch1.Value=1Then Text1.FontUnderline=True Else Text1.FontUnderline=False End If If Ch2.Value=1Then Text1.FontItaliC=True Else Text1.FontItaliC=False End If End Sub 步骤3:按<F5>键运行程序,选中一个单选按钮和至少一个复选框,并单击“确定”按钮,最后单击窗体右上角的关闭按钮结束程序。 步骤4:按要求将文件保存至考生文件夹中。 第2小题 步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Private Sub Command1_Click() Dim n As Long CD1.FileName=" " CD1.Filter="所有文件|*.*|文本文件|*.txt|Word文档|*.doc" CD1.FilterIndex=2 CD1.Action=1 If CD1.FileName<>" "Then Open CD1.FileName For Input As#1 n=LOF(1) Text1=Input$(n,#1) Close#1 End If End Sub 步骤2:按要求将文件保存至考生文件夹中。
解析
第1小题:本题其实就是编写“确定”按钮的单击事件过程。设计思路:由于单选按钮数组选择的唯一性,可用一个If…Then…Else语句对可能出现的两种情况(Op1或Op2被选中)分别进行处理,为Text1的FontName属性设置不同值;对于两个复选框可用两个If…Then…Else语句依次对其选中情况进行处理,若选中则将对应的FontUnderline属件值或Fontltalic属性值设置为True,否则设置为False。
第2小题:根据题目源程序,首先设置通用对话框CD1的Fliter。属性和FilterIndex属性,然后调用CD1的ShowOpen方法,接下来通过Input方式打开选中的文件,将文件读入后放到文本框Text1中,最后使用Close语句关闭文件。
转载请注明原文地址:https://kaotiyun.com/show/imGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行以下程序段,并输入1.23,则程序的输出结果应是【】。N=Str(InputBox(“请输入一个实数:”))p=InStr(N,".")PrintMid(N,p)
在下列文件系统控件的事件中,当文件列表框的Path属性改变时发生的事件是______。
对窗体编写如下事件过程:PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton
改变驱动器列表框的Drive属性值将激活______事件。
如果要在菜单中添加一个分隔线,则应将其Caption属性设置为
如果在C盘当前文件夹下已经存在名称为Sdat.dat的顺序文件,那么执行语句Open"c:/Sdat.dat"ForAppendAs#1之后,将()。
VisualBasic根据计算机访问文件的方式将文件分成三类,其中不包括______。
窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目,然后单击命令按钮,将该项目从列表框删除。程序如下:PrivateSubCommand1_Click()DimInAsIntegerIn=______L
结构化程序设计主要强调的是______。
在关系模型中,二维表的行称为______。
随机试题
门静脉高压症的主要原因是
集气管循环氨水喷淋后的煤气温度和焦炉炭化室上升管引出的煤气温度分别为()。
投资需求对经济增长的影响具有()。
混凝土的抗渗等级以分组6个试件中()个出现渗水时的最大压力表示。
以下应分摊的共有建筑面积的是()。
(2009年)甲研究所与乙公司订立的买卖合同约定:乙公司向甲研究所购买一台具有特定性能的石墨卷材生产设备,总价款300万元;乙公司应于合同签订之日起3日内向甲研究所支付100万元预付款;甲研究所应于2008年11月1日之前交付设备(乙公司自行提货);乙公司
全国工商联经济部和中华财务会计咨询公司日前共同发布的“中华工商上市公司财务指标指数”(2013上半年)显示,A股市场中1427家非ST上市公司上半年净资产收益率均值为4.72%,23个行业毛利率均值为23.03%。相对2012年的22.82%略有上升,分行
建立健全与经济发展水平相适应的社会保障体系,是建成完善的社会主义市场经济体制的重要内容,是贯彻以人为本为核心的科学发展观、构建社会主义和谐社会的必然要求。胡锦涛同志《在省部级主要领导干部提高构建社会主义和谐社会能力专题研讨班上的讲话》中指出:“我们所要建设
对“将信电系98年以前参加工作的教师的职称改为教授”,合适的查询方式为()。
ThecauseofthedeclineofNorthAfricaispopularlyattributedtoclimaticchanges,thetheorybeingthattheareabecamehott
最新回复
(
0
)