Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
讓客戶滿意是我們工作的目標,不斷超越客戶的期望值來自于我們對這個行業的熱愛。我們立志把好的技術通過有效、簡單的方式提供給客戶,將通過不懈努力成為客戶在信息化領域值得信任、有價值的長期合作伙伴,公司提供的服務項目有:域名注冊、虛擬空間、營銷軟件、網站建設、廣元網站維護、網站推廣。
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
'''這個函數功能就是用來把數組轉為string的格式'''如byte()={1,2,3,4,5,6}轉化后變為",1,2,3,4,5,6,"Function ByteArrayToString(bytes() As Byte) As String Dim s As String = "" For i As Integer = 0 To bytes.Length s = Convert.ToString(bytes(i)) "," Next Return “," sEnd Function Sub Search()Dim a as byte()={1,2,3,4,5,6}
Dim b as byte()={2,3,4}
Dim astr As String = ByteArrayToString(a)Dim bstr As String = ByteArrayToString(b)Dim index As Integer = astr.IndexOf(bstr) '這個index就是b數組在a數組的位置,下標從0開始,不過記得處理下逗號,因為這時候是字符串。'''如果index小于0說明沒有匹配內容End Sub 現在說明下ByteArrayToString為什么要在字符串開頭加個",",如果不加,可能出現a="1,23,4,5,6,", b="3,4,5,",結果導致查詢位置錯誤,匹配了a的位置
先把strA排序,
ind = 2
if len(strA) = 0 then return
strB(1) = strA(1)
for each s in strA
if (strA(ind) strA(ind - 1) then
count = 0
strB(ind) = strA(ind)
else
strB(ind) = strA(ind - 1)
end if
ind = ind + 1
next s
vb語法忘了。。。大概是這么個意思吧。。。。 排序N LOG N,后面是線性的N,所以總共是NLOGN
array(2,2)是多維數組的訪問方式,其數組的定義和初始化方法為:
Dim?array?As?Integer(,)?=?{{1,?2,?3},?{4,?5,?6}}
每一行的元素數量是固定且相等的。
array(2)(2)是交錯數組(即數組的數組)的訪問方式。也就是,你有一個數組,這個數組的每個元素也是數組。其數組的定義和初始化方法為:
Dim?array?As?Integer()()?=?{New?Integer()?{1,?2,?3},?New?Integer()?{4,?5,?6,?7,?8}}
由于每個元素是獨立的數組,所以交錯數組每一行的元素數量不固定,且可以不等。
新建一個類,然后使用類的實例來創建數組。
下面代碼放在申明處,類的里面,比如Class Form1的下面
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘(分隔線,你懂的)’’’’’’’’’’’’’’’’’’’’’
Dim person() As New member
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘(分隔線,你懂的)’’’’’’’’’’’’’’’’’’’’’
下面一段的在該文件的最下面插入
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘(分隔線,你懂的)’’’’’’’’’’’’’’’’’’’’’
Class member
Dim name As string
Dim male As Boolean '這里True表示男,False表示女
Dim age As Integer
Dim birthym As Long
End Class
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘(分隔線,你懂的)’’’’’’’’’’’’’’’’’’’’’
然后如果你想要調用一個年齡,比如第一個人的,就用
person(0).age
來表示
That's all
你只是定義了一個對象,類而已
首先要給對象設置變量,這個還不是數組
Public class As Single的class 應該是關鍵字請換一個名字
Dim KidsX(1 to 100) as kids
KidsX(1).classx=1
KidsX(1).grade=1
KidsX(1).name=”張某"
KidsX(2).classx=1
KidsX(2).grade=2
KidsX(2).name=”王某"
……
分享標題:vb.net數組交集,c語言數組交集與并集
網站網址:http://m.kartarina.com/article22/hdopcc.html
成都網站建設公司_創新互聯,為您提供、自適應網站、微信公眾號、建站公司、Google、網站內鏈
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯