比较大小

Cls

Font.Size=24

Dim n as integer


dim sierdum(15) as integer

n=1

while n<=15

sierdun(n)=int(rnd*1000)

n=n+1

wend

dim swap as integer

m=1

while m<=14

n=1

while n<=15-m

if ierdun(n<sierdun(n+1) then

swap=sierdun(n)

sierdun(n)=sierdun(n+1)

sierdun(n+1)=swap

end if

n=n+1

wend

m=m+1

wend

n=1

while n<=15

print sierdun(n)

n=n+1

wend

end  sub

丢掉手机不知道还会多少,,,,,


评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值