vb.net数字排序 vbs排序

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

Dim d() As Integer

创新互联2013年至今,是专业互联网技术服务公司,拥有项目网站设计制作、网站建设网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元锦江做网站,已为上家服务,为锦江各地企业和个人服务,联系电话:13518219792

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中,如何把listbox中的数值进行排序

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ListBox1.Items.Add("Apple")

ListBox1.Items.Add("Cat")

ListBox1.Items.Add("Yellow")

ListBox1.Items.Add("Guilty")

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ListBox1.Sorted = True

End Sub

End Class

编写一个 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数字排序 vbs排序
文章网址:http://pwwzsj.com/article/ddcsgdg.html