```
freq = {1, 2^(2/12), 2^(4/12), 2^(5/12), 2^(7/12), 2^(9/12), 2^(11/12), 2};(*定义音符*)
music = {1, 2, 3, 4, 5, 6, 7, 8, 7, 6, 5, 4, 3, 2, 1};(*谱曲*)
Do[Play[Sin[2 Pi*512*t*freq[[music[[i]]]]], {t, 0, 0.8}], {i, 1, Length[music]}]
```
不知为何无法播放出音乐:(

设计如此。Play只创建对象。播放要用EmitSound。
你还要考虑拼接。