帮我开发这样一个小程序

'放入一个按钮，并依据自己的需要更改数据后，按下按钮看效果
Private Sub Command1_Click()
Dim st1 As String, st2 As String, st3 As String, outfile As String, i
st1 = "abc" '字串1，自己要什么就改成什么
st2 = "200" '你要的组合字串数目
st3 = "xyz" '字串2，自己要什么就改成什么
outfile = "e:\output.txt" '输出文件全路径

'================main================
st2 = Val(st2)
Open outfile For Output As #1

For i = 1 To st2
Print #1, st1 & i & st3
Next

Close #1

MsgBox "生成字串结束!"
End Sub

创建3个text控件 和一个comman按钮,
编译后生成*.exe文件运行后旁边会出现一个结果.txt文本文件.自己查看即可
Private Sub Command1_Click()
Dim i%, a As String, b As String, c As String, s As String
a = Text1.Text: b = Text2.Text: c = Text3.Text
For i = 1 To b
s = s & a & i & c & vbCrlf
Next
Wrtxt s
End Sub

Function Wrtxt(s As String)
Open App.Path & "\结果.txt" For