神奇的声音程序 刘友生 1997-01-01   三声爆竹,接着响起了电话铃声,随着三声警报声,救护车风驰电掣驶过。照样输入下面的程序,并运行,你会体会到声音语句的神奇魔力,如果在游戏中使用,效果一定不错。该程序用QBASIC编写,在多种机型上调试通过。        #2  爆竹声   FOR K=1 TO 3   FOR i=2805 TO 1360 STEP -30               SOUND i,.6   NEXT i   NEXT K   '电话铃声   FOR i=1 TO 15   SOUND 1200,2:SOUND 300,1   FOR K=1 TO 2500:NEXT   NEXT         #2  警报声   CLS   FOR K=1 TO 3   FOR i=1 TO 5                      SOUND 900,2          NEXT i          FOR i=1 TO 5   SOUND 540,2          NEXT   NEXT K #2  救护车声   FOR j=1 TO 3          FOR i=560 TO 1905 STEP 30   SOUND i,.5          NEXT i          FOR i=1905 TO 560 STEP -30   SOUND i,.8          NEXT i   NEXT j