当前位置：你问我答网 > 教育

VB26个大写字母依次写到顺序文件Myfile.txt,再从Myfile.txt文件中将大写读出并改写成小写后在窗体上输出

2020-05-07 教育 72阅读
Private Sub Command1_Click()
Open "\Myfile.txt" For Output As #1
Dim i As Integer, a As String
For i = 0 To 25
a = a & Chr(65 + i)
Next
Print #1, a
Close #1
Open "\Myfile.txt" For Input As #1
Line Input #1, a
Print LCase(a)
Close #1
End Sub
声明：你问我答网所有作品（图文、音视频）均由用户自行上传分享，仅供网友学习交流。若您的权利被侵害，请联系fangmu6661024@163.com
0

猜你喜欢