在窗体上绘制一个名称为Command1的命令按和一个名称为Text1的文本框,在文本框中输入以下字符串: Microsoft Sub Command1_Click() 然后编写如下事件过程: Private Sub Command1_Click() Open 'd:/temp/outf.txt' For Output As #1 For i=1 To Len(Text1.Text) c=Mid(Text1.Text,i,1) If c>='A' And c<='Z' Then Print #1,LCase(C) End If Next i Close End Sub 程序运行后,单击命令按,文件outf.txt中的内容是