Public tempdata() As Long 
 Public NumBase(5) As Long '基数 
 Public NumUnit(4) As Long '每单位对应的16进制数 
 Public NumUnitPrice(4) As Long '每单位对于的10进制数,已被从元为单位扩大1000倍 
 Public Type tempFSTrecord '每一条记录的长度为26字节: 
   FSTtime As Integer 
   price As Long 
   avgPrice As Long 
   changor As Integer 
   unUse0 As Integer 
   unUse1 As Long 
   unUse2 As Long 
   unUse3 As Long 
 End Type 
 Function LoadFSTdata(ByVal filename As String, fst() As FSTrecord) '240个分记录,26个字节一个记录,6508字节一天 
   Dim ifile As Integer, i As Integer, j As Integer 
   Dim TFR As tempFSTrecord 
   Dim fileP As Long 
   Dim lenDayFST As Long: longDayFST = 6508 
   Dim lenminuteFST As Long: lenminuteFST = 26 
   ifile = FreeFile 
   Open filename For Binary As ifile 
   'LoadFSTdata = (LOF(ifile) - 8) / 26 - 10 
   LoadFSTdata = LOF(ifile) / 6508 
  
   ReDim fst(1 To LoadFSTdata, 239) 
   ReDim tempdata(1 To LoadFSTdata) 
   ReDim tempMidprice(1 To LoadFSTdata) 
   ReDim fstMaxPrice(1 To LoadFSTdata) 
   For j = 1 To LoadFSTdata 
     Get ifile, 1 + (j - 1) * longDayFST, tempdata(j) 
     Get ifile, 5 + (j - 1) * longDayFST, tempMidprice(j) 
     fstMaxPrice(j) = 0 
     For i = 0 To 239 
       fileP = (j - 1) * longDayFST + i * lenminuteFST + 8 + 1 
       Get ifile, fileP, TFR 
       fst(j, i).FSTtime = TFR.FSTtime + 1 'fst(i).FSTtime = TimeSerial(0, TFR.FSTtime + 1, 0) 
       fst(j, i).price = TFR.price 
       fst(j, i).avgPrice = TFR.avgPrice 
       fst(j, i).changor = TFR.changor 
       If Abs(TFR.price - tempMidprice(j)) > fstMaxPrice(j) Then 
          fstMaxPrice(j) = Abs(TFR.price - tempMidprice(j)) 
       End If 
     Next i 
   Next j 
   Close ifile 
 End FunctionFunction getRealPrice(formerPrice As Long) As Long  '注意移植此函数是要把公共变量NumBase预NumUnit移动移植 
  Dim i As Integer 
   For i = 1 To 4                 '该函数可返回32元人民币以下对于的准确价格 
    If formerPrice  < NumBase(i) Then 
     getRealPrice = (Val((formerPrice - NumBase(i - 1)) & "000") / NumUnit(i - 1)) + NumUnitPrice(i - 1) 
     Exit For                  ' & 000 相当于 * 1000,以‰为单位 
    End If 
   Next i 
 End Function 
 Public Sub main() 
   NumBase(0) = 1065353216: NumBase(1) = 1082130432: NumBase(2) = 1090519040: NumBase(3) = 1098907648: NumBase(4) = 1109655552 ': NumBase(5) = 1118830592 
   NumUnit(0) = 4194304: NumUnit(1) = 2097152: NumUnit(2) = 1048576: NumUnit(3) = 524288 ': NumUnit(4) = 262144 
   NumUnitPrice(0) = 0: NumUnitPrice(1) = 4000: NumUnitPrice(2) = 8000: NumUnitPrice(3) = 16000 ': NumUnitPrice(4) = 32000 
   readZST.Show'由这个窗体去调用以