码迷,mamicode.com
首页 > 编程语言 > 详细

VBS 数组冒泡排序

时间:2017-08-26 17:07:55      阅读:155      评论:0      收藏:0      [点我收藏+]

标签:next   blog   color   数组   div   vbs   for   pre   log   

 

 

定义变量
Dim arr1
数组赋值
arr1 = array(3, 6, 8, 7, 1, 2, 9,10)
For m = 0 To UBound(arr1)
    For i = m+1 To UBound(arr1)
        k=arr1(m)
        If arr1(m) < arr1(i) Then 
            arr1(m) = arr1(i)
            arr1(i) = k
        End If
    Next
    msgbox arr1(m)
Next

 

VBS 数组冒泡排序

标签:next   blog   color   数组   div   vbs   for   pre   log   

原文地址:http://www.cnblogs.com/liuliu-word/p/7435606.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!