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

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

创新互联公司-专业网站定制、快速模板网站建设、高性价比东兴网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式东兴网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖东兴地区。费用合理售后完善，十年实体公司更值得信赖。

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

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)

求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 程序,产生 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大到小排序 从小到大排序vb代码
URL分享：http://chengdu.cdxwcx.cn/article/doopdpi.html