【正确答案】正确答案：第1小题 步骤1：打开考生文件下的本题工程文件sjt3．vbp。 步骤2：打开代码编辑窗口，编写“确定”按钮的Click事件过程，代码如下。 参考代码： Private Sub Command1_C1ick() If Op1．Value Then Text1．FontName=Op1．Caption ElseIf Op2．Value Then Text1．FontName=Op2．Caption End If If Ch1．Value=1Then Text1．FontUnderline=True Else Text1．FontUnderline=False End If If Ch2．Value=1Then Text1．FontItaliC=True Else Text1．FontItaliC=False End If End Sub 步骤3：按＜F5＞键运行程序，选中一个单选按钮和至少一个复选框，并单击“确定”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤4：按要求将文件保存至考生文件夹中。 第2小题 步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“'”，将问号“?”改为正确的内容。 参考代码： Private Sub Command1_Click() Dim n As Long CD1．FileName=" " CD1．Filter="所有文件|*．*|文本文件|*．txt|Word文档|*．doc" CD1．FilterIndex=2 CD1．Action=1 If CD1．FileName＜＞" "Then Open CD1．FileName For Input As#1 n=LOF(1) Text1=Input$(n，#1) Close#1 End If End Sub 步骤2：按要求将文件保存至考生文件夹中。

【答案解析】解析：第1小题：本题其实就是编写“确定”按钮的单击事件过程。设计思路：由于单选按钮数组选择的唯一性，可用一个If…Then…Else语句对可能出现的两种情况(Op1或Op2被选中)分别进行处理，为Text1的FontName属性设置不同值；对于两个复选框可用两个If…Then…Else语句依次对其选中情况进行处理，若选中则将对应的FontUnderline属件值或Fontltalic属性值设置为True，否则设置为False。 第2小题：根据题目源程序，首先设置通用对话框CD1的Fliter。属性和FilterIndex属性，然后调用CD1的ShowOpen方法，接下来通过Input方式打开选中的文件，将文件读入后放到文本框Text1中，最后使用Close语句关闭文件。