1. 子程序结束,回到调用处
  2. 子程序 B
  3.     dim XX(350),YY(350)
  4.     (VBScript语句) XX(1)=452:YY(1)=245
  5.     (VBScript语句) XX(2)=453:YY(2)=245
  6.     (VBScript语句) XX(3)=454:YY(3)=245
  7.     (VBScript语句) XX(4)=455:YY(4)=245
  8.     (VBScript语句) XX(5)=456:YY(5)=245
  9.     (VBScript语句) XX(6)=457:YY(6)=245
  10.     (VBScript语句) XX(7)=458:YY(7)=245
  11.     (VBScript语句) XX(8)=459:YY(8)=245
  12.     (VBScript语句) XX(9)=460:YY(9)=245
  13.     (VBScript语句) XX(10)=461:YY(10)=245
  14.     (VBScript语句) XX(11)=462:YY(11)=245
  15.     (VBScript语句) XX(12)=463:YY(12)=245
  16.     (VBScript语句) XX(13)=464:YY(13)=245
  17.     (VBScript语句) XX(14)=465:YY(14)=245
  18.     (VBScript语句) XX(15)=466:YY(15)=245
  19.     (VBScript语句) XX(16)=455:YY(16)=246
  20.     (VBScript语句) XX(17)=456:YY(17)=246
  21.     (VBScript语句) XX(18)=457:YY(18)=246
  22.     (VBScript语句) XX(19)=458:YY(19)=246
  23.     (VBScript语句) XX(20)=465:YY(20)=246
  24.     (VBScript语句) XX(21)=466:YY(21)=246
  25.     (VBScript语句) XX(22)=467:YY(22)=246
  26.     (VBScript语句) XX(23)=468:YY(23)=246
  27.     (VBScript语句) XX(24)=455:YY(24)=247
  28.     (VBScript语句) XX(25)=456:YY(25)=247
  29.     (VBScript语句) XX(26)=457:YY(26)=247
  30.     (VBScript语句) XX(27)=458:YY(27)=247
  31.     (VBScript语句) XX(28)=467:YY(28)=247
  32.     (VBScript语句) XX(29)=468:YY(29)=247
  33.     (VBScript语句) XX(30)=469:YY(30)=247
  34.     (VBScript语句) XX(31)=455:YY(31)=248
  35.     (VBScript语句) XX(32)=456:YY(32)=248
  36.     (VBScript语句) XX(33)=457:YY(33)=248
  37.     (VBScript语句) XX(34)=458:YY(34)=248
  38.     (VBScript语句) XX(35)=468:YY(35)=248
  39.     (VBScript语句) XX(36)=469:YY(36)=248
  40.     (VBScript语句) XX(37)=470:YY(37)=248
  41.     (VBScript语句) XX(38)=455:YY(38)=249
  42.     (VBScript语句) XX(39)=456:YY(39)=249
  43.     (VBScript语句) XX(40)=457:YY(40)=249
  44.     (VBScript语句) XX(41)=458:YY(41)=249
  45.     (VBScript语句) XX(42)=468:YY(42)=249
  46.     (VBScript语句) XX(43)=469:YY(43)=249
  47.     (VBScript语句) XX(44)=470:YY(44)=249
  48.     (VBScript语句) XX(45)=455:YY(45)=250
  49.     (VBScript语句) XX(46)=456:YY(46)=250
  50.     (VBScript语句) XX(47)=457:YY(47)=250
  51.     (VBScript语句) XX(48)=458:YY(48)=250
  52.     (VBScript语句) XX(49)=468:YY(49)=250
  53.     (VBScript语句) XX(50)=469:YY(50)=250
  54.     (VBScript语句) XX(51)=470:YY(51)=250
  55.     (VBScript语句) XX(52)=455:YY(52)=251
  56.     (VBScript语句) XX(53)=456:YY(53)=251
  57.     (VBScript语句) XX(54)=457:YY(54)=251
  58.     (VBScript语句) XX(55)=458:YY(55)=251
  59.     (VBScript语句) XX(56)=468:YY(56)=251
  60.     (VBScript语句) XX(57)=469:YY(57)=251
  61.     (VBScript语句) XX(58)=470:YY(58)=251
  62.     (VBScript语句) XX(59)=471:YY(59)=251
  63.     (VBScript语句) XX(60)=455:YY(60)=252
  64.     (VBScript语句) XX(61)=456:YY(61)=252
  65.     (VBScript语句) XX(62)=457:YY(62)=252
  66.     (VBScript语句) XX(63)=458:YY(63)=252
  67.     (VBScript语句) XX(64)=468:YY(64)=252
  68.     (VBScript语句) XX(65)=469:YY(65)=252
  69.     (VBScript语句) XX(66)=470:YY(66)=252
  70.     (VBScript语句) XX(67)=471:YY(67)=252
  71.     (VBScript语句) XX(68)=455:YY(68)=253
  72.     (VBScript语句) XX(69)=456:YY(69)=253
  73.     (VBScript语句) XX(70)=457:YY(70)=253
  74.     (VBScript语句) XX(71)=458:YY(71)=253
  75.     (VBScript语句) XX(72)=468:YY(72)=253
  76.     (VBScript语句) XX(73)=469:YY(73)=253
  77.     (VBScript语句) XX(74)=470:YY(74)=253
  78.     (VBScript语句) XX(75)=455:YY(75)=254
  79.     (VBScript语句) XX(76)=456:YY(76)=254
  80.     (VBScript语句) XX(77)=457:YY(77)=254
  81.     (VBScript语句) XX(78)=458:YY(78)=254
  82.     (VBScript语句) XX(79)=468:YY(79)=254
  83.     (VBScript语句) XX(80)=469:YY(80)=254
  84.     (VBScript语句) XX(81)=470:YY(81)=254
  85.     (VBScript语句) XX(82)=455:YY(82)=255
  86.     (VBScript语句) XX(83)=456:YY(83)=255
  87.     (VBScript语句) XX(84)=457:YY(84)=255
  88.     (VBScript语句) XX(85)=458:YY(85)=255
  89.     (VBScript语句) XX(86)=468:YY(86)=255
  90.     (VBScript语句) XX(87)=469:YY(87)=255
  91.     (VBScript语句) XX(88)=470:YY(88)=255
  92.     (VBScript语句) XX(89)=455:YY(89)=256
  93.     (VBScript语句) XX(90)=456:YY(90)=256
  94.     (VBScript语句) XX(91)=457:YY(91)=256
  95.     (VBScript语句) XX(92)=458:YY(92)=256
  96.     (VBScript语句) XX(93)=467:YY(93)=256
  97.     (VBScript语句) XX(94)=468:YY(94)=256
  98.     (VBScript语句) XX(95)=469:YY(95)=256
  99.     (VBScript语句) XX(96)=455:YY(96)=257
  100.     (VBScript语句) XX(97)=456:YY(97)=257