16.在VB.NET中，如果保留動(dòng)態(tài)數(shù)組元素原來的值，在關(guān)鍵字Redim后加_____參數(shù)。

Redim Preserve Arr(10,n)

上街網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián)公司,上街網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為上街成百上千提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)營銷網(wǎng)站建設(shè)要多少錢，請找那個(gè)售后服務(wù)好的上街做網(wǎng)站的公司定做！

通過Preserve關(guān)鍵字定義的動(dòng)態(tài)數(shù)組，可以更改數(shù)組arr最末維的大小，且保留數(shù)組arr原來各個(gè)元素的值。

所以答案為：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) '這個(gè)時(shí)候依然可以得到arr(1,2)的值為“你好”。

而且從答案來看，Redim只可能與Preserve聯(lián)合使用。其他都無法編譯！

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}個(gè)數(shù):", 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}個(gè)正數(shù)，平均值為{1}", count - 1, aveNum）

Console.WriteLine("最接近平均值的是第{0}個(gè)正數(shù)，值為{1}", flag, numArr(flag - 1)）

Console.ReadKey()

End Sub

在VB.NET中,使用Redim語句重新定義一個(gè)數(shù)組是,需要注意什么問題

1. 前提一定要聲明一個(gè)數(shù)組,不需要賦值或者標(biāo)明維數(shù)，例如dim a() as integer

2. 如果使用redim重新定義一個(gè)數(shù)組，數(shù)組里數(shù)據(jù)全部被初始化，要保留原有數(shù)據(jù)加上preserve

3 redim只能修改數(shù)據(jù)最后的維數(shù)，不能改變數(shù)組類型

4 redim 不能夠全局聲明

VB.NET ReDim

滿意答案是什么大的啊！~這個(gè)哪有錯(cuò)！！~。。

Dim array() As Integer = {1, 2, 3, 4, 5, 6} 這個(gè)表示定義一個(gè)數(shù)組。。并賦值。。

redim 重新定義了，這個(gè)時(shí)候8個(gè)值都是為0了。

所以，array(3)為0.

文章標(biāo)題：vb.net中redim vb和vb net
瀏覽路徑：http://www.chinadenli.net/article20/hpjcco.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計(jì)公司、云服務(wù)器、網(wǎng)站維護(hù)、品牌網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)