【正确答案】正确答案： 本题主要考查通用对话框使用、顺序文件的打开和Ucase()函数的使用。 通用对话框(CommonDialog)提供打开文件、保存文件、设置打印选项、选择颜色和字体、显示帮助等操作的一组标准对话框，该控件运行时不可见。其Action属性用于设置被打开对话的类型，Filter(过滤器)属性用于指定在对话框的文件列表中显示文件的类型。例如，过滤器为*．txt表示显示所有的文本文件。语法为“对象名．Filter=“描述|文件扩展名””。 首先要根据ASCII码来判断是否为小写字母，然后再用Ucase函数将小写字母转换为大写字母，补充后的具体代码如下： Dim str AS String Private Sub Commandl_Click() Dim tmp As String str="" Commonl．Filter="文本文件(*．txt)|*．txt" Commonl． ShowOpen If Commonl．FileName◇""Then Open Commonl． FileName For Input As#1 '如果文件存在则进行读取 While EOF(1)=False'判断是否读取完成 Input #1 ，trap str=str+tmp'将读取的字符串放入str Wend End If Close#1 Textl．Text=str'在Textl中显示读取的字符串 End Sub Private Sub Command2_Click() Textl．Text=UCase(Textl．Text) End Sub Private Sub Command3_Click() Open"App．Path&＼out5．txt"For Output As#1 Print#1，Textl．Text'将修改后的字符串写入文件中 Close#1 End Sub 单击