重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
使用动态定义
成都创新互联公司主营柘城网站建设的网络公司,主营网站建设方案,手机APP定制开发,柘城h5小程序定制开发搭建,柘城网站营销推广欢迎柘城等地区企业咨询
ReDim a() AS **********'定义一个动态数组
...........
计算出第一个Y
ReDim a(0)
a(0)=Y
.....................
计算出第二个Y
ReDim Preserve a(1) '再次分配元素并保留原有元素
a(1) =Y
.........................
.........................
ReDim Preserve a(N) '第N次分配元素并保留原有元素
a(N) =Y
用一个带括号的变量名来定义一维数组和多维数组如dim a(5) as integer '定义了1个1维、6个元素数组dim a(5,5) as integer '定义了1个2维、36个元素的数组
Sub Main()
Dim rand As New Random
Dim arr(15) As Integer
For I As Integer = 0 To 14
arr(I) = rand.Next(-200, 200)
Console.Write("{0}{1}", arr(I), vbTab)
If (I + 1) Mod 5 = 0 Then
Console.WriteLine()
End If
Next
Console.ReadLine()
End Sub