VB中 如果在生成的数字后面添加特定字符?

来源：百度知道 编辑：UC知道 时间：2024/06/07 18:16:02
Private Sub Command1_Click()
hao1 = Text1.Text
hao2 = Text2.Text
Open "\wenjin.txt" For Append As 1#
For i = hao1 To hao2
Print #1, Format(i, "00000")
Next
Close
End Sub

现在可以生成hao1 到hao2之间的数字 但是怎么能在生成的数字后面添加统一加上GAME
生成后的效果是10000game
现在的生成的路径是Open "d:\wenjin.txt" For Append As 1#
怎么能选择生成路径?

Private Sub Command1_Click()
dim hao1%,hao2%,urlpath$
urlpath= inputbox("请输入路径吧!!")
hao1 = val(Text1.Text )
hao2 = val(Text2.Text )
Open urlpath For Append As 1#
For i = hao1 To hao2
Print #1, Format(i, "00000") & "GAME"
Next
Close #1
End Sub

()后面添加【& "GAME"】