Dim Str(20) As String '20數(shù)據(jù)元素
創(chuàng)新互聯(lián)建站堅(jiān)持“要么做到,要么別承諾”的工作理念,服務(wù)領(lǐng)域包括:做網(wǎng)站、網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù),滿足客戶于互聯(lián)網(wǎng)時(shí)代的鄭州網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求,幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴!
Dim Text(20) As TextBox
Dim n As Integer = 0
For Each i In Text
i = New TextBox '實(shí)例化
i.Location = New Point(50, n * 20)
Me.Controls.Add(i) '添加窗體
Dim Index As Integer = i.TabIndex '沒index屬性
Str(n) = Index
i.Text = Str(n) 'str數(shù)組值賦值給文本框
n += 1
Next
我是VB.Net 2010,你看看能行不。
Public Class Form1
Private MyTextBoxArray As New ArrayList
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To 8 '利用循環(huán)語句動(dòng)態(tài)加入控件數(shù)組。
Dim FirstTextBox As New TextBox
'定義文本框?qū)ο?/p>
Me.Controls.Add(FirstTextBox)
'將一個(gè)文本框控件加入到Form上
MyTextBoxArray.Add(FirstTextBox)
'將文本框控件加入到例表集合中
MyTextBoxArray.Item(i).top = i * MyTextBoxArray.Item(i).height + 20 '修改新加入控件在Form上的位置
MyTextBoxArray.Item(i).left = 100
FirstTextBox.TabIndex = i
'修改新加入控件的TabIndex值
MyTextBoxArray.Item(i).text = "TextBox" i.ToString '修改默認(rèn)文本。
Next
End Sub
End Class
是這么定義的:
數(shù)組中的第一個(gè)元素的下標(biāo)稱為下界,最后一個(gè)元素的下標(biāo)稱為上界,其余的元素連續(xù)地分布在上下界之間,且數(shù)組在內(nèi)存中也是用連續(xù)的區(qū)域來存儲(chǔ)的,所以數(shù)組每維的長度不能超過Long數(shù)據(jù)類型的最大值,即264—1=263。
把VB.NET數(shù)組當(dāng)作一個(gè)對象來處理,就意味著數(shù)組類型是單個(gè)引用類型,數(shù)組變量包括指向構(gòu)成數(shù)組元素、數(shù)組維和數(shù)組長度等數(shù)據(jù)的指針,數(shù)組之間互相賦值但僅僅是在相互復(fù)制指針,數(shù)組繼承了System名字空間的Array類。
VB.NET中的數(shù)組有兩種類型:定長數(shù)組和動(dòng)態(tài)數(shù)組。
擴(kuò)展資料:
1、數(shù)組的使用
在’VB 6.0中,能夠用For Each來循環(huán)遍歷一個(gè)數(shù)組。
比如:
Dim?x?As?Integer
F0r?Each?x?In?arrayl
Console.WriteLine(x)
Next?
2、在VB.NET中能夠使用For循環(huán)和數(shù)組長度來遍歷一個(gè)數(shù)組。
比如:
Dim?i?As工nteger? ?
F0r?i=0?T0??(arrayl.Length-1)
(此處空一行)
Console.WriteLine(arrayl(1)J
Next?i
1、vb點(diǎn)虐 的
數(shù)組定義與變量定義差不多??梢杂?/p>
dim
來定義
比如:
dim
a(100)
as
integer。
也可以不定義下標(biāo)
在程序中
用
redim
來定義。
如:
dim
a()
as
integer
'
'
redim
a(100)
2、vb點(diǎn)虐 中定義數(shù)組可以直接賦值。
如:
dim
a()
as
integer
={1,
2,
3,4}