写一个简单的VB程序（送高积分，谈钱免了)。

来源：百度知道 编辑：UC知道 时间：2024/05/20 19:24:47
文件调试 从文件输入一行以#为结束标志的字符串，将大小写字母互换，其他字符删去，然后存到一个叫"abc.text"的文件保存。
技术要求：
1、 编程、调试、运行结果正确，要求界面设计简洁美观实用
2、设计说明书。其中包括：
1） 变量说明及控件设置（变量、函数等说明以及控件属
性设置列表）
2） 核心算法、界面设计。
3） 程序结构说明（写出程序结构的大概说明）
4） 源程序及界面。
5） 执行结果。
6） 结论（结果分析及问题讨论）
7） 参考文献。
8） 提交源程序及相关文件的电子文档。
在线等，请哪位高手帮忙~万分感谢~~~！！！！

我擦，这么简单的问题怎么会有那么多要求啊，还参考文献？只要学过VB都该会吧，参考什么文献？（教科书？）
1：略过 (一个text1，一个command控件)
2：
（1）：dim i as integer '变量说明
控件：text1.multiline=ture
text1.scrollbars=2
(2):核心算法就是：对每一个text1中的字符进行判断ascii值，若是26个英文字母（ASCII值在65-90 和97-122中），则将其大小转换。其他字符删除
(3):顺序判断text1中的每个字符
（4）：下面有
（5）：程序会给出（与你写在text1中的文本有关）
(6):很简单
（7）：你们的教科书或百度
(8):你提交吧

源码：Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
Select Case Asc(Mid(Text1.Text, i, 1))
Case Is < 65
Case Is < 91
str1 = str1 & LCase(Mid(Text1.Text, i, 1))
Case Is < 97
Case Is < 123
str1 = str1 & UCase(Mid(Text1.Text, i, 1))
End Select
Next i

Open "c:\abc.txt" For Output As #1
Print #1, str1
Close #1
End Sub

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
Select Case Asc(Mid(Text1.Text, i, 1))
Case Is < 65
Case Is