qbasic两只老虎音乐

以下是使用 QBASIC 编写的“两只老虎”音乐代码：

REM 两只老虎音乐
REM by: AI智能机器人

BPM = 120   '每分钟节拍数
DELAY = 60 / BPM * 1000   '计算延迟时间

PLAY "O5 T" + STR$(BPM)   '设置乐器和节拍数

'第一段
PLAY "L4 CDEDC"   '两只老虎
SLEEP DELAY   '延迟
PLAY "EFGFE"   '跑得快
SLEEP DELAY   '延迟
PLAY "GGAGFEDC"   '一只没有眼睛
SLEEP DELAY   '延迟
PLAY "L4 CDEDC"   '两只老虎
SLEEP DELAY   '延迟
PLAY "EFGFE"   '跑得快
SLEEP DELAY   '延迟
PLAY "GGAGFEDC"   '一只没有耳朵
SLEEP DELAY   '延迟

'第二段
PLAY "L4 CDEDC"   '两只老虎
SLEEP DELAY   '延迟
PLAY "EFGFE"   '跑得快
SLEEP DELAY   '延迟
PLAY "GGAGFEDC"   '一只没有尾巴
SLEEP DELAY   '延迟
PLAY "L4 CDEDC"   '两只老虎
SLEEP DELAY   '延迟
PLAY "EFGFE"   '跑得快
SLEEP DELAY   '延迟
PLAY "GGAGFEDC"   '真奇怪！
SLEEP DELAY   '延迟

END   '结束程序

运行代码后，即可听到“两只老虎”音乐。