排序

1.打开VB。

2.在左侧工具栏中，选择按钮型图标“CommandButtion”按钮，再往右侧Form1中的空白区域选择任意区域，出现按钮图标后，选中图标，在右下角表格中把“Caption”后面的“Command1”改变成“排序”，双击图标，输入如下：

CLS

ME.FONT.SIZE=70

Dim a As Integer

Dim b As Integer

Dim c As Integer

Dim swap As Integer

 

a= int(rnd * 1000)

b= int(rnd * 1000)

c= int(rnd * 1000)

 

 

if  a<b then

 swap=a

  a=b

 b=swap

end if

if b<c then

 swap=b

 b=c

 c=swap

end if

if  a<b then

 swap=a

  a=b

 b=swap

end if

print a &","&b&",&c

3.点击运行