摘要：
'定义变量 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... 阅读全文
摘要：
简单冒泡排序: 阅读全文
摘要：
数组内容双位数排序: 数组内容不同位数升序: a.sort()方法 sort方法还有两个可选参数：key和reverse key在使用时必须提供一个排序过程中调用的方法 reverse实现同位数降序排序，需要提供一个布尔值： 阅读全文
摘要：
Dim fso,f,a set oExcel = CreateObject( "Excel.Application" ) oExcel.Visible = false '4) 打开已存在的工作簿： oExcel.WorkBooks.Open( "F:\1.xlsx" ) On Error Resume Next '判断是否存在Sheet2工作表,不存在新建 If oExcel.Wor... 阅读全文