首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,程序的功能是,在运行时,如果选中一个或两个复选框和一个单选按钮,则对文本框中的文本内容做相应的设置,如图所示。窗体上的控件已经给出,但没有给出主要程序内容,请编写适当的事件过程,完成上述功能。
(1)在考生文件夹下有一个工程文件sjt3.vbp,程序的功能是,在运行时,如果选中一个或两个复选框和一个单选按钮,则对文本框中的文本内容做相应的设置,如图所示。窗体上的控件已经给出,但没有给出主要程序内容,请编写适当的事件过程,完成上述功能。
admin
2013-11-29
31
问题
(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://jikaoti.com/ti/WB60FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列关于For...next语句的说法正确的是______。
将一个窗体设置为MDI子窗体的方法是______。
下面对对象概念描述错误的是______。
启动窗体在【】对话框中指定。
运行下列程序,最后在窗体中输出【】。PrivateSubcommand1_Click()a=65:b=17a=aModb^2a=a\4PrintaEndSub
在VisualBasic中传递参数的方法有______方式。
执行以下语句后,输出的结果是a$="Good"b$="Afternoom"Printa$+b$Printa$&b$
执行如下语句:a=InputBox("Today","Tomorrow","Yesterday",,,"Daybeforeyesterday",5)将显示一个对话框,在对话框的输入区中显示的信息是
图像框中的Stretch属性为True时,其作用效果为()。
下列描述中,不是线性表顺序存储结构特征的是()。
随机试题
患者,女,72岁。患中风,伴半身不遂、偏身麻木、言语不利,医师根据患者病情开具益气活血、通络止痛的中药汤剂(人参、土鳖虫、水蛭、赤芍、乳香、降香、檀香、全蝎、蜈蚣、冰片、蝉蜕、酸枣仁)。服药10天后患者出现恶心、呕吐、气短、血压下降、溶血性贫血、酱油尿、黑
矿业工程成本管理,不可作为竞争性费用的是()。
受托人委托保管企业年金基金财产的商业银行或专业机构,我们习惯上称之为()。
家庭社会工作的一般性任务是什么?()
矛盾的普遍性与特殊性是矛盾的两种基本属性。()
论述情绪理论中的拉扎勒斯的认知-评价理论。
主张课程设置首先要考虑的是国家和民族的利益的课程流派是()。
全日制普通教育属于()。
有函数模板声明和一些变量定义如下:template<classT1,classT2,classT3>T1sum(T2,T3);doubledl,d2;则下列调用中,错误的是()。
请在“答题”菜单中选择相应的命令,并按照题目要求完成下面的操作。注意:以下的文件必须保存在考生文件夹下。在考生文件夹下打开文档word.docx,按照要求完成下列操作并以该文件名保存文件。按照参考样式“word参考样式.gif”完成设置和制作。设
最新回复
(
0
)