任意几个数大小排序

最新推荐文章于 2020-06-21 22:01:09 发布

原创最新推荐文章于 2020-06-21 22:01:09 发布 · 491 阅读

0 ·

CC 4.0 BY-SA版权

本文提供了一个使用Visual Basic编写的简单排序算法示例。该示例首先通过随机方式生成一个整数数组，然后采用冒泡排序的方法对其进行排序，并打印排序后的结果。此代码适用于初学者了解基本的数组操作及排序算法。

Option Base 1

Private Sub Command1_Click()

Cls
Dim n As Integer
Dim size As Integer
size = Int(Val(Me.Text1.Text))
Dim wzs() As Integer

ReDim wzs(size)

n = LBound(wzs)
While n <= UBound(wzs)
wzs(n) = Int(Rnd * 1000)
n = n + 1
Wend

Dim swap As Integer
m = LBound(wzs)
While m <= UBound(wzs) - 1
n = LBound(wzs)
While n <= UBound(wzs) - m
If wzs(n) < wzs(n + 1) Then
swap = wzs(n)
wzs(n) = wzs(n + 1)
wzs(n + 1) = swap
End If
n = n + 1
Wend
m = m + 1
Wend

n = LBound(wzs)
While n <= UBound(wzs)
Print wzs(n)
n = n + 1
Wend