vb.net 對(duì)象數(shù)組

你只是定義了一個(gè)對(duì)象，類而已

創(chuàng)新互聯(lián)是一家專業(yè)提供興安盟企業(yè)網(wǎng)站建設(shè),專注與網(wǎng)站建設(shè)、網(wǎng)站制作、成都h5網(wǎng)站建設(shè)、小程序制作等業(yè)務(wù)。10年已為興安盟眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)的建站公司優(yōu)惠進(jìn)行中。

首先要給對(duì)象設(shè)置變量，這個(gè)還不是數(shù)組

Public class As Single的class 應(yīng)該是關(guān)鍵字請(qǐng)換一個(gè)名字

Dim KidsX(1 to 100) as kids

KidsX(1).classx=1

KidsX(1).grade=1

KidsX(1).name=”張某"

KidsX(2).classx=1

KidsX(2).grade=2

KidsX(2).name=”王某"

……

VB.NET數(shù)組問(wèn)題（?。。。。。?！求助?。。。。。。。。。?/h2>

Dim a(3, 3, 3)

Dim b(3, 3), c(3, 3), d(3, 3)

Private Sub aaa()

' 對(duì)數(shù)組a(3,3,3)賦值

For i = 1 To 3

For j = 1 To 3

b(i, j) = a(1, i, j)

Next

Next

For i = 1 To 3

For j = 1 To 3

c(i, j) = a(2, i, j)

Next

Next

For i = 1 To 3

For j = 1 To 3

d(i, j) = a(3, i, j)

Next

Next

End Sub

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 數(shù)組

vb.net已經(jīng)去掉了控件數(shù)組這個(gè)類，不過(guò)有個(gè)代替該方式的一個(gè)屬性：Tag，你可以把這些關(guān)聯(lián)的Tag屬性設(shè)置為同一標(biāo)記，如：a。然后遍歷所有的checkbox并且tag為a的則選定：Protected Sub chkAll_Click() For Each ctl As Control In Me.Controls ''如果checkbox在一個(gè)容器里，比如groupbox，那可以用groupbox.controls

If ctl.GetType().Name.ToLower() = "checkbox" Then

CType(ctl, CheckBox).Checked = CheckBox3.Checked

End If

NextEnd Sub

詳細(xì)闡述 vb.net 中main

每個(gè) Visual Basic 應(yīng)用程序均必須包含一個(gè)稱為VB.NET Main過(guò)程。該過(guò)程為應(yīng)用程序的起始點(diǎn)并為應(yīng)用程序提供總體控制。.NET Framework 在已加載應(yīng)用程序并準(zhǔn)備將控制傳遞給它時(shí)，將調(diào)用 Main 過(guò)程。除非您要?jiǎng)?chuàng)建 Windows 窗體應(yīng)用程序，否則就必須為自運(yùn)行的應(yīng)用程序編寫(xiě) Main 過(guò)程。

Main 中包含首先運(yùn)行的代碼。在 Main 中，可以確定在程序啟動(dòng)時(shí)首先加載的窗體，確定系統(tǒng)上是否已在運(yùn)行您的應(yīng)用程序副本，為應(yīng)用程序建立一組變量，或者打開(kāi)應(yīng)用程序需要的數(shù)據(jù)庫(kù)。

VB.NET Main過(guò)程的要求

獨(dú)立運(yùn)行的文件（擴(kuò)展名通常為 .exe）必須包含 Main 過(guò)程。庫(kù)（例如，擴(kuò)展名為 .dll）不獨(dú)立運(yùn)行，因而不需要 Main 過(guò)程?？梢詣?chuàng)建的不同類型的項(xiàng)目的要求如下：

控制臺(tái)應(yīng)用程序可以獨(dú)立運(yùn)行，而且您必須提供至少一個(gè) Main 過(guò)程。

Windows 窗體應(yīng)用程序可以獨(dú)立運(yùn)行。但是，Visual Basic 編譯器會(huì)在此類應(yīng)用程序中自動(dòng)生成一個(gè) Main 過(guò)程，因而您不需要編寫(xiě)此過(guò)程。

類庫(kù)不需要 Main 過(guò)程。這些類庫(kù)包括 Windows 控件庫(kù)和 Web 控件庫(kù)。作為類庫(kù)部署 Web 應(yīng)用程序。

聲明VB.NET Main過(guò)程

有四種方法可以聲明 Main 過(guò)程。它可以使用參數(shù)或不使用參數(shù)，可以返回值或不返回值。

注意

如果在類中聲明 Main 過(guò)程，則必須使用 Shared 關(guān)鍵字。在模塊中，Main 不必是 Shared。

最簡(jiǎn)單的方法是聲明一個(gè)不使用參數(shù)或不返回值的 Sub 過(guò)程。

Module mainModule

Sub Main()

MsgBox("The Main procedure

is starting the application.")

' Insert call to appropriate

starting place in your code.

MsgBox("The application

is terminating.")

End Sub

End ModuleMain

還可以返回一個(gè) Integer 值，操作系統(tǒng)將其作為程序的退出代碼。其他程序可以通過(guò)檢查 Windows ERRORLEVEL 值來(lái)測(cè)試該代碼。若要返回退出代碼，必須將VB.NET Main過(guò)程聲明為 Function 過(guò)程而不是 Sub 過(guò)程。

Module mainModule

Function Main() As Integer

MsgBox("The Main procedure

is starting the application.")

Dim returnValue As Integer = 0

' Insert call to appropriate

starting place in your code.

' On return, assign appropriate

value to returnValue.

' 0 usually means successful

completion.

MsgBox("The application is

terminating with error level " _

CStr(returnValue) ".")

Return returnValue

End Function

End ModuleMain

還可以采用一個(gè) String 數(shù)組作為參數(shù)。數(shù)組中的每個(gè)字符串均包含一個(gè)用于調(diào)用程序的命令行參數(shù)。您可以根據(jù)它們的值采取不同的操作。

Module mainModule

Function Main(ByVal cmdArgs()

As String) As Integer

MsgBox("The Main procedure is

starting the application.")

Dim returnValue As Integer = 0

' See if there are any arguments.

If cmdArgs.Length 0 Then

For argNum As Integer = 0 To

UBound(cmdArgs, 1)

' Insert code to examine cmdArgs

(argNum) and take

' appropriate action based on its value.

Next argNum

End If

' Insert call to appropriate starting

place in your code.

' On return, assign appropriate

value to returnValue.

' 0 usually means successful completion.

MsgBox("The application is

terminating with error level " _

CStr(returnValue) ".")

Return returnValue

End Function

End Module

可以聲明VB.NET Main過(guò)程來(lái)檢查命令行參數(shù)而不返回退出代碼，如下所示。

Module mainModule

Sub Main(ByVal cmdArgs() As String)

MsgBox("The Main procedure is

starting the application.")

Dim returnValue As Integer = 0

' See if there are any arguments.

If cmdArgs.Length 0 Then

For argNum As Integer = 0 To

UBound(cmdArgs, 1)

' Insert code to examine cmdArgs

(argNum) and take

' appropriate action based on its value.

Next argNum

End If

' Insert call to appropriate

starting place in your code.

MsgBox("The application is

terminating."

End Sub

End Module

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)行效果：

當(dāng)前題目：關(guān)于vb.net數(shù)組退出的信息
文章出自：http://jinyejixie.com/article4/dodhdie.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供ChatGPT、網(wǎng)站改版、小程序開(kāi)發(fā)、企業(yè)網(wǎng)站制作、移動(dòng)網(wǎng)站建設(shè)、品牌網(wǎng)站制作

廣告

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