1.     循环结束
  2.     注释：上面多乘了16，要去掉
  3.     令 NumOfPart = NumOfPart / 16
  4.     注释： Red + Green*256 + Blue*65536
  5.     根据 PartOfRGB 选择
  6.     情况 1:
  7.         令 NumOfPart = NumOfPart - 65536 * Fix(NumOfPart / 65536)
  8.         注释：去掉Blue色
  9.         令 NumOfPart = NumOfPart - 256 * Fix(NumOfPart / 256)
  10.         注释：去掉Green色
  11.     情况 2:
  12.         令 NumOfPart = NumOfPart - 65536 * Fix(NumOfPart / 65536)
  13.         注释：去掉Blue色
  14.         令 NumOfPart = Fix(NumOfPart / 256)
  15.         注释：得到Green色
  16.     情况 :
  17.         令 NumOfPart = Fix(NumOfPart / 65536)
  18.         注释：得到Blue色
  19.     选择结束
  20.     令 PartNumOfRGB = NumOfPart
  21.     标记 EndOfGetRedOfRGB(函数 PartNumOfRGB)
  22. 函数结束