你的顺序错了,
数组已经定义过了,不允许重复定义.

应该是这样的结构

dim....
cls
...$()=....
...$()=....

do
  print....
  input....
  select case...
  case...
     for...
     next
  .....
loop
还有return是多余的.

DIM asuree$(1 TO 23)

asuree$(1) = "O3L2EO2L4GO3L4E"
asuree$(2) = "O3L4DCO2L4BO3L4C"
asuree$(3) = "O3L2FF"
asuree$(4) = "O3L2FO2L2G"
asuree$(5) = "O3L2EO2L4G+O3L4E"
asuree$(6) = "O3L4DCO2L4BO3L4C"
asuree$(7) = "O3L2DD"
asuree$(8) = "O3L2DD+"
asuree$(9) = "O3L2EO2L4GO3L4E"
asuree$(10) = "O3L4DCO2L4BO3L4C"
asuree$(11) = "O3L2AA"
asuree$(12) = "O3L2AO3L4GF"
asuree$(13) = "O3L2EO3L4DC"
asuree$(14) = "O2L2AB"
asuree$(15) = "O3L1C"
asuree$(16) = "O3L4EO2L8GO3L8EO3L8DCO2L8BO3L8C"
asuree$(17) = "O3F8E8D8C8O2B8A8G8F8"
asuree$(18) = "O3L4EO2L8G+O3L8EO3L8DCO2L8BO3L8C"
asuree$(19) = "O3D8C8O2B8A8G8F8E8D8"
asuree$(20) = "O3L4EO2L8GO3L8EO3L8DCO2L8BO3L8C"
asuree$(21) = "O3A8G8F8ED8O2G8O3G8F8"
asuree$(22) = "O3E4D8C8O2A4B4"
asuree$(23) = "O3C1"

DIM asd$(24 TO 43)
asd$(24) = "O2C4 O2C4E4G4O3C2E8D8"
asd$(25) = "O3C4O2E4F+4G2G8G8"
asd$(26) = "O3E.D8C4O2B2A8B8"
asd$(27) = "O3C4O3C4O2G4E4O2C2O2G.E16"
asd$(28) = "O2C4E4G4O3C2E8D8"
asd$(29) = "O3C4O2E4F+4G2G8G8"
asd$(30) = "O3E.D8C4O2B2A8B8"
asd$(31) = "O3C4O3C4O2G4E4O2C4O3E8E8"
asd$(32) = "O3E4F4G4G2"
asd$(33) = "O3F8E8D4E4F4F2"
asd$(34) = "O3F8F8O3E.D8O3C4"
asd$(35) = "O2B2A8B8"
asd$(36) = "O3C4O2E4F+4G2"
asd$(37) = "O2G8G8O3C4C4"
asd$(38) = "O3C8O2B8A4A4A4"
asd$(39) = "O3D4F8E8D8O3C8"
asd$(40) = "O3C4O2B2P8O2G8G8"
asd$(41) = "O3C.D8E8F8"
asd$(42) = "O3G4O4C2P8O3C8D8"
asd$(43) = "T80O3E.F8D4O3C2"

DIM jkl$(44 TO 124)
jkl$(44) = "t85p8l8o1mlao2c32o1b-16b-32mna"
jkl$(45) = "o2mla2mnaffgmlf64g64f16f32mne"
jkl$(46) = "mlb-2mnb-o1b-mlb-mnamlo2c+mneggmlfmnc+"
jkl$(47) = "mlemndmld64e64d64p64msl16c+de"
jkl$(48) = "mnf8mlo1a8"
jkl$(49) = "l8o1mlo2c32o1b-16b-32mna"
jkl$(50) = "o2mla2mnaffgmlf64g64f16f32mne"
jkl$(51) = "mlb-2mnb-o1b-mlb-mnamlo2dmnc+mlg4.mnemlemnd"
jkl$(52) = "mld64e64d16d32c+mnd4p4"
       
jkl$(53) = "t85l24mlo2c4cegb-o3cmneg16.mlf32mne16.d32mlc8mno2b-8"
jkl$(54) = "mlb-8mna8mla64b-64a32a8mng+16a4p4"
jkl$(55) = "mlo1a4ao2c+egamno3c+e8c+8mla8mno2a8mlo3e8mnd8"
jkl$(56) = "mll16d64e64d32c+dmnef4f4"
jkl$(57) = "mlf4o2b-4t78l36b-p36o3efed+efel12gfmne"
jkl$(58) = "mle8mno2a8mla4mna8l16mlg+mnab-at70mlo3c16.mnt75o2b-32"
jkl$(59) = "t78mll16o2b-64o3c64o2b-32aa64b-64a32mng"
jkl$(60) = "mlg64a64g32ff64g64f32mne"
jkl$(61) = "t76mla4.mnt74e8mlt71e8mnd8mlt67d64e64d32d16mnc+8d4p4"
       
jkl$(62) = "t85l24mlo2c4cegb-o3cmneg16.mlf32mne16.d32mlc8mno2b-8"
jkl$(63) = "mlb-8mna8mla64b-64a32a8mng+16a4p4"
jkl$(64) = "mlo1a4ao2c+egamno3c+e8c+8mla8mno2a8mlo3e8mnd8"
jkl$(65) = "mll16d64e64d32c+dmnef4f4"
jkl$(66) = "mlf4o2b-4t78l36b-p36o3efed+efel12gfmne"
jkl$(67) = "mle8mno2a8mla4mna8l16mlg+mnab-at70mlo3c16.mnt75o2b-32"
jkl$(68) = "t78mll16o2b-64o3c64o2b-32aa64b-64a32mng"
jkl$(69) = "mlg64a64g32ff64g64f32mne"
jkl$(70) = "t76mla4.mnt74e8mlt71e8mnd8mlt67d64e64d32d16mnc+8d4p4"

jkl$(71) = "t170o3msl8do4dp8o3b-p8ap8femnd4msc+mld4mndp8"
jkl$(72) = "l16defedefedefedefdmnf8e4msd+8mle4mne8p8"
jkl$(73) = "gab-agab-agab-agb-agfgagfgagfgagfagf"
jkl$(74) = "o2abo3c+defgab-agfedc+emne8d4msc+8"
jkl$(75) = "mnd4p4"
       
jkl$(76) = "t170o3msl8do4dp8o3b-p8ap8femnd4msc+mld4mndp8"
jkl$(77) = "l16defedefedefedefdmnf8e4msd+8mle4mne8p8"
jkl$(78) = "gab-agab-agab-agb-agfgagfgagfgagfagf"
jkl$(79) = "o2abo3c+defgab-agfedc+emne8d4msc+8"
jkl$(80) = "mnd4p4"
       
jkl$(81) = "t170mll16o3c64d64c64mso2bo3cegb-ge"
jkl$(82) = "mll16o3c64d64c64mso2bo3cegb-ge"
jkl$(83) = "o2b-ab-o3cdefgmla4mna8p8"
jkl$(84) = "mlo2b-64a32msg+ao3c+egec+"
jkl$(85) = "mlo2b-64a32msg+ao3c+egec+"
jkl$(86) = "mlo2b-64a32msg+abo3c+dedmlf4mnf8p8"
jkl$(87) = "msb-agab-agab-agab-agb-agfgagfgagfgagfa"
jkl$(88) = "mno2abo3c+defgab-agfedc+emse8mnd4msc+8mnd4p4"
       
jkl$(89) = "t170mll16o3c64d64c64mso2bo3cegb-ge"
jkl$(90) = "mll16o3c64d64c64mso2bo3cegb-ge"
jkl$(91) = "o2b-ab-o3cdefgmla4mna8p8"
jkl$(92) = "mlo2b-64a32msg+ao3c+egec+"
jkl$(93) = "mlo2b-64a32msg+ao3c+egec+"
jkl$(94) = "mlo2b-64a32msg+abo3c+dedmlf4mnf8p8"
jkl$(95) = "msb-agab-agab-agab-agb-agfgagfgagfgagfa"
jkl$(96) = "mno2abo3c+defgab-agfedc+emse8mnd4msc+8mnd4p4"

jkl$(97) = "t105mno4l16d4o3a8.a16mlb8mna8mlg8mnf+8"
jkl$(98) = "mlf+8mne8t210mle32f+32e64e64e64p64t105mnd+egb2"
jkl$(99) = "l8mlb.mnc+16mlc+mno4emle.mno3g16gmsgmlgmnf+"
jkl$(100) = "t210mlf+32g32f+64f+64f+64t105mne16d16e16f+2"
jkl$(101) = "mno4l16d4o3a8.a16mlb8mna8mlg8mnf+8"
jkl$(102) = "mlf+8mne8t210mle32f+32e64e64e64p64t100mnd+egb2"
jkl$(103) = "l8o4mld.mno3a16aamlbmnaac+mlemndmld64e64d32d32d64p64msc+mnd4p4"

jkl$(104) = "t95o5mnl8d4o4a.a16mlbmnamlgmnf+mlf+mnemlemngb2"
jkl$(105) = "b.msa16mnaamlo5c+mno4bmlamngmlgmnf+mlf+mnff+2"
jkl$(106) = "o5mnl8d4o4a.a16mlbmnamlgmnf+mlf+mnemlemngb2"
jkl$(107) = "o5d4o4a.msa16mlt92bmnamlt90amnc+mlt86emndmldmnc+d2"

jkl$(108) = "t170mll16o3c64d64c64mso2bo3cegb-ge"
jkl$(109) = "mll16o3c64d64c64mso2bo3cegb-ge"
jkl$(110) = "o2b-ab-o3cdefgmla4mna8p8"
jkl$(111) = "mlo2b-64a32msg+ao3c+egec+"
jkl$(112) = "mlo2b-64a32msg+ao3c+egec+"
jkl$(113) = "mlo2b-64a32msg+abo3c+dedmlf4mnf8p8"
jkl$(114) = "msb-agab-agab-agab-agb-agfgagfgagfgagfa"
jkl$(115) = "o2abo3c+defgab-ag+ag+abo4c+mnd8p8p4p2"

jkl$(116) = "t170o3mnd8o4d4o3b4a4f+8mse8mnd4msc+8mld4mnd8p8"
jkl$(117) = "l16msdef+edef+edef+edef+dmnf+8e4msd+8mle4mne8p8"
jkl$(118) = "msgabagabagabagbagf+gagf+gagf+gagf+gaf+"
jkl$(119) = "ef+g+f+ef+g+f+mnef+gf+ef+g+e"
jkl$(120) = "a8a4a4a4o2a8"

jkl$(121) = "t170o3mnd8o4d4o3b4a4f+8mse8mnd4msc+8mld4mnd8p8"
jkl$(122) = "l16msdef+edef+edef+edef+dmnf+8e4msd+8mle4mne8p8"
jkl$(123) = "l16gabagabagabagbagf+gagf+gagf+gagf+gaf+ed+ef+gf+ga"
jkl$(124) = "mlbmnag+ag+abo4c+o4d4p4o3t160a4p4o2d2"

CLS

DO
  PRINT "1. Celebration"
  PRINT "2. Star Spangled Banner"
  PRINT "3. CZARDAS Dance Music"
  PRINT "4. END the program"

  INPUT "Which song would you like to play(1-4)"; Songs

    SELECT CASE Songs
    CASE 1
      FOR I = 1 TO 23
          PLAY asuree$(I)
      NEXT I
    CASE 2
      FOR J = 24 TO 43
          PLAY asd$(J)
      NEXT J
    CASE 3
      FOR Y = 44 TO 124
          PLAY jkl$(Y)
      NEXT Y
    CASE 4
      END
    END SELECT
LOOP