Module Module1
站在用户的角度思考问题，与客户深入沟通，找到呼中网站设计与呼中网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：成都做网站、成都网站制作、企业官网、英文网站、手机端网站、网站推广、域名注册、网页空间、企业邮箱。业务覆盖呼中地区。
Sub Main()
Dim i, k As Integer
Dim a(,) As Integer = {{1, 2}, {2, 4}, {3, 4}}
For i = 0 To 2
For k = 0 To 1
Console.Write("a({0},{1})={2} ", i, k, a(i, k))
Next
Console.WriteLine()
Next
Console.Read()
End Sub
End Module
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语句后面的分号表示打印后不加入其它内容，下一次紧接着输出其它的内容。
Dim abc(2) As Integer
abc = {0, 1, 2}
'或者
Dim abcd() As Integer
ReDim abcd(9)
For i As Integer = 0 To abcd.Length - 1
abcd(i) = i
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
dim a as string
dim b() as string
dim i as integer
a="abc"
redim b(4)
for i=0 to 4
b(i)=a
next
