1.     否则如果(zf1<>zf2)为真,则
  2.         （VBScript语句） zf=zf1&zf2
  3.         （VBScript语句） is2=InStr(dan(0),zf)
  4.         如果表达式 (is2>0) 为真,则
  5.             （VBScript语句） jguo=Left(dan(0),2):weizhi=1
  6.         否则
  7.             （VBScript语句） is2=InStr(dan(1),zf)
  8.             如果表达式 (is2>0) 为真,则
  9.                 （VBScript语句） jguo=Left(dan(1),2):weizhi=2
  10.             否则
  11.                 （VBScript语句） is2=InStr(dan(2),zf)
  12.                 如果表达式 (is2>0) 为真,则
  13.                     （VBScript语句） jguo=Left(dan(2),2):weizhi=3
  14.                 否则
  15.                     （VBScript语句） is2=InStr(dan(3),zf)
  16.                     如果表达式 (is2>0) 为真,则
  17.                         （VBScript语句） jguo=Left(dan(3),2):weizhi=4
  18.                     否则
  19.                         （VBScript语句） is2=InStr(dan(4),zf)
  20.                         如果表达式 (is2>0) 为真,则
  21.                             （VBScript语句） jguo=Left(dan(4),2):weizhi=5
  22.                         否则
  23.                             （VBScript语句） is2=InStr(dan(5),zf)
  24.                             如果表达式 (is2>0) 为真,则
  25.                                 （VBScript语句） jguo=Left(dan(5),2):weizhi=6
  26.                             否则
  27.                                 //只识别了一位zf1
  28.                                 （VBScript语句） is2=InStr(dan(2),zf1)
  29.                                 如果表达式 (is2>0) 为真,则
  30.                                     （VBScript语句） jguo=Left(dan(2),2):weizhi=3
  31.                                 否则
  32.                                     （VBScript语句） is2=InStr(dan(4),zf1)
  33.                                     如果表达式 (is2>0) 为真,则
  34.                                         （VBScript语句） jguo=Left(dan(4),2):weizhi=5
  35.                                     否则
  36.                                         （VBScript语句） is2=InStr(dan(3),zf1)
  37.                                         如果表达式 (is2>0) 为真,则
  38.                                             （VBScript语句） jguo=Left(dan(3),2):weizhi=4
  39.                                         否则
  40.                                             （VBScript语句） is2=InStr(dan(1),zf1)
  41.                                             如果表达式 (is2>0) 为真,则
  42.                                                 （VBScript语句） jguo=Left(dan(1),2):weizhi=2
  43.                                             否则
  44.                                                 （VBScript语句） is2=InStr(dan(5),zf1)
  45.                                                 如果表达式 (is2>0) 为真,则
  46.                                                     （VBScript语句） jguo=Left(dan(5),2):weizhi=6
  47.                                                 否则
  48.                                                     （VBScript语句） is2=InStr(dan(0),zf1)
  49.                                                     如果表达式 (is2>0) 为真,则
  50.                                                         （VBScript语句） jguo=Left(dan(0),2):weizhi=1
  51.                                                     否则
  52.                                                         //只识别了一位zf2
  53.                                                         （VBScript语句） is2=InStr(dan(2),zf2)
  54.                                                         如果表达式 (is2>0) 为真,则
  55.                                                             （VBScript语句） jguo=Left(dan(2),2):weizhi=3
  56.                                                         否则
  57.                                                             （VBScript语句） is2=InStr(dan(4),zf2)
  58.                                                             如果表达式 (is2>0) 为真,则
  59.                                                                 （VBScript语句） jguo=Left(dan(4),2):weizhi=5
  60.                                                             否则
  61.                                                                 （VBScript语句） is2=InStr(dan(3),zf2)
  62.                                                                 如果表达式 (is2>0) 为真,则
  63.                                                                     （VBScript语句） jguo=Left(dan(3),2):weizhi=4
  64.                                                                 否则
  65.                                                                     （VBScript语句） is2=InStr(dan(1),zf2)
  66.                                                                     如果表达式 (is2>0) 为真,则
  67.                                                                         （VBScript语句） jguo=Left(dan(1),2):weizhi=2
  68.                                                                     否则
  69.                                                                         （VBScript语句） is2=InStr(dan(5),zf2)
  70.                                                                         如果表达式 (is2>0) 为真,则
  71.                                                                             （VBScript语句） jguo=Left(dan(5),2):weizhi=6
  72.                                                                         否则
  73.                                                                             （VBScript语句） is2=InStr(dan(0),zf2)
  74.                                                                             如果表达式 (is2>0) 为真,则
  75.                                                                                 （VBScript语句） jguo=Left(dan(0),2):weizhi=1
  76.                                                                             否则
  77.                                                                                 （VBScript语句） jguo=Left(dan(2),2):weizhi=3
  78.                                                                                 //连一个都找不对就默认答案3
  79.                                                                             条件结束
  80.                                                                         条件结束
  81.                                                                     条件结束
  82.                                                                 条件结束
  83.                                                             条件结束
  84.                                                         条件结束
  85.                                                         //
  86.                                                     条件结束
  87.                                                 条件结束
  88.                                             条件结束
  89.                                         条件结束
  90.                                     条件结束
  91.                                 条件结束
  92.                             条件结束
  93.                         条件结束
  94.                     条件结束
  95.                 条件结束
  96.             条件结束
  97.         条件结束
  98.     条件结束
  99. 条件结束
  100. 子程序结束,回到调用处