Dim i As Long
Dim temp As String

i = 0

Open App.Path & "test.txt" For Input As #1     '读取txt文件中的内容

Do While Not EOF(1)

Line Input #1, temp
i = i + 1
For j = 1 To Len(temp)          '测试一行内所有数据
......................

Private Sub Command1_Click()
Form1.Caption = "大小写字母转换"
Label1.Caption = "输入字符串："
Label2.Caption = "转换："
Command1.Caption = "清屏"
Command2.Caption = "结束"
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command2_Click()
End
......................

Private Sub Command1_Click()
Form1.Caption = "欢迎界面"
Label1.Caption = "欢迎使用本程序！"
Label2.Caption = "请输入用户名！"
Text1.Text = ""
End Sub

Private Sub Command2_Click()
End
End Sub