vb.net大小排序,vb 排序

VB.NET中，比较四个数字的大小 代码

用不到2个命令按钮 1个就够

创新互联公司拥有网站维护技术和项目管理团队，建立的售前、实施和售后服务体系，为客户提供定制化的成都网站设计、做网站、网站维护、服务器机柜租用解决方案。为客户网站安全和日常运维提供整体管家式外包优质服务。我们的网站维护服务覆盖集团企业、上市公司、外企网站、商城网站制作、政府网站等各类型客户群体，为全球1000多家企业提供全方位网站维护、服务器维护解决方案。

在按钮的过程中写如下代码

dim x as long , y as long ,z as long ,j as long ,n as long

dim k as integer

x = val(text1.text)

y = val(text2.text)

z = val(text3.text)

j = val(text4.text)

if x = then k = k+1

if y= then k = k+1

if z= then k = k+1

if j= then k = k+1

' 若输入的数有负数 则必须先在这里写下 n=-.....（）

do

if x 0 and n = x then

text5.text = text5.text " " x

k = k +1

end if

if y 0 and n = then

text5.text = text5.text " " y

k = k +1

end if

if z 0 and n = z then

text5.text = text5.text " " z

k = k +1

end if

if j 0 and n = j then

text5.text = text.text " " j

k = k +1

end if

if k = 4 then exit for

n=n+1

loop

这是VB的代码。。。。 不知道.net 适用不

vB.net语言编写N个数字数组排序可自定义数组长度的

Dim d() As Integer

Dim n As Integer

Dim i As Integer

Dim j As Integer

Dim T As Integer

n = Val(InputBox("请输入n，确定数组的元素个数"))

ReDim d(n)

'用随机函数生成正整数数组

Randomize

For i = 1 To n

d(i) = Int(Rnd * 100 + 1)

Next i

'输出

Print

For i = 1 To n

Print d(i),

Next i

'从小到大排序

For i = 1 To n - 1

For j = i + 1 To n

If d(i) d(j) Then

T = d(i)

d(i) = d(j)

d(j) = T

End If

Next j

Next i

'输出

Print

For i = 1 To n

Print d(i),

Next i

求vb.net(vb2010)程序代码 产生30个50以内的随机正整数，将他们从大到小排序后输出

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个随机数字是 "  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  "排序后的数字是 "  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

运行结果：

生成的30个随机数字是

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

排序后的数字是

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

VB.NET 2维数组排序排序和赋值问题

窗体上添加3个标签，1个按钮，在按钮的单击事件里写代码，如下：

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

'显示排序前的数据

Label1.Text = "排序前数据：" 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

'显示排序前的数据

Label2.Text = "排序后数据：" 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 程序,产生 100 个 100 以内的随机数，将他们从大到小排序后输出

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 '给数组a一百个元素赋值，并换每行十个数字输出来窗体上

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 '用冒泡排序法对数组进行排序

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 '输出排好序的数组

k = k + 1

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

If k = 10 Then k = 0: Print

Next i

End Sub

vb.net的随机3个数字，然后排序一下

给你一个最简单的冒泡排序代码：

将三个数放到一个数组中。

a(0)=val(text1.text):a(1)=val(text2.text):a(2)=val(text3.text)

dim flag as Boolean,temp as Integer

for i = 0 to 2

flag = true

for j = 2 to 1

if a(j)a(j-1) then

temp = a(j-1)

a(j-1) = a(j)

a(j) = temp

flag = false

end if

next j

if flag then Exit For

next i

text4.text=a(0):text5.text=a(1):text6.text=a(2)