在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串: Microsoft Visual Basic Programming 然后编写如下事件过程: 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) Ifc>=“A”And c<=“Z”Then Print#1,LCase(c) End lf Next i Close End Sub 程序运行后,单击命令按钮,文件outf.txt中的内容是