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

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

admin2013-11-29  76
问题 (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全国计算机二级

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