VB文件操作

[Programmerzrj]

Private Sub Command1_Click()

Dim m As Integer '接受文本框一的数值
Dim n As Integer '接受文本框二的数值
Dim k As Integer '循环控制次数

m = Val(Text1.Text)
n = Val(Text2.Text)

For k = m To n
Open Dir1.Path + "\k.txt" For Output As #k
Next

End Sub

这段代码的本来用意是点击command1按钮的时候 在指定文件夹中创建 文件名为数字m 到n的 n-m个文件（暂不判断n 和m的大小问题）
可是我调试的时候只生成k.txt文件 怎么让for循环里的k真正的起作用

[饮水需思源]

For k = m To n
Open Dir1.Path + "\" & trim(str(k)) & ".txt" For Output As #k
Next