新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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