VB做 鍵盤輸入三個數(shù)，按由大到小順序輸出。

private

創(chuàng)新互聯(lián)公司自2013年創(chuàng)立以來，先為興平等服務(wù)建站，興平等地企業(yè)，進行企業(yè)商務(wù)咨詢服務(wù)。為興平企業(yè)網(wǎng)站制作PC+手機+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

sub

command1_click()

dim

a

as

long,

b

as

long,

c

as

long

a

=

inputbox("請輸入第1個數(shù)的值",

"提示")

b

=

inputbox("請輸入第2個數(shù)的值",

"提示")

c

=

inputbox("請輸入第3個數(shù)的值",

"提示")

d

=

iif(iif(a

b,

a,

b)

c,

iif(a

b,

a,

b),

c)

x

=

iif(iif(a

b,

a,

b)

c,

iif(a

b,

a,

b),

c)

z

=

a

+

b

+

c

-

d

-

x

cls

print

a

"

,

"

b

"

,

"

c

"按從大到小排列為"

d

"

"

z

"

"

x

end

sub

==============================

如果是vb.net

，可以用math類的max，min方法，呵

vb 由大到小與由小到大排序代碼解釋

Private Sub Command1_Click()

Dim a As Integer 定義a變量為整型變量

Dim b As Integer 定義b變量為整型變量

Dim c As Integer 定義c變量為整型變量

Dim m As Integer 定義m變量為整型變量，用作比較時的臨時變量

Label3.Caption = Val(Text1.Text) 將Text1錄入的值顯示到Label3

Label4.Caption = Val(Text2.Text) 將Text2錄入的值顯示到Label4

Label5.Caption = Val(Text3.Text) 將Text3錄入的值顯示到Label5

a = Val(Text1.Text) 將Text1錄入的值賦給變量a

b = Val(Text2.Text) 將Text2錄入的值賦給變量b

c = Val(Text3.Text) 將Text3錄入的值賦給變量c

If a b Then m = a: a = b: b = m

比較a，b的值，如果ab，則a,b互換，變量m起到臨時存放數(shù)值的作用，

If a c Then m = a: a = c: c = m

比較a，c的值，如果ac，則a,c互換

If b c Then m = b: b = c: c = m

比較b，c的值，如果bc，則b,c互換

Label7.Caption = a " " b " " c

在Label7上顯示由大到小的三個數(shù)值

End Sub

由小到大：

Private Sub Command1_Click()

Dim a As Integer 定義a變量為整型變量

Dim b As Integer 定義b變量為整型變量

Dim m As Integer 定義c變量為整型變量

a = Val(Text1.Text)將Text1錄入的值賦給變量a

b = Val(Text2.Text)將Text2錄入的值賦給變量b

Label4.Caption = Val(Text1.Text) 將Text1錄入的值顯示到Label4

Label5.Caption = Val(Text2.Text) 將Text2錄入的值顯示到Label5

If a b Then m = a: a = b: b = m

比較a，b的值，如果ab，則a,b互換，變量m起到臨時存放數(shù)值的作用，

Label6.Caption = a " " b

在Label6上顯示由小到大的兩個數(shù)值

End Sub

求10個數(shù)按照從大到小的順序排列 要求用插入、選擇兩種方法 vb.net程序 （控制臺應(yīng)用程序）

'選擇法

Private Sub Command9_Click()

Me.Cls '創(chuàng)建Text1,輸入10組數(shù)據(jù),用空格分開之

Dim i, j, Maxid As Integer, Max, k(0 To 9), tmp As Single, f() As String

f() = Split(Trim(Text1), " ")

If UBound(f) 9 Then Exit Sub

For i = 0 To 9

k(i) = CSng(f(i))

Next i

For i = 0 To 9

Max = k(0)

Maxid = 0

k(0) = k(9 - i)

For j = 0 To (8 - i)

If k(j) Max Then

tmp = Max

Max = k(j)

k(j) = tmp

Maxid = j

End If

Next j

Print Max;

Next i

End Sub

'====================================================

'插入法

'創(chuàng)建控件Command5,Text3,在Text3中輸入若干組數(shù)據(jù),并用空格分開各組數(shù)據(jù)

Text3 = Trim(Text3)

Dim f() As String, tmp As Single, i As Single, j As Single

f = Split(Text3, " ")

If UBound(f) = 0 Then Exit Sub

ReDim h(0 To UBound(f) - 1) As String

For i = 0 To UBound(f)

For j = i To UBound(f)

If CSng(f(j)) CSng(f(i)) Then

tmp = f(i)

f(i) = f(j)

f(j) = tmp

End If

Next j

Next i

Text3 = ""

For i = 0 To UBound(f)

Text3 = Text3 CSng(f(i))

If i UBound(f) Then Text3 = Text3 " "

Next i

編寫一個 VB.NET 程序,產(chǎn)生 100 個 100 以內(nèi)的隨機數(shù)，將他們從大到小排序后輸出

Private Sub Command1_Click()

Dim a(1 To 100) As Integer

Dim i As Integer, j As Integer, k As Integer

For i = 1 To 100 '給數(shù)組a一百個元素賦值，并換每行十個數(shù)字輸出來窗體上

a(i) = Int(Rnd * 101)

k = k + 1

Print Tab((k - 1) * 5); a(i);

If k = 10 Then k = 0: Print

Next i

Print

Print

For i = 100 To 2 Step -1 '用冒泡排序法對數(shù)組進行排序

For j = 1 To i - 1

If a(j) a(j + 1) Then

t = a(j): a(j) = a(j + 1): a(j + 1) = t

End If

Next j

Next i

For i = 1 To 100 '輸出排好序的數(shù)組

k = k + 1

Print Tab((k - 1) * 5); a(i);

If k = 10 Then k = 0: Print

Next i

End Sub

vb編程提問：鍵盤輸入三個數(shù)，按由大到小順序輸出。

Private

Sub

Command1_Click()

Dim

a

As

Long,

b

As

Long,

c

As

Long

a

=

InputBox("請輸入第1個數(shù)的值",

"提示")

b

=

InputBox("請輸入第2個數(shù)的值",

"提示")

c

=

InputBox("請輸入第3個數(shù)的值",

"提示")

d

=

IIf(IIf(a

b,

a,

b)

c,

IIf(a

b,

a,

b),

c)

x

=

IIf(IIf(a

b,

a,

b)

c,

IIf(a

b,

a,

b),

c)

z

=

a

+

b

+

c

-

d

-

x

Cls

Print

a

"

,

"

b

"

,

"

c

"按從大到小排列為"

d

"

"

z

"

"

x

End

Sub

==============================

如果是VB.net

，可以用math類的MAX，MIN方法，呵

求vb.net(vb2010)程序代碼 產(chǎn)生30個50以內(nèi)的隨機正整數(shù)，將他們從大到小排序后輸出

vb2010寫的：

Private?Sub?Button7_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button7.Click

Dim?str?As?String?=?""

Dim?a(30)?As?Integer

Dim?temp?As?Integer

str?=?str??"生成的30個隨機數(shù)字是?"??vbCrLf

For?i?=?1?To?30

a(i)?=?Int(Rnd()?*?50?+?1)

str?=?str??a(i)??"?"

If?i?Mod?10?=?0?Then

str?=?str??vbCrLf

End?If

Next

str?=?str??vbCrLf

For?i?=?1?To?30

For?j?=?1?To?30?-?i

If?a(j)??a(j?+?1)?Then

temp?=?a(j?+?1)

a(j?+?1)?=?a(j)

a(j)?=?temp

End?If

Next?j

Next?i

str?=?str??"排序后的數(shù)字是?"??vbCrLf

For?i?=?1?To?30

str?=?str??a(i)??"?"

If?i?Mod?10?=?0?Then

str?=?str??vbCrLf

End?If

Next

TextBox6.Text?=?str

End?Sub

運行結(jié)果：

生成的30個隨機數(shù)字是

36 27 29 15 16 39 1 39 41 36

3 21 44 40 19 49 44 3 48 19

27 39 3 30 24 15 32 33 14 14

排序后的數(shù)字是

49 48 44 44 41 40 39 39 39 36

36 33 32 30 29 27 27 24 21 19

19 16 15 15 14 14 3 3 3 1

當(dāng)前標(biāo)題：vb.net從大到小排列,vb從大到小排序
網(wǎng)頁URL：http://jinyejixie.com/article26/dsseecg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供軟件開發(fā)、品牌網(wǎng)站設(shè)計、網(wǎng)站收錄、小程序開發(fā)、關(guān)鍵詞優(yōu)化、

廣告

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