十年網站開發(fā)經驗 + 多家企業(yè)客戶 + 靠譜的建站團隊
量身定制 + 運營維護+專業(yè)推廣+無憂售后,網站問題一站解決
結構體無法初始化值,你可以用類實現(xiàn),或者寫一個構造函數,把值傳進去。
港北網站制作公司哪家好,找創(chuàng)新互聯(lián)!從網頁設計、網站建設、微信開發(fā)、APP開發(fā)、成都響應式網站建設公司等網站項目制作,到程序開發(fā),運營維護。創(chuàng)新互聯(lián)自2013年創(chuàng)立以來到現(xiàn)在10年的時間,我們擁有了豐富的建站經驗和運維經驗,來保證我們的工作的順利進行。專注于網站建設就選創(chuàng)新互聯(lián)。
Public Structure wheelmodel
Public ID As Short
Public swapway() As Short
Public start As Short
Public Sub New(ByVal Size As UShort) 'Size就是傳入的數組的大小
swapway = New Short(Size) {}
End Sub
End Structure
調用的時候:
Dim x As wheelmodel = New wheelmodel(10)
因為下標從零開始。
shuzu 元素分別是 shuzu(0)、shuzu(1)、shuzu(2)、shuzu(3)。
你自己數一數有幾個。
你是不是應該對最大值和最小值賦初值(比如把 r(1) 賦給最大值和最小值)呢?不然最小值默認初始值是‘0’,后面的判斷就不起作用了。你可以加個斷點試試,他們的初始值是多少。。。
Dim a(3, 3, 3)
Dim b(3, 3), c(3, 3), d(3, 3)
Private Sub aaa()
' 對數組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
你說的是指定4還是指定6???
如果是指定4,Private s(4) As String 即可,不過注意下標是0-3。
后面那個6在vb.net里面是沒有必要指定的。
dim a(x to n,m to i) 就是定義了個有(n-m+1)*(i-m+1)個元素的數組其他一維和多維的類似