vb.net輸出數(shù)組

1.你說(shuō)的這個(gè)有點(diǎn)問(wèn)題,是要只輸出一次,也可做,

創(chuàng)新互聯(lián)建站是一家專(zhuān)業(yè)提供波密企業(yè)網(wǎng)站建設(shè),專(zhuān)注與網(wǎng)站建設(shè)、網(wǎng)站制作、H5開(kāi)發(fā)、小程序制作等業(yè)務(wù)。10年已為波密眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專(zhuān)業(yè)網(wǎng)絡(luò)公司優(yōu)惠進(jìn)行中。

2.但問(wèn)題是如果你數(shù)組還有就看不到了!這個(gè)做法有點(diǎn)問(wèn)題

1.解決方法:

循環(huán)前面加入一個(gè)變量 dim Temp as Double=0

For i = 0 To 9

If score(i) avg and score(i)temp Then

TextBox3.Text = TextBox3.Text score(i) " "

if score(i)=avg then

temp=score(i)

end if

End If

Next

VB.net 如何編寫(xiě)一個(gè)可以返回?cái)?shù)組的函數(shù)（過(guò)程）？

public function createstringarr() as string()

return new string(){"d1","d2","d3","d4"}

end function

vb.net 返回一個(gè)數(shù)組的函數(shù)

public function createstringarr() as string()

return new string(){"d1","d2","d3","d4"}

end function

如何讀取數(shù)據(jù)表一列的數(shù)據(jù)到數(shù)組 VB.NET

不知道你數(shù)據(jù)表中那一列數(shù)據(jù)是什么類(lèi)型的數(shù)據(jù)，所以我全部按字串來(lái)處理。

首先聲明一個(gè)數(shù)組，和即將用來(lái)計(jì)數(shù)的數(shù)字：

dim?nums()?as?string

Dim?i?As?Integer?=?0

mycon.open?'然后，連接數(shù)據(jù)庫(kù)，按你的聲明來(lái)：

dim?mycom?as?new?sqlcommand("select?*?from?你要讀取數(shù)據(jù)的表",?mycon)'接下來(lái)，聲明一個(gè)執(zhí)行數(shù)據(jù)庫(kù)語(yǔ)句命令的com：

'然后，對(duì)數(shù)據(jù)庫(kù)返回的結(jié)果進(jìn)行操作（一般會(huì)將執(zhí)行結(jié)果存放起來(lái)，再操作，我這里省去了存放這步）：

With?mycom.ExecuteReader()?'對(duì)返回的結(jié)果，即查詢到的表進(jìn)行操作?

If?.HasRows?Then????'判斷是否有數(shù)據(jù)，有數(shù)據(jù)就進(jìn)入下面進(jìn)行讀取

Do?While?.Read???'讀取一行數(shù)據(jù)

If?Not?(String.IsNullOrEmpty(.GetString(0)))?Then??'檢查表列的數(shù)據(jù)是否為空，不為空就進(jìn)入下面，進(jìn)行保存。這里要說(shuō)下getstring這個(gè)，是讀取某列數(shù)據(jù)中的字串，如果該列數(shù)據(jù)不是字串，那么需要用getvalue(0)，0代表該列在表中的位置，從0開(kāi)始，即0表示第一列。

ReDim?Preserve?nums(i)???'重置數(shù)組大小，即為即將要保存的數(shù)據(jù)準(zhǔn)備一個(gè)位置?

nums(i)?=?.GetString(0)??'將數(shù)據(jù)放入到數(shù)組中?

i?=?i?+?1??'循環(huán)，直到結(jié)束????????????????????

End?If????????????????

Loop????????????

End?If????????

End?With

mycon.close?'最后記得要關(guān)閉數(shù)據(jù)庫(kù)連接

數(shù)據(jù)存入數(shù)組很簡(jiǎn)單，其實(shí)難點(diǎn)是連接數(shù)據(jù)庫(kù)，從數(shù)據(jù)庫(kù)拿數(shù)據(jù)，這難點(diǎn)原理簡(jiǎn)單，但因?yàn)楦袷?，?shù)據(jù)類(lèi)型等問(wèn)題，很容易出錯(cuò)。

以上，數(shù)據(jù)到了數(shù)組，你應(yīng)該會(huì)操作了吧。其實(shí)建議直接對(duì)從數(shù)據(jù)庫(kù)返回的結(jié)果進(jìn)行操作，不需要用數(shù)組的。

VB.NET ARRAY 問(wèn)題

Dim anArray(5, 3) As Integer

數(shù)組維數(shù)是從0開(kāi)始計(jì)算的。

數(shù)組的 GetLength 方法返回指定維的長(zhǎng)度。

anArray.GetLength(0) 表示取anArray第0維長(zhǎng)度，0-5，即返回6

同理anArray.GetLength(1)取anArray第1維長(zhǎng)度，0-3，即返回4

vb.net中返回一個(gè)數(shù)組的函數(shù)的問(wèn)題

給你一個(gè)簡(jiǎn)單的示例：

Option?Explicit

Private?Function?GetRndInt()?As?Integer()

'?返回一個(gè)?Integer類(lèi)型的數(shù)組

Dim?i?As?Long,?aTemp()?As?Integer

Randomize

ReDim?aTemp(15)

For?i?=?0?To?15

aTemp(i)?=?Rnd()?*?500

Next

GetRndInt?=?aTemp

End?Function

Private?Sub?Command1_Click()

Dim?aTemp()?As?Integer

Dim?i?As?Long

Me.Cls

aTemp?=?GetRndInt

Print?"隨機(jī)產(chǎn)生的數(shù)據(jù)為："

For?i?=?0?To?UBound(aTemp)

Print?i?+?1,?aTemp(i)

Next

End?Sub

運(yùn)行效果：