在窗体上绘制一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串: Microsoft Sub Command1_Click() 然后编写如下事件过程: Private Sub Command1_Click() Open "d:empoutf.txt" For Output As 1 For i=1 To Len(Text1.Text)c=Mid(Text1
单选题
在窗体上绘制一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串: Microsoft Sub Command1_Click() 然后编写如下事件过程: Private Sub Command1_Click() Open "d:empoutf.txt" For Output As 1 For i=1 To Len(Text1.Text)c=Mid(Text1