【正确答案】正确答案：第1小题 【操作步骤】 步骤1：打开考生文件下的本题工程文件sit3．vbp。 步骤2：打开代码编辑窗口，编写“确定”按钮的Click事件过程，代码如下。 参考代码： Private Sub Commandl—C1ick() If Opl．Value Then Textl．FontName=Opl．Caption E1seI f Op2．Value Then Textl．FontName=Op2．Caption End If If Chl．Value=1 Then Textl．FontUnderline=True Else Textl．FontUnderiime=False End If If Ch2．Value=1 Then Textl．FontItal iC=True E1Se Textl．FontItaliC=False End If End Sub 步骤3：按键运行程序，选中一个单选按钮和至少一个复选框，并单击“确定”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤4：按要求将文件保存至考生文件夹中。 【特别提示】文本框的FontUnderline属性值和Fontltalic属件值一设置为True，将始终有效，直至将该属性值设置为False。 第2小题 【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“”’，将问号“?”改为正确的内容。 参考代码： Private Sub Commandl—Click() Dim n As Long CD1．FileName=”” CD1．Filter=所有文件|*|文本文件|*．txt|Word丈档|*．doc” CD1．FilterIndex=2 CD1．Action=1 If CD1．FileName<>””Then Open CDI．FileName For Input As#] n=LOF(1) Textl=Inputs(n，#1) ciose#1 End If End Sub 步骤2：按要求将文件保存至考生文件夹中。