您的位置：程序门 -> vb -> 基础类



排序的基础问题


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


排序的基础问题
发表于：2007-04-24 19:51:50 楼主
private   sub   command1_click（)

dim   f（)   as   integer,   i   as   integer,   j   as   integer,   z   as   integer,   n   as   integer
n   =   inputbox（ "请输入工件个数 ")
redim   f（n)   as   integer
for   i   =   1   to   n
      f（i)   =   inputbox（ "输入第 "   &   i   &   "个工件用时 ")
          print   f（i);   '分号使数字显示在一行
          next   i
          print   '增加一行
     
print   "排序结果 "
    for   i   =   1   to   n
      for   j   =   i   +   1   to   n
        if   f（i)   <   f（j)   then   z   =   f（i):   f（i)   =   f（j):   f（j)   =   z
      next   j
      print   i;
    next   i
    print
end   sub
我想同时显示输入数值的先后顺序，如何实现？
比如，f（1)=100,f（2)=1,f（3)=14,
显示出   1，100   3，14   2，1
麻烦啦

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击