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

public function createstringarr() as string()

10余年的陸川網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對(duì)設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對(duì)一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。網(wǎng)絡(luò)營(yíng)銷推廣的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整陸川建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無(wú)論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。成都創(chuàng)新互聯(lián)從事“陸川網(wǎng)站設(shè)計(jì)”,“陸川網(wǎng)站推廣”以來(lái)，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

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

end function

vb中，怎樣用function返回多個(gè)值？？

在VB中，一個(gè)function只能用一個(gè)return語(yǔ)句返回一個(gè)值。哪怕有幾個(gè)return語(yǔ)句，也只能執(zhí)行一個(gè)。

如果需要返回多個(gè)值，可以使用數(shù)組，數(shù)組的每一個(gè)元素值都可以帶回來(lái)。

單個(gè)變量只能在在VB中，一個(gè)function只能用一個(gè)return語(yǔ)句返回一個(gè)值。哪怕有幾個(gè)return語(yǔ)句，也只能執(zhí)行一個(gè)。

如果需要返回多個(gè)值，可以使用數(shù)組，數(shù)組的每一個(gè)元素值都可以帶回來(lái)。

單個(gè)變量只能使用by在VB中，一個(gè)function只能用一個(gè)return語(yǔ)句返回一個(gè)值。哪怕有幾個(gè)return語(yǔ)句，也只能執(zhí)行一個(gè)。

如果需要返回多個(gè)值，可以使用數(shù)組，數(shù)組的每一個(gè)元素值都可以帶回來(lái)。

單個(gè)變量只能在聲明函數(shù)的某個(gè)參數(shù)時(shí)使用byref前綴。

其他方法如使用全局變量等，已經(jīng)不屬于返回值的問(wèn)題了。

vb.net輸出數(shù)組

1.你說(shuō)的這個(gè)有點(diǎn)問(wè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 返回一個(gè)數(shù)組的函數(shù)

public function createstringarr() as string()

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

end function

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

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

Option?Explicit

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

'?返回一個(gè)?Integer類型的數(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)行效果：

vb.net 編寫一個(gè)函數(shù)

注意：參數(shù)為動(dòng)態(tài)數(shù)組；

Private Function MyF(ByRef d() As Integer)

ReDim d(4, 13) As Integer

Dim i As Integer

Dim j As Integer

Dim n As Integer

Dim MyNum(4) As Integer

For i = 1 To 4

MyNum(i) = 0

Next i

Randomize

For i = 1 To 4

For j = 1 To 13

n = Int(Rnd * 4 + 1)

Do While MyNum(n) = 13

n = Int(Rnd * 4 + 1)

Loop

d(i, j) = n

MyNum(n) = MyNum(n) + 1

Next j

Next i

End Function