list1.additem j 意思就是把j添加至list1列表中,這是在一個(gè)for 循環(huán)中,循環(huán)了10次,添加了10次 j,即 list1 中 有10列分別為:1,3,6,10,15,21,28,36,45,55
高安網(wǎng)站制作公司哪家好,找成都創(chuàng)新互聯(lián)!從網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)公司等網(wǎng)站項(xiàng)目制作,到程序開發(fā),運(yùn)營維護(hù)。成都創(chuàng)新互聯(lián)于2013年成立到現(xiàn)在10年的時(shí)間,我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn),來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選成都創(chuàng)新互聯(lián)。
下面又來了一個(gè)循環(huán), list1.removeitem 刪除列,刪除的是 list1.listcount - i ,list1.listcount 就是總列數(shù)為10,減去 i ,i 是1到4,即10-1,9-2,8-3,7-4 每減掉一次,list1.listcount 就少了一條記錄。
(注意,list1.listcount-1 是最后一條記錄)
減掉了第 9,7,5,3列
剩余為 1,3,6,15,28,45
結(jié)果為:3,15,28
'ListCount返回列表框中的項(xiàng)目總數(shù)
'ListCount-1是列表框中最后一個(gè)項(xiàng)目的索引號(hào)
'虧你提醒了,我寫錯(cuò)了,上面修改了,第一個(gè)索引為0,最后一個(gè)為9.
'也就是,問題所問的第二列的索引為1,第四列的索引為3...
用ListView的方法比較簡單,直接添加一個(gè)控件順便把0001寫到Tag屬性里去就行了。如果只用ListBox的話,
先創(chuàng)建一個(gè)類代表城市
Public Class City
Public Name As String
Public Num As String
Public Sub New(na As String, nu As String)
Name = na
Num = nu
End Sub
Public Overrides Function ToString() As String 'ListBox需要這個(gè)函數(shù)來顯示
Return Name
End Function
End Class
然后把這個(gè)類的實(shí)例添加進(jìn)去即可,比如:
ListBox1.Items.Add(New City("北京", "0001"))
讀取的話就很簡單,比如我要讀第一項(xiàng)
Dim obj = ListBox1.Items(0)
If TypeOf obj Is City Then
Dim c As City = obj
'c.Name就是"北京",c.Num就是"0001"了
End If
遍歷之類的可以靈活使用,你也可以在類里面加些其它內(nèi)容。
數(shù)組好像沒有快速賦值吧,或者你再把問題再清楚一點(diǎn)。
語句執(zhí)行時(shí)間倒是可以做到。在語句前
Dim oldTime As Date = Now
在過程語句后加
Dim newTime As Date = Now
Dim differenceInSeconds As Long = DateDiff(DateInterval.Second, oldTime, newTime)
textbox1.text= "共用了:" differenceInSeconds "秒!"
使用動(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