Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
創新互聯專注為客戶提供全方位的互聯網綜合服務,包含不限于成都網站建設、成都網站制作、豐縣網絡推廣、小程序制作、豐縣網絡營銷、豐縣企業策劃、豐縣品牌公關、搜索引擎seo、人物專訪、企業宣傳片、企業代運營等,從售前售中售后,我們都將竭誠為您服務,您的肯定,是我們最大的嘉獎;創新互聯為所有大學生創業者提供豐縣建站搭建服務,24小時服務熱線:18982081108,官方網址:m.newbst.com
Dim a(15) As Integer
Dim i As Integer
Dim tmpStr As String
Randomize()
For i = 0 To a.Length - 1
a(i) = Int(100 * Rnd() + 1)
Next
TextBox1.Text = ""
tmpStr = ""
For i = 0 To a.Length - 1
tmpStr = tmpStr a(i) " "
'在Textbox中每行顯示5個
If (i + 1) Mod 5 = 0 Then
TextBox1.AppendText(tmpStr vbCrLf)
tmpStr = ""
End If
Next
End Sub
Dim?str?As?String?=?"",?temp,?n?As?Integer
Dim?str1?As?String?=?"12,45,2,9,41,31,66,83,2,1,-9,-91,-21"
Dim?a()?As?String?=?Split(str1,?",")
For?i?=?1?To?UBound(a)?Step?1
a(i)?=?Val(a(i))
Next
temp?=?0
n?=?0
For?i?=?1?To?UBound(a)
If?a(i)??temp?Then
temp?=?a(i)
End?If
If?a(i)??0?Then
n?=?n?+?1
End?If
Next
str?=?str??"正數的個數為?"??n
str?=?str??"最大元素的下標為?"
For?i?=?1?To?UBound(a)
If?a(i)?=?temp?Then
str?=?str??i??"?"
End?If
Next
TextBox6.Text?=?str
1、vb.net的
數組定義與變量定義差不多??梢杂?/p>
dim
來定義
比如:
dim
a(100)
as
integer。
也可以不定義下標
在程序中
用
redim
來定義。
如:
dim
a()
as
integer
'
'
redim
a(100)
2、vb.net中定義數組可以直接賦值。
如:
dim
a()
as
integer
={1,
2,
3,4}
是這么定義的:
數組中的第一個元素的下標稱為下界,最后一個元素的下標稱為上界,其余的元素連續地分布在上下界之間,且數組在內存中也是用連續的區域來存儲的,所以數組每維的長度不能超過Long數據類型的最大值,即264—1=263。
把VB.NET數組當作一個對象來處理,就意味著數組類型是單個引用類型,數組變量包括指向構成數組元素、數組維和數組長度等數據的指針,數組之間互相賦值但僅僅是在相互復制指針,數組繼承了System名字空間的Array類。
VB.NET中的數組有兩種類型:定長數組和動態數組。
擴展資料:
1、數組的使用
在’VB 6.0中,能夠用For Each來循環遍歷一個數組。
比如:
Dim?x?As?Integer
F0r?Each?x?In?arrayl
Console.WriteLine(x)
Next?
2、在VB.NET中能夠使用For循環和數組長度來遍歷一個數組。
比如:
Dim?i?As工nteger? ?
F0r?i=0?T0??(arrayl.Length-1)
(此處空一行)
Console.WriteLine(arrayl(1)J
Next?i
VB.net中沒有控件數組的說法。
替代方法:
·創建一個控件的類型數組: Button[],將所有的button控件創建好后存進去,可以遍歷它;
·或將所有要遍歷的控件放在一個容器如Panel中,以后遍歷這個容器的子控件即可。
----------
你的情況,推薦放在容器中。比如下面就是一個遍歷容器的控件,然后找出所有的文本框并修改內容的程序:
//pn 是個 Panel 控件
foreach (Control item in pn.Controls)
{
if (typeof(TextBox) == item.GetType())
{
((TextBox)item).Text = "我是動態修改的!";
}
}
vb.net和vb6.0不同,無法直接使用控件數組。不過可以通過其他方式變通一下。
比如現在有10個label,要將這10個label的text屬性統一設置為“這是第X個標簽”(X為1-10)。
1.建立10個label,名稱分別為label1、label2、label3。。label10
2.代碼:
For i = 1 To 10
Me.FindControl("label" i).Text = "這是第" i “個標簽”
Next i
關鍵點是Me.FindControl()的方法,在代碼中Me.FindControl("label1").text與label1.text是一樣的。
分享題目:vb.net數組用法,數組控件vb編程代碼
文章轉載:http://m.newbst.com/article16/phhedg.html
成都網站建設公司_創新互聯,為您提供軟件開發、網頁設計公司、虛擬主機、微信公眾號、品牌網站制作、定制開發
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯