在窗体上绘制一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串: Microsoft SubCommand1_Click()然后编写如下事件过程:Private SubCommand1_Click() Open "d:\temp\outf.txt" For OutputAs #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 iClose End Sub程序运行后,单击命令按钮,文件outf.txt中的内容是