首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,并单击“确定”按钮,则对文本框中的文字做相应的设置,如图3—100所示。窗体上的控件已经画出,但没有给出主要程序内容,请编写适当的事件过程,
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,并单击“确定”按钮,则对文本框中的文字做相应的设置,如图3—100所示。窗体上的控件已经画出,但没有给出主要程序内容,请编写适当的事件过程,
admin
2017-03-27
37
问题
(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全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:OptionBase0PrivateSubCommand1_Click()DimcityAsVariant
假定窗体的名称为Form1,对该窗体编写如下代码:PrivateSubForm_Load()Form1.Caption="计算机"Me.Caption="等级"Caption="考试"EndS
对窗体编写如下事件过程:PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton
在下面向文件中写入数据的命令语句中,不正确的是______。
下列程序运行后,在窗体上打印的结果是【】。PrivateSubtest(a,b,c)a=a+1:b=b+2:C=C+3EndSubPrivateSubCommand1
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度:1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。PrivateTyPeAngKAsIntegerSinxAsSin
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()a$="321":b$="abc"Forj=1To5PrintMid$(a$,6-j,1)+Mid$(b$,
在关系模型中,二维表的行称为______。
下列关于文件的叙述中,错误的是()。
随机试题
患者男性,39岁,3周前发热,全身不适。数天前胸部皮肤曾出现淡红色小斑丘疹,后消失。现持续性高热,心动过缓,食欲缺乏,腹部不适、腹泻。临床检查肝脾肿大;患者反应迟钝,表情淡漠。后因中毒性休克、周围循环衰竭而死亡。尸体检查发现:肝脾肿大,肠系膜淋巴结肿大,弥
如图所示,平面静定桁架中零杆个数为()。
一个深7m左右的电力井内有多台柴油抽水机在工作,3名工人下到井内巡检时,发生一起2人中毒死亡的事故。最有可能引起该事故的物质是()。
甲公司2016年12月20日自证券市场购入乙公司发行的股票100万股,共支付价款860万元,其中包括交易费用4万元,甲公司将购入的乙公司股票作为交易性金融资产核算。2016年12月31日,乙公司股票每股收盘价为9元。2017年3月10日收到乙公司宣告发放的
一HowdoyouliketheprojectputforwardbytheSmiths?一Consideringitsreal______,itwillbewellworthputtingintopractice,I
()是淮北平原上武装反抗国民党反动统治的一次英勇尝试,为以后各地武装起义提供了宝贵的经验教训。
赏析琵琶古曲《阳春白雪》。
【2014.山东菏泽】教育心理学内容体系中核心问题是()。
嘈杂对于()相当于()对于平坦
简述各类媒体广告的特性。
最新回复
(
0
)