Dim S As String()
成都創(chuàng)新互聯(lián)公司執(zhí)著的堅(jiān)持網(wǎng)站建設(shè),小程序開發(fā);我們不會(huì)轉(zhuǎn)行,已經(jīng)持續(xù)穩(wěn)定運(yùn)營(yíng)10年。專業(yè)的技術(shù),豐富的成功經(jīng)驗(yàn)和創(chuàng)作思維,提供一站式互聯(lián)網(wǎng)解決方案,以客戶的口碑塑造品牌,攜手廣大客戶,共同發(fā)展進(jìn)步。
Dim j As Integer = 9
ReDim S(j)
For i = 0 To j
S(i) = i
Next
注: 指定數(shù)組上限才能對(duì)其賦值
vb定義未知長(zhǎng)度的二維數(shù)組是有兩個(gè)下標(biāo)上界的數(shù)組;多維數(shù)組就是有多個(gè)下標(biāo)上界的數(shù)組;一維數(shù)組就是有一個(gè)下標(biāo)上界的數(shù)組。
vb.net已經(jīng)去掉了控件數(shù)組這個(gè)類,不過有個(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
next
end
sub
使用動(dòng)態(tài)定義
ReDim a() AS **********'定義一個(gè)動(dòng)態(tài)數(shù)組
...........
計(jì)算出第一個(gè)Y
ReDim a(0)
a(0)=Y
.....................
計(jì)算出第二個(gè)Y
ReDim Preserve a(1) '再次分配元素并保留原有元素
a(1) =Y
.........................
.........................
ReDim Preserve a(N) '第N次分配元素并保留原有元素
a(N) =Y