向数组中插入元素求详解
时间:2011-12-18
来源:互联网
             学习vb过程中 向数组插入元素有点弄不明白
原理是先排序现在的数组,然后插入新元素对比大小排序
源码中先定义数组下标10
然后是俩个for循环来对比大小
for 1 to 8
for 1 to 9
完整源码现在想不起来了,就是在这个地方有点想不明白
元素是11个,为什么循环对比时是1to8 1 to 9
求完整源码带详细解释
            原理是先排序现在的数组,然后插入新元素对比大小排序
源码中先定义数组下标10
然后是俩个for循环来对比大小
for 1 to 8
for 1 to 9
完整源码现在想不起来了,就是在这个地方有点想不明白
元素是11个,为什么循环对比时是1to8 1 to 9
求完整源码带详细解释
作者: csKongKong 发布时间: 2011-12-18
             这个是什么代码?
最原始的排序数组
sub SortArr(a() as long)
dim mIdx as long
dim i as long
dim j as long
dim mMin as long
mIdx=ubound(a)
for i=0 to mIdx
for j=i+1 to mIdx
if a(i)>a(j) then
mMin=a(j)
a(j)=a(i)
a(i)=aMin
end if
next
next
end sub
            最原始的排序数组
sub SortArr(a() as long)
dim mIdx as long
dim i as long
dim j as long
dim mMin as long
mIdx=ubound(a)
for i=0 to mIdx
for j=i+1 to mIdx
if a(i)>a(j) then
mMin=a(j)
a(j)=a(i)
a(i)=aMin
end if
next
next
end sub
作者: worldy 发布时间: 2011-12-18
 相关阅读 更多  
      
    热门阅读
-   office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具 office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具阅读:74 
-   如何安装mysql8.0 如何安装mysql8.0阅读:31 
-   Word快速设置标题样式步骤详解 Word快速设置标题样式步骤详解阅读:28 
-   20+道必知必会的Vue面试题(附答案解析) 20+道必知必会的Vue面试题(附答案解析)阅读:37 
-   HTML如何制作表单 HTML如何制作表单阅读:22 
-   百词斩可以改天数吗?当然可以,4个步骤轻松修改天数! 百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!阅读:31 
-   ET文件格式和XLS格式文件之间如何转化? ET文件格式和XLS格式文件之间如何转化?阅读:24 
-   react和vue的区别及优缺点是什么 react和vue的区别及优缺点是什么阅读:121 
-   支付宝人脸识别如何关闭? 支付宝人脸识别如何关闭?阅读:21 
-   腾讯微云怎么修改照片或视频备份路径? 腾讯微云怎么修改照片或视频备份路径?阅读:28 















