dim本身就表示定義某一個(gè)類(lèi)型的變量的。這個(gè)類(lèi)型,包括簡(jiǎn)單的預(yù)定義類(lèi)型,也包括自定義類(lèi)型,比如類(lèi),數(shù)組等等所有類(lèi)型,只要在一個(gè)項(xiàng)目中可見(jiàn)的類(lèi)型都可以定義。
藍(lán)田網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián)公司,藍(lán)田網(wǎng)站設(shè)計(jì)制作,有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為藍(lán)田上1000+提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站制作要多少錢(qián),請(qǐng)找那個(gè)售后服務(wù)好的藍(lán)田做網(wǎng)站的公司定做!
使用new當(dāng)然就是定義的時(shí)候?qū)嵗?/p>
這個(gè)類(lèi)型,這時(shí)變量已有具體的內(nèi)存對(duì)應(yīng)。
類(lèi),類(lèi)似于C里的結(jié)構(gòu)體,但是可以做到繼承、抽像等面向?qū)ο蟮奶匦?。結(jié)構(gòu)體和類(lèi)都需要new來(lái)實(shí)例化。
你可以看一下面向?qū)ο缶幊谭矫娴闹R(shí)。
人類(lèi)是一個(gè)類(lèi),你是人,我是人,都是人類(lèi)的實(shí)例(instance),或稱對(duì)象(object)。一個(gè)類(lèi)描述一類(lèi)事物,描述這些事物所應(yīng)具有的屬性,如人有身長(zhǎng)、體重、文化程度、性別、年齡、民族等。
一個(gè)對(duì)象是類(lèi)的一個(gè)實(shí)例,它具有確定的屬性,如張三(人的實(shí)例)身高180,體重70公斤,大學(xué)本科,男,21歲,漢族。
人類(lèi)只有一個(gè),人類(lèi)的實(shí)例可以有無(wú)數(shù)個(gè)。
對(duì)象可以被創(chuàng)建和銷(xiāo)毀,但類(lèi)是無(wú)所不在的。
例如,桌子是一個(gè)類(lèi), 人們不斷打造各種尺寸和風(fēng)格(屬性)的桌子(桌子的實(shí)例),打造桌子, 又不斷毀壞桌子,年復(fù)一年,舊的去了,新的又來(lái),但桌子的概念沒(méi)變,它是一個(gè)抽象的概念。應(yīng)該稱它為桌子類(lèi),以區(qū)別于打造的具體桌子。
不熟悉VB,如有不妥的地方請(qǐng)包涵!
Public Class Stack
Dim aryData() As Integer
Sub New(ByVal Num As Integer)
Dim aryData(Num) As Integer
End Sub
Function Pop() As Integer
If (aryData.Length = 0) Then
Return 0
Else
Dim a As Integer
a = aryData(aryData.Length)
aryData(aryData.Length) = Convert.ToInt32(DBNull.Value)
Return a
End If
End Function
Sub Push(ByVal n As Integer)
For Each i As Integer In aryData
If (aryData(i) = Convert.ToInt32(DBNull.Value)) Then
aryData(i) = n
End
Else
Continue For
End If
Next
End Sub
Sub PrintStack()
For Each i As Integer In aryData
If (aryData(i) = Convert.ToInt32(DBNull.Value)) Then
End
Else
Print(aryData(i))
End If
Next
End Sub
End Class