5个随机数排序

一.输出五个随机数

在左侧工具栏中，选择按钮型图标“CommandButton”按钮，再在右侧Form1中空白区域选择大小适宜的区域，出现按钮型图标后，选中图标，在右下角，将表格中“Caption”后面的“Command1”改成“输出”，双击图标，输入如下

Private Sub Command1_Click()

Cls

Dim n As Integer

Dim a(5) As Integer

n = 1

While n <= 5

a(n) = Int(Rnd * 1000)

n = n + 1

Wend

n = 1

While n <= 5

Print a(n)

n = n + 1

Wend

End Sub

二.排序五个随机数

在左侧工具栏中，选择按钮型图标“CommandButton”按钮，再在右侧Form1中空白区域选择大小适宜的区域，出现按钮型图标后，选中图标，在右下角，将表格中“Caption”后面的“Command1”改成“排序”，双击图标，输入如下

Private Sub Command1_Click()

Cls

Dim n As Integer

Dim a(5) As Integer

n = 1

While n <= 5

a(n) = Int(Rnd * 1000)

n = n + 1

Wend

Dim t As Integer, m As Integer

m = 1

While m <= 4

n = 1

While n <= 5 - m

If a(n) < a(n + 1) Then

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

End If

n = n + 1

Wend

m = m + 1

Wend

n = 1

While n <= 5

Print a(n)

n = n + 1

Wend

End Sub