很久以前写的了，用Midi的API函数来实现以前QBasic中的Play语句，控制符实现可能还不完善，感觉演奏的还是有些问题，懒得弄了，发出来吧。希望有人可以接着完善一下，关于Play语句可以参考一下这个https://www.cnblogs.com/djcsch2001/articles/1965318.html 用法，Play "ABCDEFGAB" 下边是这个bas模块文件的代码，例程代

QBasic 提示：此条目的主题不是QuickBASIC。 QBasic是BASIC（Beginner's All-purpose Symbolic Instruction Code，初學者通用指令代碼）語言的一個變種，由美國微軟公司開發，1991年隨MS-DOS 5.0推出。它不能被編譯成獨立的可執行文件，來源代碼在整合開發環境（IDE）中先被編譯成中間代碼，然後中間代碼在IDE中被解析後執

Qbasic鸡兔同笼问题 Qbasic编程：关于鸡兔同笼问题1 “鸡兔同笼问题”是我国古算书《孙子算经》中著名的数学问题，其内容是：“今有雉（鸡）兔同笼，上有三十五头，下有九十四足。问雉兔各几何。” h = 35f = 94Y = (f - 2 * h) / 2x = (4 * h - f) / 2PRINT "cock="; x, "rabbit="; YEND 这是在网上找

2014年的12月29日，写了个VBS脚本，计算还需要连胜多少把才能让自己的胜率提升1%： 这个脚本的地址在：http://my.oschina.net/Tsybius2014/blog/362078 结果后来连着输了几把，胜率掉了1%（汗）。正好昨天看了下QBasic，就用QBasic写段代码计算一下吧 我的编码环境为：编译器为Win32下的FreeBasic（版本1.00.0），IDE为FB