假如我现在在后台vba中通过全局变量取得了很多的值，如下 iffactor=Document.Getextdata("iffactor") tffactor=Document.Getextdata("tffactor") agfactor=Document.Getextdata("AGfactor") alfactor=Document.Getextdata("ALfactor") aufactor=Document.Getextdata("AUfactor") buxfactor=Document.Getextdata("BUXfactor") CUfactor=Document.Getextdata("CUfactor") FUfactor=Document.Getextdata("FUfactor") HCfactor=Document.Getextdata("HCfactor") RBfactor=Document.Getextdata("RBfactor") RUfactor=Document.Getextdata("RUfactor") WRfactor=Document.Getextdata("WRfactor") ZNfactor=Document.Getextdata("ZNfactor") AXfactor=Document.Getextdata("AXfactor") Bfactor=Document.Getextdata("Bfactor") BBfactor=Document.Getextdata("BBfactor") Cfactor=Document.Getextdata("Cfactor") CSfactor=Document.Getextdata("CSfactor") FBfactor=Document.Getextdata("FBfactor") Ifactor=Document.Getextdata("Ifactor") Jfactor=Document.Getextdata("Jfactor") JDfactor=Document.Getextdata("JDfactor") JMfactor=Document.Getextdata("JMfactor") Lfactor=Document.Getextdata("Lfactor") Mfactor=Document.Getextdata("Mfactor") Pfactor=Document.Getextdata("Pfactor") PPfactor=Document.Getextdata("PPfactor") Vfactor=Document.Getextdata("Vfactor") Yfactor=Document.Getextdata("Yfactor") CFfactor=Document.Getextdata("CFfactor") FGfactor=Document.Getextdata("FGfactor") GNfactor=Document.Getextdata("GNfactor") LRfactor=Document.Getextdata("LRfactor") NAfactor=Document.Getextdata("NAfactor") MEfactor=Document.Getextdata("MEfactor") OIfactor=Document.Getextdata("OIfactor") PMfactor=Document.Getextdata("PMfactor") RIfactor=Document.Getextdata("RIfactor") RMfactor=Document.Getextdata("RMfactor") ROfactor=Document.Getextdata("ROfactor") RSfactor=Document.Getextdata("RSfactor") SRXfactor=Document.Getextdata("SRXfactor") TAfactor=Document.Getextdata("TAfactor") 就是这些，如果我现在想对这些数值进行排序排出大小，并且得到某一个值是排序。应该怎么写？ |
使用我们的外部对象接口来实现排序
示例
'创建一个Array数组对象并排序
Dim d '创建一个变量
'创建Array外部对象，将对象实例置变量d中
Set d = CreateObject("Stock.Array")
'创建完Array对象后往其内部插入两个数据
d.AddBack(3.25)
d.AddBack(4.33)
d.AddBack(2.02)
'按正序排列数组数据
d.Sort(0)
'依次显示数组对象数据
For i = 0 To 2
MsgBox d.GetAt(i)
Next
set d = nothing