在编程的世界里，共享是一种美德。今天，我将为大家分享一些经过精心编写的Quick Basic（QB）代码片段。这些代码不仅简单易懂，而且功能实用，适合初学者和有一定基础的程序员学习参考。

首先，我们来看一个简单的程序，用于计算两个数的和：

```basic

' 计算两数之和

CLS

PRINT "请输入第一个数字:"

INPUT A

PRINT "请输入第二个数字:"

INPUT B

SUM = A + B

PRINT "两数之和为:"; SUM

END

```

这段代码非常直观，通过`INPUT`语句获取用户输入，并使用`PRINT`语句输出结果。它展示了如何在QB中处理基本的数学运算。

接下来，让我们看一个稍微复杂一点的例子，这个程序可以判断一个年份是否为闰年：

```basic

' 判断闰年

CLS

PRINT "请输入一个年份:"

INPUT YEAR

IF (YEAR MOD 400 = 0) OR ((YEAR MOD 4 = 0) AND (YEAR MOD 100 <> 0)) THEN

PRINT YEAR; "是闰年"

ELSE

PRINT YEAR; "不是闰年"

END IF

END

```

此代码利用了条件判断语句来检查给定的年份是否符合闰年的规则。它结合了模运算和逻辑运算符，展示了QB在条件控制方面的灵活性。

最后，我们来实现一个简单的猜数字游戏：

```basic

' 猜数字游戏

RANDOMIZE TIMER

SECRET = INT(RND 100) + 1

PRINT "我已经想好了一个1到100之间的数字，你能猜出来吗？"

DO

INPUT "请输入你的猜测:", GUESS

IF GUESS < SECRET THEN

PRINT "太小了，请再试一次！"

ELSEIF GUESS > SECRET THEN

PRINT "太大了，请再试一次！"

ELSE

PRINT "恭喜你，猜对了！"

EXIT DO

END IF

LOOP UNTIL GUESS = SECRET

END

```

这个游戏使用了随机数生成器来产生一个秘密数字，并允许玩家多次尝试直到猜中为止。这不仅是一个很好的练习项目，也是一个有趣的小游戏。

以上就是今天分享的一些QB代码示例。希望它们能帮助大家更好地理解和掌握QB编程技巧。记住，编程不仅仅是编写代码，更是一种解决问题的方式。不断实践和探索新的想法，你会发现编程的乐趣无穷无尽！

如果你有任何问题或需要进一步的帮助，请随时留言讨论。祝大家编程愉快！