# 何不使用字串矩阵?

Posted by 帅帅阿柳 on October 07, 1998 at 22:30:29:

In Reply to: Re: 看了所有的讨论, 还是莫宰羊---字串变数的???? posted by Jeremy Liang on October 07, 1998 at 01:13:01:

Function test(test1() as string) as string
Dim intCount as integer
Dim strCombine as string
for intcount=lbound(test1) to ubound(test1)
strCombine=strCombine & test1(intCount)
Next
Test=strCombine
End Function

Form_Load()

Dim strTest(10) as string
strTest(0)="AAA"
strTest(1)="BBB"
strTest(2)="CCC"
...
Debug.print Test(strTest)
End Sub

这样也可以解决问题,是吧?!而且弹性更大哩!

Follow Ups: