当前位置 :
1.任意给10个数,要求从小到大排序,并输出这10个数.
更新时间:2024-04-24 20:27:19
1人问答
问题描述:

1.任意给10个数,要求从小到大排序,并输出这10个数.

胡道中回答:
  PrivateSubForm_Click()   DimA(10)AsInteger,IAsInteger   DimJAsInteger,TMAsInteger   Randomize   ForI=1To10   A(I)=Int(90*Rnd)+10   NextI   ForI=1To9   ForJ=I+1To10   IfA(I)>A(J)Then   TM=A(I)   A(I)=A(J)   A(J)=TM   EndIf   NextJ   NextI   ForI=1To10   PrintA(I)   NextI   EndSub
其它推荐
最新更新
优秀其它推荐
查询网(ip1138.com)汇总了汉语字典,新华字典,成语字典,组词,词语,在线查字典,中文字典,英汉字典,在线字典,康熙字典等等,是学生查询学习资料的好帮手,是老师教学的好助手。
声明:本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。

邮箱:  联系方式:

Copyright©2009-2021 查询网 ip1138.com 版权所有 闽ICP备2021002823号-3