首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,程序的功能是,在运行时,如果选中一个或两个复选框和一个单选按钮,则对文本框中的文本内容做相应的设置,如图所示。窗体上的控件已经给出,但没有给出主要程序内容,请编写适当的事件过程,完成上述功能。
(1)在考生文件夹下有一个工程文件sjt3.vbp,程序的功能是,在运行时,如果选中一个或两个复选框和一个单选按钮,则对文本框中的文本内容做相应的设置,如图所示。窗体上的控件已经给出,但没有给出主要程序内容,请编写适当的事件过程,完成上述功能。
admin
2013-11-29
75
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,程序的功能是,在运行时,如果选中一个或两个复选框和一个单选按钮,则对文本框中的文本内容做相应的设置,如图所示。窗体上的控件已经给出,但没有给出主要程序内容,请编写适当的事件过程,完成上述功能。
注意:不能修改已经给出的程序部分和已有的控件;在结束程序运行之前,必须选中一个单选按钮和至少一个复选框,并单击“确定”按钮;必须通过单击窗体右上角的关闭按钮结束程序,否则无成绩,最后将修改后的文件按原文件名存盘。
(2)在考生文件下有一个工程文件Sjt4.vbp。窗体中已经给出了所有控件。程序运行时,单击“读入文件”按钮后,将显示一个“打开”对话框,可以在该对话框中选择考生文件夹下的文本文件in4.txt,并把该义件的内容在Textl文本框中湿示。给出的程序不完整。
要求:请去掉程序中的注释符,并把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
选项
答案
(1)由于单选按钮选择的唯一性,本题可用一个If…Then…End if语句对可能出现的两种情况(Optl或Opt2被选中)分别进行处理,进而为Textl的FontName属性设置不同值;可用两个If…Then…End if语句依次对两个复选框选中情况进行判断,若选中则进行相成的设置。 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提示代码 Private SubForm_Unoad(Cancel As Integer) Unlond sub End sub 程序结束 Privale Sub Commandl_Click() IF OpI.Value=True Then Textl.FontName=“宋体” Else Textl.FontName=“隶书” End If If Ch1.Value=1 Then Textl.FontUnderline=True Else Textl.FontUnde rline=False End If If Ch2.Value=l Then Text 1.Fontltalie=True Else Textl.Fontlta]ic=False End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)在默认情况下,“打开”对话框的标题是“打开”,“另存为”对话框的标题是“另存为”。根据题意,将CommonDialog的Name属性设置为CDl,文件类型在Common—Dialog的Fil Ler属性中设置,其格式为: Filter=“文件说明文件类型” 本题应在Filter属性中设置为:文本文件|*.txt |所有文件|*.*。 步骤l:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Pri vale Sub Commandl_Click() Dim n As Long CDI.FileName=“” CDI.?=”所有文件|*.*|文本义件|*.txt | Word文档|*.doc” CDl.Filterlndex=2 CDl.? If CDI.FileName<>。“”Then Open?For Input As#l n=LOF(1) Textl=Input$(n,#1) ? End If End Sub 程序结束 笫1个?处填人:Filter 第2个?处填人:ShowOpen 第3个?处填入:CDl.FileName 第4个?处填入:Close #l 步骤3:调试并运行程序,火闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/jPQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列的程序段执行后,X的值为______。K=0Fori=1To10Forj=iTo10x=x+1NextjNexti
下列关于For...next语句的说法正确的是______。
把窗体的KeyPreview属性设置为True,然后编写如下过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)En
将一个窗体设置为MDI子窗体的方法是______。
如果要向工具箱中加入控件和部件,可以利用“工程”菜单中的命令。
在窗体上画一个名称为Commandl的命令按钮和两个名称分别为Textl、Text2的文本框,然后编写如下事件过程:PrivateSubCommandl_Click()n=Textl.TextSelect
执行下面的程序段后,x的值为______。x=5ForI=1To20Step2x=x+I\5NextI
产生[10,27]之间的随机整数的VisualBasic表达式是
下列4项中说法不正确的是()
假如用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
随机试题
人力资源管理程序的第一步是()
炎症时局部温度增高是因为()
A.鳞状上皮化生B.腺性化生C.腺上皮化生D.骨化生长期吸烟者呼吸道上皮所出现的化生
A、发汗B、阴干C、置沸水中略烫D、蒸透心,敞开低温干燥E、置沸水中煮至透心太子参的加工方法为
建设工程索赔的分类方式不包括( )。
我国现行消费税应税消费品的基本范围包括()。
文字技术整理,是指由责任校对主要从()方面检查和整理全部书刊校样的工作。
下列不属于19世纪自然科学的三大发现是()。
热传导是介质内无宏观运动时的传热现象,其在固体、液体和气体中均可发生,但严格而言,只有在固体中才是纯粹的热传导,在流体(泛指液体和气体)中又是另外一种情况,流体即使处于静止状态,也会由于温度梯度所造成的密度差而产生自然对流,因此在流体中热对流与热传导可能会
有如下的一个函数过程:Functionfn(ByValnumAsLong)DimkAsLongk=1:num=Abs(num)DOWhilenumk=k*fhumMod10)num=hum\10Loopfn=kEnd
最新回复
(
0
)