5个随机数

一.输出五个随机数

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

PrivateSub Command1_Click()

Cls

Dimn As Integer

Dima(5) As Integer

n= 1

Whilen <= 5

a(n)= Int(Rnd * 1000)

n= n + 1

Wend

n= 1

Whilen <= 5

Printa(n)

n= n + 1

Wend

EndSub

 

二.排序五个随机数

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

PrivateSub Command1_Click()

Cls

Dimn As Integer

Dima(5) As Integer

n =1

Whilen <= 5

a(n)= Int(Rnd * 1000)

n= n + 1

Wend

Dimt As Integer, m As Integer

m= 1

Whilem <= 4

n= 1

Whilen <= 5 - m

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

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

EndIf

n= n + 1

Wend

m= m + 1

Wend

n= 1

Whilen <= 5

Printa(n)

n= n + 1

Wend

EndSub