在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下
然后编写如下事件过程:
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()
End If
Next i
Close
End Sub
程序运行后,单击命令按钮,文件outf.txt中的内容是()。
A.MVBP
B.mvbp
C.M
V
B
P
D.m
v
b
p