vb.net中 listbox內(nèi)所有數(shù)據(jù)的和

Dim?a(14)?As?Integer

我們擁有十載網(wǎng)頁設(shè)計(jì)和網(wǎng)站建設(shè)經(jīng)驗(yàn)，從網(wǎng)站策劃到網(wǎng)站制作，我們的網(wǎng)頁設(shè)計(jì)師為您提供的解決方案。為企業(yè)提供網(wǎng)站設(shè)計(jì)制作、網(wǎng)站設(shè)計(jì)、微信開發(fā)、小程序定制開發(fā)、手機(jī)網(wǎng)站開發(fā)、H5開發(fā)、等業(yè)務(wù)。無論您有什么樣的網(wǎng)站設(shè)計(jì)或者設(shè)計(jì)方案要求，我們都將富于創(chuàng)造性的提供專業(yè)設(shè)計(jì)服務(wù)并滿足您的需求。

For?i?=?1?To?14

a(i)?=?Int(Rnd()?*?90)?+?10

ListBox1.Items.Add(a(i))

Next

Dim?b(14)?As?Integer

Dim?sum?As?Integer?=?0

For?i?=?1?To?14

b(i)?=?ListBox1.Items.Item(i?-?1)

sum?=?sum?+?b(i)

Next

Dim?avg?As?Double

avg?=?sum?/?14

MsgBox(avg)

我寫的可以，你可以把代碼貼出來看看

vb.net在數(shù)組定義中如何使用復(fù)合數(shù)據(jù)類型

你可以用結(jié)構(gòu)數(shù)組的,如下:

...

Private Structure test

Dim name As String

Dim sex As String

Dim age As Integer

Dim salary As Integer

End Structure

Dim list(2) As test

Private Sub insert()

list(0).name = "張三"

list(0).age = "20"

list(0).salary = "1500"

list(0).sex = "男"

list(1).name = "李四"

list(1).age = "21"

list(1).salary = "1500"

list(1).sex = "女"

End Sub

...

你可以放到main()里輸出一下，就是這樣...

VB.NET 找出數(shù)組中相同的元素，并按相同元素排序到另外一個(gè)數(shù)組中。

先把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語法忘了。。。大概是這么個(gè)意思吧。。。。 排序N LOG N，后面是線性的N，所以總共是NLOGN

關(guān)于對(duì)象數(shù)組VB.NET的

你雖然定義了數(shù)組，但是數(shù)組中的hhh并沒有初始化。

比如你要使用b(0)，就得先 b(0) = New hhh()

如果全部要初始化，可以用循環(huán)

vb.net 怎么把數(shù)據(jù)庫數(shù)據(jù)一條記錄存入數(shù)組啊 最好給出代碼

Dim da As New DataTable

Dim myda As OleDb.OleDbDataAdapter("SELECT * FROM 表“, oconnection)

myda.Fill(da)

姓名=da.Rows(0)(0) ‘張三

姓名=da.Rows(1)(0) ‘李四

姓名=da.Rows(2)(0) ‘王五

姓名=da.Rows(3)(0) ‘趙六

姓名=da.Rows(4)(0) ‘劉琦

這個(gè)不一定要用數(shù)組，直接用table就可以操作了。