请问这样的字符串怎么取？请各位高人赐教，谢谢？？？

[flyfishfree]

假如我有一个这样的字符串：
a="abcdefghijklmnopqrstuvwxyz"
现在我得到如下结果：
b(0)="abcde"
b(1)="fghij"
b(2)="klmno"
b(3)="pqrst"
b(4)="uvwxy"
b(5)="z"
请问大家用什么方法得到上面的结果！

[lxqlogo0]

Dim b()
a = "abcdefghijklmnopqrstuvwxyz"
'现在我得到如下结果:
'b(0) = "abcde"
'b(1) = "fghij"
'b(2) = "klmno"
'b(3) = "pqrst"
'b(4) = "uvwxy"
'b(5) = "z"
ReDim b(Len(a))
For i = 1 To Len(a)
b(i - 1) = Mid(a, i, 5)
Debug.Print b(i - 1)
i = i + 4

Next

[sailor001]

strlen=len(a)
total=int(strlen/5)
if strlen mod 5<>0 then
total=total+1
end if
dim b()
redim b(total)
for i=0 to total
b(i)=mid(a,i*4+1,4)
next

[zhxhjj]

两层循环进行判断

[xiaobird1]

<SCRIPT LANGUAGE="VBScript">
<!--
dim a
dim b()

a = "abcdefghijklmnopqrstuvwxyz"
j = 0
for i = 1 to 26 step 5
REDIM PRESERVE b(j)
b(j) = mid(a,i,5)
msgbox b(j)
j=j+1
next
//-->
</SCRIPT>

[qdubit]

同意二楼的

[zhanghuazhanghome]

<script language=javascript>
var a="abcdefghijklmnopqrstuvwxyz";
var b=new array(5);
var i=5,j=0;
var len=a.length;
while(len>=5)
{
b[j]=a.substring(0,5);
a=a.substring(6);
len=a.length;
j++;
}
b[j]=a;