所以我今天一直在使用QBASIC64 ......看在老学校的份上。
我在想：
a)你写过的最复杂的 QBASIC 代码是什么b)你写过的最有用的代码是
什么
（例子很好但不是必须的^_^ - 这是社区维基，只是为了好玩）
问问题
1141 次
7 回答
7
那些日子 GOTO 过去很容易:-)
于 2010-09-16T13:44:41.997 回答
2
虽然我从未使用过 QBasic（我设法跳过了拥有它的机器的一代），但我确实在其前身 GWBasic 中编写了一个 Z80 汇编程序，以及一些硬件的支持代码，以将生成的机器代码传输到我的测试平台。它肯定很复杂，而且非常混乱和缓慢，但那是因为我不知道更好（当时没有学习任何数据结构和算法类）。
于 2010-09-16T13:44:04.913 回答
2
最复杂的：霍夫曼编码器使用字符串来存储树。我不认为我让它工作。
最有用的：宫殿聊天迷宫编辑器/生成器。
于 2012-03-28T11:56:15.150 回答
1
我从来没有真正了解过 QBasic。这将是因为我不是一个老程序员。我做过的大多数事情（同时适合A)和B)）是制作一个程序，从键盘读取一个数字，然后计算其中的 10%，将其打印到屏幕上。
这一定是在 2000 年，因为澳大利亚正在引入 10% 的消费税。那让我9岁。我记得我花了大约 6 个月的时间寻找一台装有 QBasic 的电脑。
美好的回忆，不那么遥远的过去
于 2010-09-16T13:39:30.573 回答
1
最有用的，也可能是最复杂的：我在 QBasic 中编写了一个测验程序，它支持鼠标、可以单击的图形按钮等。它还使用通用文件格式，因此您可以编写新问题并根据需要加载它们。如果您有兴趣，代码是在线的，但遗憾的是相关的图像/数据/等文件会随着时间丢失： http ://code.google.com/p/justinethier/source/browse/trunk/qbasic_quizzer/project.bas
于 2010-09-19T04:55:51.070 回答
1
a 和 b 的答案：一个程序，用户将在其中输入吉他上的弦名和音品编号，程序将输出音品是哪个音符。顺便说一句，我喜欢 qbasic，因为它的简单性使它变得有趣！
于 2010-11-04T21:26:47.853 回答
1
QBasic 是我第一次接触编程。我九岁（四年级），我们有一台带有 MS-DOS 和 Windows 3.1 的 386DX。
我记得为 Nibbler 和 Gorillas 更改颜色和常量等修改代码很有趣。
所以我制作的最有用和最复杂的程序是一个菜单驱动的应用程序，它向用户询问数学问题：用户可以选择递增的数字难度级别，我记得字面上硬编码了 100 个算术问题，检查用户的反应并告诉他们是否他们弄错与否。
不知道我是否还有那个代码，我想我可能会，今晚我会检查并发布如果我找到它！
...好的！我发现了一些东西。该片段是名为“TEST1.BAS”的文件的一部分，看起来像上述程序的早期版本。我相信我有一个更完整的版本，但是当我们的硬盘崩溃并且我们无法恢复所有文件时它丢失了。
CLS
PRINT
PRINT " menu"
PRINT "--------------"
PRINT "1. level 1"
PRINT "2. level 2"
PRINT "3. level 3"
PRINT "4. level 4"
PRINT "5. level 5"
PRINT "6. level 6"
PRINT "7. level 7"
PRINT "8. level 8"
PRINT "9. level 9"
PRINT "10. level 10"
PRINT "11. OTHER"
PRINT
INPUT "Your selection: ", choice%
PRINT
IF choice% = 1 THEN
CLS
DO
INPUT "what is 4 + 4 ? ", num
LOOP UNTIL num = 8
PRINT
PRINT "correct"
DO
INPUT "what is 8 - 6 ? ", num
LOOP UNTIL num = 2
PRINT
PRINT "correct"
DO
INPUT "what is 8 + 7 ? ", num
LOOP UNTIL num = 15
PRINT
PRINT "correct"
DO
INPUT "what is 9 - 4 ? ", num
LOOP UNTIL num = 5
PRINT
PRINT "correct"
DO
INPUT "what is 6 + 5 ? ", num
LOOP UNTIL num = 11
PRINT
PRINT "correct"
END IF
IF choice% = 2 THEN
CLS
DO
INPUT "what is 11 + 6 ? ", num
LOOP UNTIL num = 17
PRINT
PRINT "correct"
DO
INPUT "what is 21 - 5 ? ", num
LOOP UNTIL num = 16
PRINT
PRINT "correct"
DO
INPUT "what is 2 * 2 ? ", num
LOOP UNTIL num = 4
PRINT
PRINT "correct"
DO
INPUT "what is 14 + 8 ? ", num
LOOP UNTIL num = 22
PRINT
PRINT "correct"
DO
INPUT "what is 17 - 5 ? ", num
LOOP UNTIL num = 12
PRINT
PRINT "correct"
END IF
IF choice% = 3 THEN
END IF
IF choice% = 4 THEN
END IF
IF choice% = 5 THEN
END IF
IF choice% = 6 THEN
END IF
IF choice% = 7 THEN
END IF
IF choice% = 8 THEN
END IF
IF choice% = 9 THEN
END IF
IF choice% = 10 THEN
END IF
于 2011-06-06T20:08:18.700 回答