Dim a(3, 3, 3)

創(chuàng)新互聯(lián)于2013年創(chuàng)立,先為黃巖等服務(wù)建站,黃巖等地企業(yè),進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為黃巖企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問(wèn)題。
Dim b(3, 3), c(3, 3), d(3, 3)
Private Sub aaa()
' 對(duì)數(shù)組a(3,3,3)賦值
For i = 1 To 3
For j = 1 To 3
b(i, j) = a(1, i, j)
Next
Next
For i = 1 To 3
For j = 1 To 3
c(i, j) = a(2, i, j)
Next
Next
For i = 1 To 3
For j = 1 To 3
d(i, j) = a(3, i, j)
Next
Next
End Sub
沒(méi)錯(cuò)!!
你的算法是:
1.定義三個(gè)變量,minValue(放最小值),X(放最小值的X坐標(biāo)),Y(放最小值的Y坐標(biāo))。
2.遍歷矩陣。在遍歷過(guò)程中將最小值放在minValue中,最小值的X坐標(biāo)放在X中,最小值的Y坐標(biāo)放在X中。
'這是在vb6中的代碼,在vb.net中基本差不多,你可以參考一下
Private Sub cmdCommand1_Click()
Me.AutoRedraw = True
Dim Grp
Grp = Array(1, 2, 3, 4, 5)
Dim i, j As Long
Dim StrPrt As String
For i = 0 To UBound(Grp)
'i為位移量
StrPrt = ""
For j = i To UBound(Grp)
StrPrt = StrPrt Grp(j)
Next j
For j = 0 To i - 1
StrPrt = StrPrt Grp(j)
Next j
Me.Print StrPrt
Next i
End Sub
猜你這代碼是從vb6.0轉(zhuǎn)過(guò)來(lái)的吧?那時(shí)候還用的是控件數(shù)組?在vb.net里面你要用
AddHandler 控件.事件, Address Of 對(duì)應(yīng)方法來(lái)注冊(cè)事件
然后點(diǎn)擊才會(huì)生效,方法里面的sender as Label就是點(diǎn)擊的控件
名稱(chēng)欄目:vb.net數(shù)組矩陣 vb variant 數(shù)組
文章路徑:http://chinadenli.net/article14/doghhge.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供商城網(wǎng)站、網(wǎng)站制作、云服務(wù)器、自適應(yīng)網(wǎng)站、網(wǎng)站維護(hù)、網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)