2. 计算机
  3. (1)在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击“确定”按钮，则对文本框中的文字做相应的设置，如图1-140所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，

(1)在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击“确定”按钮，则对文本框中的文字做相应的设置，如图1-140所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，

admin2010-09-02  29
问题 (1)在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击“确定”按钮，则对文本框中的文字做相应的设置，如图1-140所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。
注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。

(2)在考生文件夹下有一个工程文件sjt4．vbp。窗体中已经给出了所有控件。程序运行时，单击“读入文件”按钮，将显示一个“打开”对话框，可以在该对话框中选择考生文件夹下的文本文件in4．txt，并把该文件的内容显示到Text1文本框中。
要求：请去掉程序中的注释符，并把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
选项
答案第l小题 【操作步骤】 步骤1：打开考生文件下的本题工程文件sjt3．vbp。 步骤2：打开代码编辑窗口，编写“确定”按钮的Click事件过程，代码如下。 参考代码： PriVate Sub Commandl_Click() If Opl．Value Then Textl．FontName=opl．Caption Else If Op2．Va上ue Then Textl．FontName=Op2．Caption End If If Chl．Value=l Then Textl．FontUnderline=True Else Textl．FontUnderline=False End If If Ch2．Value=1 Then Textl．Font工talic=True Else Textl．FontItalic=False End If End Sub 步骤3：按要求将文件保存至考生文件夹中。 步骤4：按键运行程序，选中一个单选按钮和至少一个复选框，并单击“确定”按钮，最后单击窗体右上角的关闭按钮结柬程序。 第2小题 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： Private Sub Command1_Click() Dim n As Long CDI．FileName="" CDI．Filter="所有文件|*．*|文本文件 |*．txt|Word文档|*．doc" CD1．FilterIndex=2 CDI．Action=1 If CDI．FileName<>""Then Open CDl．FileName For Input As#1 n=LOF(1) Textl=Input$(n，#1) Close #1 End If End Sub 步骤2：按要求将文件保存至考生文件夹中。
解析 第l小题
   本题其实就是编写“确定”按钮的单击事件过程。设计思路：由于单选按钮数组选择的唯一性，可用一个If…Men…Else语句对可能出现的两种情况(Opl或op2被选中)分别进行处理，为Textl的FontName属性设置不同值；对于两个复选框可用两个If…Then…Else语句依次对其选中情况进行处理，若选中则将对应的FontUnderline属性值或FontItalic属性值设置为True，否则设置为False。
第2小题
    通用对话框(CommonDialog)是提供诸如打开文件、保存文件、设置打印选项、选择颜色和字体、显示帮助等操作的一组标准对话框，该控件运行时不可见。Action属性用于设置被打开对话框的类型；当通用对话框显示为“打开”或“另存为”类型时，其FileName属性用于返回或设置所选的文件的路径和文件名，Filter(过滤器)属性在对话框显示时提供一个可供选择过滤器列表，从而指定在对话框的文件列表中显示文件的类型，例如，过滤器为*．txt，表示显示所有的文本文件，它的语法为；对象名．Filter=”描述l文件扩展名”。使用管道符(|)将描述与过滤器隔开，同样使用管道符将多个过滤器相互分隔。Filterlndex属性返回或设置“打开”或“另存为”对话框中一个缺省的过滤器，其中第一个过滤器的索引号是1。
    在VB6中开始使用新方法来打开不同对话框，同时也保留了对Action属性的支持。表2-79列出了不同Action属性值代表的对话框类型及其在VB6中的对应方法。
[*]
    根据题目原程序，首先设置通用对话框CDl的Filter属性和Filterlndex属性，然后调用CDI的ShowOpen方法，接下来通过Input方式打开选中的文件，将文件读入后放到文本框Textl中，最后使用Close语句关闭文件。
转载请注明原文地址:https://kaotiyun.com/show/0Ump777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)