VB.NET 2維數(shù)組排序排序和賦值問題

窗體上添加3個(gè)標(biāo)簽，1個(gè)按鈕，在按鈕的單擊事件里寫代碼，如下：

成都創(chuàng)新互聯(lián)是一家成都網(wǎng)站建設(shè)、成都做網(wǎng)站，提供網(wǎng)頁設(shè)計(jì)，網(wǎng)站設(shè)計(jì)，網(wǎng)站制作，建網(wǎng)站，按需策劃，網(wǎng)站開發(fā)公司，2013年開創(chuàng)至今是互聯(lián)行業(yè)建設(shè)者，服務(wù)者。以提升客戶品牌價(jià)值為核心業(yè)務(wù)，全程參與項(xiàng)目的網(wǎng)站策劃設(shè)計(jì)制作，前端開發(fā)，后臺程序制作以及后期項(xiàng)目運(yùn)營并提出專業(yè)建議和思路。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a(,) As Integer = {{5, 6}, {1, 3}, {8, 9}, {72, 1}, {63, 4}}

Dim Temp As Integer

Dim i As Integer

Dim j As Integer

Dim x As Integer

Dim y As Integer

'顯示排序前的數(shù)據(jù)

Label1.Text = "排序前數(shù)據(jù)：" vbCrLf

For i = 0 To 4

Label1.Text = Label1.Text a(i, 0) " " a(i, 1) vbCrLf

Next

For i = 0 To 3

For j = i + 1 To 4

If a(i, 0) a(j, 0) Then

Temp = a(i, 0)

a(i, 0) = a(j, 0)

a(j, 0) = Temp

Temp = a(i, 1)

a(i, 1) = a(j, 1)

a(j, 1) = Temp

End If

Next

Next

'顯示排序前的數(shù)據(jù)

Label2.Text = "排序后數(shù)據(jù)：" vbCrLf

For i = 0 To 4

Label2.Text = Label2.Text a(i, 0) " " a(i, 1) vbCrLf

Next

'把第3行元素賦予X,Y

x = a(2, 0)

y = a(2, 1)

'輸出X,Y

Label3.Text = "X=" x vbCrLf "Y=" y

End Sub

vb.net如何刪除TXT末尾空白行

思路與方法：

1，一行為讀取單位，讀取并保存到數(shù)組。

2，逆序循環(huán)，可以獲得末尾空白行數(shù)。

3，以行為寫單位，寫入到文件。

vb.net 數(shù)組怎么自動定義維數(shù)

動態(tài)數(shù)組一般開始不能直接寫dim a as string。除非Variant。一般先定義類型 但是數(shù)組名后得加上括號。例如

DIM a() AS STRING

后面根據(jù)需要使用的時(shí)候，可以自己定義大小。但是必須注意一點(diǎn)。重新定義的時(shí)候，

Redim a(11) 的時(shí)候，就會將原來的數(shù)組元素清空了，沒有保存。

Redim Preserve a(11) 就會將重新定義數(shù)組大小的同時(shí)，還將原來的數(shù)據(jù)保存了。

VB.NET數(shù)組問題（！！！！！！！求助！！！！！！！！！）

Dim a(3, 3, 3)

Dim b(3, 3), c(3, 3), d(3, 3)

Private Sub aaa()

' 對數(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

VB.NET數(shù)組或數(shù)組列表

Dim TestItem() As String = New String() {"Pickle", "Pineapple", "Papaya"} '創(chuàng)建數(shù)組 并賦值

Dim TestShoppingList As String = Join(TestItem, " = ") 'Join 就是字符聯(lián)接函數(shù) 后面的 =號 可選 為空值就把所有的字符串在一起 本例用=號 就是把 所有數(shù)組的值用 =號聯(lián)接起來

MsgBox(TestShoppingList) '顯示結(jié)果值

'這例子 就一個(gè)函數(shù)可以解決 就不發(fā)圖片了

希望能幫到你 你慢慢研究吧 有問題可以找我

看到的 愛好者 多頂我一下 謝謝呵呵

vb.net 對象數(shù)組

你只是定義了一個(gè)對象，類而已

首先要給對象設(shè)置變量，這個(gè)還不是數(shù)組

Public class As Single的class 應(yīng)該是關(guān)鍵字請換一個(gè)名字

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=”王某"

……

標(biāo)題名稱：vb.net數(shù)組末位 vb數(shù)組下界
網(wǎng)頁地址：http://www.chinadenli.net/article24/dooeije.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供服務(wù)器托管、微信公眾號、網(wǎng)站內(nèi)鏈、、標(biāo)簽優(yōu)化、域名注冊

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)