189 8069 5689
dim a as string
创新互联是专业的望花网站建设公司，望花接单;提供网站建设、成都做网站,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行望花网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
dim b() as string
dim i as integer
a="abc"
redim b(4)
for i=0 to 4
b(i)=a
next
2种方法
1. 直接赋值，此法只适合和小数组
Dim myArray() as Integer ={1,2,3,4,5}
或Dim myArray(5)as integer
myArray(0)=1
myArray(1)=2
myArray(2)=3
myArray(3)=3
myArray(4)=5
myArray(5)=6
2.最常用的for next循环赋值
Dim myArray()as integer
For intCount as Integer= 0 to 5
myArray(intCount)=你要赋值的东西
Next
如果你要每个都不同那就这样：
Dim myArray()as integer
Dim FuZhi as integer
For Fuzhi as 0 to 5
For intCount as Integer= 0 to 5
myArray(intCount)=fuzhi
Next intCount
Next fuzhi
For i =1 To 10
A(i)=0
Next i
就是先让i等于1，，然后执行A(1)=0，遇到Next i，就自动给i加1，i 变成2，回到上面，未超过10，就再执行A(2)=0，如此这般，一直执行到A(10)=0，自动给i加1，i 变成11，再回到上面，已超过10，就不再执行循环体。继续执行Next i这个语句后面的语句（如果还有的话）。
至于Picture1.print a(i);'''';，这是在打印a(i)后不换行，再打印一个" "，这里面不是什么也没有，而是有一个空格。printf语句后面的分号表示打印后不加入其它内容，下一次紧接着输出其它的内容。