1.                 令 Fs = ""
  2.                 令 Fs = Fs & GA(i + 1,j) & GA(i + 2,j)
  3.                 令 Fs = Fs & GA(i,j + 1) & GA(i + 3,j + 1)
  4.                 令 Fs = Fs & GA(i,j + 2) & GA(i + 3,j + 2)
  5.                 令 Fs = Fs & GA(i + 1,j + 3) & GA(i + 2,j + 3)
  6.                 如果 Fs = "11111101" 则
  7.                     令 GetNum = 2
  8.                     跳转到标记 EndOfGetNum(函数 GetNum)
  9.                 条件结束
  10.             循环结束
  11.         循环结束
  12.         循环 i 从 1 到 MyXStep
  13.             循环 j 从 1 到 MyYStep
  14.                 注释： 5 的类似C型特征，空处为0/1
  15.                 注释： 11
  16.                 注释： 1
  17.                 注释： 1
  18.                 注释： 111
  19.                 令 Fs = "" & GA(i + 1,j) & GA(i + 2,j)
  20.                 令 Fs = Fs & GA(i,j + 1)
  21.                 令 Fs = Fs & GA(i,j + 2)
  22.                 令 Fs = Fs & GA(i,j + 3) & GA(i + 1,j + 3) & GA(i + 2,j + 3)
  23.                 如果 Fs = "1111111" 则
  24.                     令 GetNum = 5
  25.                     跳转到标记 EndOfGetNum(函数 GetNum)
  26.                 条件结束
  27.             循环结束
  28.         循环结束
  29.         循环 i 从 1 到 MyXStep
  30.             循环 j 从 1 到 MyYStep
  31.                 注释： 1 的类似反I型特征，空处为0/1
  32.                 注释： 1
  33.                 注释：111
  34.                 注释： 1
  35.                 注释： 1
  36.                 注释： 1
  37.                 令 Fs = "" & GA(i + 2,j)
  38.                 令 Fs = Fs & GA(i,j + 1) & GA(i + 1,j + 1) & GA(i + 2,j + 1)
  39.                 令 Fs = Fs & GA(i + 2,j + 2) & GA(i + 2,j + 3) & GA(i + 2,j + 4)
  40.                 如果 Fs = "1111111" 则
  41.                     令 GetNum = 1
  42.                     跳转到标记 EndOfGetNum(函数 GetNum)
  43.                 条件结束
  44.             循环结束
  45.         循环结束
  46.         循环 i 从 1 到 MyXStep
  47.             循环 j 从 1 到 MyYStep
  48.                 注释： 7 的类似T型特征，空处为0/1
  49.                 注释： 111
  50.                 注释：
  51.                 注释：
  52.                 注释：
  53.                 注释： 1
  54.                 注释： 1
  55.                 注释： 1
  56.                 令 Fs = ""
  57.                 令 Fs = Fs & GA(i,j) & GA(i + 1,j) & GA(i + 2,j)
  58.                 令 Fs = Fs & GA(i + 1,j + 4) & GA(i + 1,j + 5) & GA(i + 1,j + 6)
  59.                 如果 Fs = "111111" 则
  60.                     令 GetNum = 7
  61.                     跳转到标记 EndOfGetNum(函数 GetNum)
  62.                 条件结束
  63.             循环结束
  64.         循环结束
  65.     循环结束
  66.     标记 EndOfGetNum(函数 GetNum)
  67. 函数结束
  68. 函数 GetRedOfRGB(MyColor)
  69.     注释：MyColor:16进制6位数,字符型
  70.     定义变量 MyByte
  71.     定义变量 i, NumOfRed
  72.     注释：先将16进制数转换成10进制数
  73.     令 NumOfRed = 0
  74.     循环 i 从 1 到 6
  75.         令 MyByte = Mid(MyColor,i,1)
  76.         根据 MyByte 选择
  77.         情况 "A":
  78.             令 NumOfRed = (NumOfRed + 10) * 16
  79.         情况 "B":
  80.             令 NumOfRed = (NumOfRed + 11) * 16
  81.         情况 "C":
  82.             令 NumOfRed = (NumOfRed + 12) * 16
  83.         情况 "D":
  84.             令 NumOfRed = (NumOfRed + 13) * 16
  85.         情况 "E":
  86.             令 NumOfRed = (NumOfRed + 14) * 16
  87.         情况 "F":
  88.             令 NumOfRed = (NumOfRed + 15) * 16
  89.         情况 :
  90.             令 NumOfRed = (NumOfRed + CInt(MyByte)) * 16
  91.         选择结束
  92.     循环结束
  93.     注释：上面多乘了16，要去掉
  94.     令 NumOfRed = NumOfRed / 16
  95.     注释： Red + Green*256 + Blue*65536
  96.     令 NumOfRed = NumOfRed - 65536 * Fix(NumOfRed / 65536)
  97.     注释：去掉Blue色
  98.     令 NumOfRed = NumOfRed - 256 * Fix(NumOfRed / 256)
  99.     注释：去掉Green色
  100.     令 GetRedOfRGB = NumOfRed