CLS
    DIM WAVEAV(501),AUN(501),AUK(501),MIDAUN(501),MIDAUK(501)

    FOR I=1 TO 112
        READ WAVEAV(I),AUN(I),AUK(I)
    NEXT I
DATA 1000,1.200,0.836,1100,1.222,0.900,1200,1.260,0.962,1300,1.308,1.020
DATA 1400,1.360,1.072,1500,1.419,1.102,1600,1.483,1.106,1700,1.519,1.070
DATA 1800,1.470,1.085,1900,1.427,1.135,2000,1.427,1.215,2101,1.430,1.334
DATA 2214,1.442,1.418,2339,1.462,1.510,2431,1.478,1.590,2530,1.490,1.698
DATA 2638,1.546,1.784,2755,1.648,1.852,2883,1.742,1.900,2952,1.766,1.918
DATA 3024,1.812,1.920,3100,1.830,1.916,3179,1.840,1.904,3263,1.624,1.878
DATA 3351,1.798,1.860,3444,1.766,1.846,3542,1.740,1.848,3647,1.716,1.862
DATA 3757,1.696,1.906,3875,1.674,1.936,4000,1.658,1.956,4133,1.636,1.958
DATA 4275,1.616,1.940,4428,1.562,1.904,4959,1.916,1.840,5166,0.608,2.120
DATA 5391,0.402,2.540,5636,0.306,2.880,6526,0.166,3.150,6888,0.160,3.800
DATA 7293,0.164,4.350,7749,0.174,4.860,8266,0.188,5.390,8856,0.210,5.880
DATA 9537,0.236,6.470,10330,0.272,7.07,11270,0.312,7.93,12400,0.372,8.77
DATA 12650,0.389,8.09,12910,0.403,8.25,13190,0.419,8.42,13840,0.436,8.59
DATA 14090,0.473,8.96,14420,0.493,9.15,14760,0.515,9.36,15120,0.537,9.58
DATA 15500,0.559,9.81,15900,0.583,10.1,16310,0.609,10.3,16750,0.636,10.6
DATA 17220,0.665,10.9,17710,0.696,11.2,18230,0.730,11.5,18790,0.767,11.9
DATA 19370,0.807,12.2,20000,0.850,12.6,20660,0.896,13.0,21380,0.947,13.4
DATA 22140,1.002,13.9,22960,1.063,14.4,23840,1.130,14.9,24800,1.205,15.5
DATA 25830,1.287,16.1,26950,1.379,16.8,28180,1.482,17.5,29520,1.598,18.3
DATA 31000,1.728,19.2,31790,1.800,19.7,32630,1.876,20.2,33510,1.958,20.7
DATA 34440,2.046,21.3,35420,2.141,21.9,36470,2.242,22.5,37570,2.352,23.1
DATA 38750,2.471,23.9,40000,2.600,24.5,41330,2.749,25.4,42750,2.912,26.3
DATA 44280,3.091,27.2,45920,3.289,28.2,47690,3.507,29.3,49590,3.289,30.5
DATA 51660,4.007,31.7,53910,4.292,32.9,56360,4.611,34.4,59040,4.971,35.9
DATA 61990,5.423,37.5,63580,5.684,38.3,65260,5.966,39.1,67020,6.270,40.1
DATA 68880,6.598,41.0,70850,6.937,42.0,72930,7.282,43.0,75140,7.655,44.1
DATA 77490,8.060,45.2,79990,8.500,46.4,82660,9.016,47.6,85510,9.582,48.8
DATA 88560,10.21,50.2,91840,10.84,51.6,95370,11.51,53.1,99190,12.24,54.7
    RESTORE

    FOR I=1 TO 112
        PRINT WAVEAV(I),AUN(I),AUK(I)
    NEXT I
INPUT SEARCHW

    LET  II=1
    LET JJJJ=0 
        FOR NUMBER=II TO 100 STEP 1
            LET JJJJ=JJJJ+1
            IF SEARCHW<=WAVEAU(1) THEN
               LET MIDAUN(JJJJ)=AUN(1)
               LET MIDAUK(JJJJ)=AUK(1)             
               EXIT FOR
            END IF
            IF SEARCHW=WAVEAU(NUMBER) THEN 
               LET MIDAUN(JJJJ)=AUN(NUMBER)
               LET MIDAUK(JJJJ)=AUK(NUMBER)             
               EXIT FOR
            END IF
            IF SEARCHW<WAVEAU(NUMBER) THEN
               LET LH=(SEARCHW-WAVEAU(NUMBER-1))/(WAVEAV(NUMBER)-WAVEAU(NUMBER-1))
               LET MIDAUN(JJJJ)=AUN(NUMBER-1)+(AUN(NUMBER)-AUN(NUMBER-1))*LH
               LET MIDAUK(JJJJ)=AUK(NUMBER-1)+(AUK(NUMBER)-AUK(NUMBER-1))*LH             
               LET II=NUMBER
               EXIT FOR
            END IF
        NEXT NUMBER
        PRINT SEARCHW,MIDAUN(JJJJ),MIDAUK(JJJJ)

为什么输入一个数后会出现WAVEAU(NUMBER)下脚标超出了范围?请高手指点,谢谢!