vb.net中redim vb和vb net

16.在VB.NET中，如果保留动态数组元素原来的值，在关键字Redim后加_____参数。

Redim Preserve Arr(10,n)

上街网站建设公司成都创新互联公司,上街网站设计制作，有大型网站制作公司丰富经验。已为上街成百上千提供企业网站建设服务。企业网站搭建\外贸营销网站建设要多少钱，请找那个售后服务好的上街做网站的公司定做！

通过Preserve关键字定义的动态数组，可以更改数组arr最末维的大小，且保留数组arr原来各个元素的值。

所以答案为：C

例如：

Dim arr()

Redim arr(1 to 1,1 to 2)

arr(1,2) = "你好"

Redim Preserve arr(1 to 1, 1 to 3)

msgbox arr(1,2) '这个时候依然可以得到arr(1,2)的值为“你好”。

而且从答案来看，Redim只可能与Preserve联合使用。其他都无法编译！

vb.net求帮助 要用redim语句

写的比较粗糙，参考一下吧

Sub Main()

Dim numArr() As Double

Dim count As Integer = 1

Dim num As Double

Dim sumNum As Double = 0

Dim aveNum As Double

Dim flag As Integer = 0

While (True)

Console.Write("请输入第{0}个数:", count）

ReDim Preserve numArr(count - 1)

num = Convert.ToDouble(Console.ReadLine())

If num = 0 Then

Exit While

End If

numArr(count - 1) = num

count += 1

End While

If count 1 Then

Dim cha As Double

Dim minCha As Double = Double.MaxValue

For i As Integer = 0 To count - 1

sumNum += numArr(i)

Next

aveNum = sumNum / (count - 1)

For i As Integer = 0 To count - 1

cha = Math.Abs(aveNum - numArr(i))

If minCha = cha Then

minCha = cha

flag = i + 1

End If

Next

End If

Console.WriteLine("总共输入{0}个正数，平均值为{1}", count - 1, aveNum）

Console.WriteLine("最接近平均值的是第{0}个正数，值为{1}", flag, numArr(flag - 1)）

Console.ReadKey()

End Sub

在VB.NET中,使用Redim语句重新定义一个数组是,需要注意什么问题

1. 前提一定要声明一个数组,不需要赋值或者标明维数，例如dim a() as integer

2. 如果使用redim重新定义一个数组，数组里数据全部被初始化，要保留原有数据加上preserve

3 redim只能修改数据最后的维数，不能改变数组类型

4 redim 不能够全局声明

VB.NET ReDim

满意答案是什么大的啊！~这个哪有错！！~。。

Dim array() As Integer = {1, 2, 3, 4, 5, 6} 这个表示定义一个数组。。并赋值。。

redim 重新定义了，这个时候8个值都是为0了。

所以，array(3)为0.