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.
名称栏目:vb.net中redim vb和vb net
文章路径:http://myzitong.com/article/hpjcco.html