數(shù)組好像沒(méi)有快速賦值吧，或者你再把問(wèn)題再清楚一點(diǎn)。
創(chuàng)新互聯(lián)主營(yíng)凱里網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,成都App制作,凱里h5成都微信小程序搭建,凱里網(wǎng)站營(yíng)銷推廣歡迎凱里等地區(qū)企業(yè)咨詢
語(yǔ)句執(zhí)行時(shí)間倒是可以做到。在語(yǔ)句前
Dim oldTime As Date = Now
在過(guò)程語(yǔ)句后加
Dim newTime As Date = Now
Dim differenceInSeconds As Long = DateDiff(DateInterval.Second, oldTime, newTime)
textbox1.text= "共用了:" differenceInSeconds "秒!"
1、vb.net的
數(shù)組定義與變量定義差不多?？梢杂?/p>
dim
來(lái)定義
比如:
dim
a（100）
as
integer。
也可以不定義下標(biāo)
在程序中
用
redim
來(lái)定義。
如：
dim
a()
as
integer
'
'
redim
a(100)
2、vb.net中定義數(shù)組可以直接賦值。
如：
dim
a()
as
integer
={1,
2,
3,4}
vb.net和vb6.0不同，無(wú)法直接使用控件數(shù)組。不過(guò)可以通過(guò)其他方式變通一下。
比如現(xiàn)在有10個(gè)label，要將這10個(gè)label的text屬性統(tǒng)一設(shè)置為“這是第X個(gè)標(biāo)簽”（X為1-10）。
1.建立10個(gè)label，名稱分別為label1、label2、label3。。label10
2.代碼：
For i = 1 To 10
Me.FindControl("label" i).Text = "這是第" i “個(gè)標(biāo)簽”
Next i
關(guān)鍵點(diǎn)是Me.FindControl()的方法，在代碼中Me.FindControl("label1").text與label1.text是一樣的。
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??"正數(shù)的個(gè)數(shù)為?"??n
str?=?str??"最大元素的下標(biāo)為?"
For?i?=?1?To?UBound(a)
If?a(i)?=?temp?Then
str?=?str??i??"?"
End?If
Next
TextBox6.Text?=?str
是這么定義的：
數(shù)組中的第一個(gè)元素的下標(biāo)稱為下界，最后一個(gè)元素的下標(biāo)稱為上界，其余的元素連續(xù)地分布在上下界之間，且數(shù)組在內(nèi)存中也是用連續(xù)的區(qū)域來(lái)存儲(chǔ)的，所以數(shù)組每維的長(zhǎng)度不能超過(guò)Long數(shù)據(jù)類型的最大值，即264—1=263。
把VB．NET數(shù)組當(dāng)作一個(gè)對(duì)象來(lái)處理，就意味著數(shù)組類型是單個(gè)引用類型，數(shù)組變量包括指向構(gòu)成數(shù)組元素、數(shù)組維和數(shù)組長(zhǎng)度等數(shù)據(jù)的指針，數(shù)組之間互相賦值但僅僅是在相互復(fù)制指針，數(shù)組繼承了System名字空間的Array類。
VB．NET中的數(shù)組有兩種類型：定長(zhǎng)數(shù)組和動(dòng)態(tài)數(shù)組。
擴(kuò)展資料：
1、數(shù)組的使用
在’VB 6．0中，能夠用For Each來(lái)循環(huán)遍歷一個(gè)數(shù)組。
比如：
Dim?x?As?Integer
F0r?Each?x?In?arrayl
Console．WriteLine(x)
Next?
2、在VB．NET中能夠使用For循環(huán)和數(shù)組長(zhǎng)度來(lái)遍歷一個(gè)數(shù)組。
比如：
Dim?i?As工nteger? ?
F0r?i=0?T0??(arrayl．Length-1)
（此處空一行）
Console．WriteLine(arrayl(1)J
Next?i
Public?長(zhǎng)度()?As?TextBox?=?{?Pipe_0?,??Pipe_1?,?Pipe_2?,?Pipe_3?}
這個(gè)數(shù)組定義是有問(wèn)題的，你定義的是TextBox數(shù)組，{}號(hào)里必須是而TextBox類型，例如：
Public?長(zhǎng)度()?As?TextBox?=?{?New?TextBox?,??New?TextBox?,?New?TextBox?}
Pipe_0-3不是任何類型和值，這個(gè)VS應(yīng)該直接報(bào)錯(cuò)才對(duì)！標(biāo)準(zhǔn)的定義應(yīng)該如下：
Public?Class?Pipe
Public?長(zhǎng)度()?As?TextBox
Sub?New()
Me.長(zhǎng)度?=?{New?TextBox,?New?TextBox,?New?TextBox,?New?TextBox}
End?Sub
Private?Sub?xxxxxxxxxxxx.Click
MsgBox(長(zhǎng)度(2).Name)
End?Sub
End?Class
重慶分公司
重慶分公司
