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

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

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

    注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sjt4．vbp。窗体中已经给出了所有控件。程序运行时，单击“读入文件”按钮，将显示一个“打开”对话框，可以在该对话框中选择考生文件夹下的文本文件in4．txt，并把该文件的内容显示到Text1文本框中。要求：请去掉程序中的注释符，并把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
选项
答案(1)【操作步骤】 步骤1：打开考生文件下的本题工程文件sjt3．vbp。 步骤2：打开代码编辑窗口，编写“确定”按钮的Click事件过程，代码如下。参考代码： Private Sub Command1_Click() If Op1．Value Then Text1．FontName＝Op1．Caption ElseIf Op2．Value Then Text1．FontName＝Op2．Caption End If If Ch1．Value＝1 Then Text 1．FontUnderline＝True Else Text1．FontUnderline＝False End If If Ch2．Value＝1 Then Text1．FontItalic＝True Else Text1．FontItalic＝False End If End Sub 步骤3：按键运行程序，选中一个单选按钮和至少一个复选框，并单击“确定”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤4：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“’”将问号“?”改为正确的内容。参考代码： Private Sub Command1 _Click() Dim n As Long CD1．FileName＝" " CD1．Filter＝"所有文件｜*．*｜文本文件 ｜*．txt｜Word文档｜*．doc" CD1．FiiterIndex＝2 CD1．Action＝1 If CD1．FileName＜＞" "Then Open CD1．FileName For Input As#1 _＝LOF(1) Text1＝Inputs(n，#1) Close #1 End If End Sub 步骤2：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://jikaoti.com/ti/XLy0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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