上面是程序运行的界面！
以下就是 VB6 的源代码：
依次添加 5 个按钮控件，一个 timer 控件和一个 microsoft common dialog control 6.0 控件
Private Sub Command1_Click() '输入文字
Dim n%
On Error Resume Next ' 如果出现错误，不理它
n = InputBox("你想输入几段文字?")
For i = 1 To n
temp = InputBox("请输入第" + Str(i) + "段文字，共有" + Str(n) + "段")
Text1 = Text1 & temp & vbCrLf 'Vbcrlf 有回车换行的功能，CR 回车，LF 换行
x = DoEvents '在 FOR 循环过大时，此句可避免死机
