VB.net 排序

你這個(gè)是冒泡排序么？從大到小么？

我們提供的服務(wù)有：成都做網(wǎng)站、網(wǎng)站建設(shè)、外貿(mào)營(yíng)銷(xiāo)網(wǎng)站建設(shè)、微信公眾號(hào)開(kāi)發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、云安ssl等。為超過(guò)千家企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的云安網(wǎng)站制作公司

For j = 0 To lstNetworkRisk.Items.Count - 1 應(yīng)該改成

For j = i To lstNetworkRisk.Items.Count - 1

另外盡量不要用GOTO語(yǔ)句。而且完全也可以不用這個(gè)GOTO。

還有不知道你用的什么版本的.net 如果是3.5的完全可以直接用linq。

VB.NET中字符串倒序的問(wèn)題

好象有個(gè)StrReverse函數(shù)是直接反轉(zhuǎn)字符串的吧..

我平時(shí)用的是VB6.但是.NET中應(yīng)該也是可以用MID的

你注意看FOR 是從len-1到0的..而mid中是不允許出現(xiàn)0的..

你看看MID運(yùn)行不了時(shí),是不是返回I是0的時(shí)間

改成:

For i = Len(sstr) To 1 Step -1

試試了?

vb.net 排列組合 代碼

第一題:

不需要任何控件,代碼如下:

Private Sub Form_Click()

Dim A() As Integer, N As Integer

Dim St As String, I As Integer, J As Integer

Randomize

Do

St = InputBox("數(shù)字的個(gè)數(shù)", "輸入", Int(Rnd * 100))

If St = "" Then

MsgBox "請(qǐng)輸入數(shù)字!"

Else

N = Int(Val(St))

If N 1 Then

MsgBox "請(qǐng)輸入大于0的數(shù)字!"

Else

Exit Do

End If

End If

Loop

ReDim A(N)

For I = 1 To N

Do

St = InputBox("第" + Str(I) + "個(gè)數(shù)字", "輸入", Int(Rnd * 100))

If St = "" Then

MsgBox "請(qǐng)輸入數(shù)字!"

Else

A(I) = Int(Val(St))

Exit Do

End If

Loop

Next

For I = 1 To N - 1

For J = I + 1 To N

If A(I) A(J) Then

A(0) = A(I)

A(I) = A(J)

A(J) = A(0)

End If

Next

Next

For I = 1 To N

Open App.Path "\" Trim(Str(I)) ".txt" For Output As #1

Print #1, A(I)

Close #1

Next

Print "已經(jīng)把"; N; "個(gè)數(shù)寫(xiě)入到"; App.Path; "\1.txt 到 "; N; ".txt中.請(qǐng)查看."

End Sub

'已經(jīng)運(yùn)行過(guò).

第二題:

DIM 是變量聲明語(yǔ)句,它的格式為:

dim 變量名[as 格式] [,變量名[as 格式][,變量名[as 格式]......]

其中:

變量名:以字母或漢字開(kāi)始的字串,代表一個(gè)變量

格式有以下幾種:

屬于數(shù)字的有五種:

(1)字節(jié)型:byte可取值0-255

(2)整形:integer可取值-32768至32767

(3)長(zhǎng)整形:long(可取值范圍很大的正負(fù)整數(shù))

(4)單精度型:single(可取值小數(shù))

(5)雙精度型:double(可取值范圍更大,小數(shù)位數(shù)更多的小數(shù))

字符串型:string(可代表由字母\數(shù)字或漢字組成的字符集合)

布爾型:boolean(取值為ture\false)

日期型:date(可表示形如2009-5-26 02:36這樣的組合)

如果要用姓名\住址\單位名稱(chēng)...等用字符串型(string)

eg:dim name as string(用name變量表示名字時(shí),聲明成字符串變量)

如果是用數(shù)字需要做計(jì)算,如工資\合計(jì)\人數(shù)....等要用數(shù)字型,但有一個(gè)原則,優(yōu)先選用范圍小的(按照字節(jié)型(byte)\整形(integer)\長(zhǎng)整形(long)\單精度型(single)\雙精度型(double)的順序選擇),夠用就可以了,這樣可以占用內(nèi)存少,運(yùn)算速度快.

eg:dim count as integer(用integer表示員工人數(shù)時(shí),可聲明成整形變量)

eg:dim sum as single(用sum表示工資時(shí),可聲明成單精度型變量)

不知是否說(shuō)得清楚了.

vb.net 如何對(duì)數(shù)據(jù)庫(kù)查詢結(jié)果記錄集排序？

加了單引號(hào)就是一個(gè)常量字符串了，對(duì)于每一行都是一樣的

像這種放在最前面的字段，order by 1 就可以了