VB 嵌套算法谁知道？急

给出一个数组，里面有100 ……300的数字，分别是 101 102 103……300的数共200个数， 每50个数为一组100-150 150 -200 200-250 250 -300 分为四组，每组生成一个txt文件，文件名是每组数字的最大数字，在TXT文件中，分别罗列出 50个数字。结果希望如下：
第一个文件 150.txt
100
101
……
150

第二个文件 200.txt

151
152
……
200

第三个文件 250.txt

201
202
……
250

……
……
问题扩充一下，
开始数字100（a），结束数字300（b）， 50(c)一组
如果把a b c 都设为变量。不是具体一个数字该怎么办

'根据补充，修改如下：
'来个简单的。
'在窗体代码区复制下面代码，运行后单击窗体，即可得出结果。

Private Sub Form_Click()
Dim a() As Integer, i As Integer, S As String
Dim m1 As Integer, m2 As Integer, m3 As Integer, t As Integer
m1 = Val(InputBox("开始数字：", "参数输入", 100))
m2 = Val(InputBox("结束数字：", "参数输入", 300))
m3 = Val(InputBox("每组数量", "参数输入", 50))
t = m2 - m1
ReDim a(1 To t)
For i = m1 + 1 To m2 '数组赋值
a(i - m1) = i
Next
For i = LBound(a) To UBound(a)
If (a(i) Mod m3) = 1 Then
Close #1
Open App.Path & "\" & a(i) + m3 - 1 & ".txt" For Output As #1
End If
Print #1, a(i)
Next
Close #1
MsgBox "数据输出完毕！"
End Sub

1、获取数组值
sub getdata()
dim a(199) as integer
dim i as integer
for i=101 to 300
a(i-101)=i
next i
end sub
2、写文件
sub getfile()
dim i as integer