Qbasic 4.5 绿色汉化版

QBasic是微软公司开发的编程语言，旨在帮助初学者掌握计算机编程的基础概念。它源自BASIC语言，并被设计来替代GW-BASIC。虽然QBasic无法直接编译为独立的可执行文件，但其源代码可以先在集成开发环境（IDE）中编译为中间代码，之后由IDE进行解释执行。QBasic语言程序设计简单易学，深受计算机用户的喜爱，并被集成在MS-DOS 5.0及以上版本中。

QBasic使用说明

QBasic是32位程序，但我们还提供了64位版本，用户可以根据自己的系统需求选择合适的版本。

QBasic语法介绍

• 新增了变量和常量类型的支持。
• 变量名长度可达40个字符。
• 支持长整型和定长字符型变量。
• 可以定义数值常量和字符串常量。
• 提供了新的选择结构，例如IF语句：
  IF <条件> THEN <语句组1> ELSE <语句组2>。
• 支持多分支选择语句SELECT。
• 增强了循环结构，新增了两种循环语句：
  【WHILE循环】
  WHILE <条件>
  <循环体>
  WEND
  【DO循环】
  DO
  WHILE <条件> <循环体>
  LOOP
• 子程序和函数可作为独立模块，且不需要行号。

示例代码：赋值与求和运算
LET A=10
LET B=20
LET C=A+B
PRINT C
在编写程序时，LET命令是可选的；同时，PRINT命令可以用“？”替代。需要注意的是，在比赛中，程序的第一行必须是CLS。

QBasic快捷键

• F5：运行程序，或继续执行已中断的程序；
• Ctrl+Break：中断正在执行的程序；
• Shift+F5：从程序的第一行开始重新运行；
• F4：中断时查看运行结果，再次按F4返回代码编辑界面；
• F1：打开帮助文档；
• F2：切换到主程序或SUB、FUNCTION模块；
• F9：设置断点；
• Alt+Enter：切换到全屏模式；
• Ctrl+Insert：复制选中的文本到剪贴板（Ctrl+C无效）；
• Shift+Insert：粘贴剪贴板内容（Ctrl+V无效）。

QBasic实例介绍

以下是一些QBasic实例，用户可以参考并学习：

范例1：

在市场上，香菇每公斤7.5元，编写程序从键盘输入重量，计算总价。

INPUT X
SUM = 7.5 * X
PRINT SUM
END

范例2：

出售西瓜，10千克以内每千克1.4元，超过10千克的部分每千克0.7元。输入购买的重量（自然数），输出总价。

INPUT X
IF X <> FIX(X) THEN ? "NO": GOTO 1
IF X > 10 THEN SUM = 10 * 1.4 + (X - 10) * 0.7 ELSE SUM = X * 1.4
PRINT SUM
END

范例3：

输入10个字母，比较大小，输出最大的一个字母。

DIM A$(10)
FOR I = 1 TO 10
  INPUT A$(I)
NEXT I
B$ = A$(1)
FOR I = 2 TO 10
  IF A$(I) > B$ THEN B$ = A$(I)
NEXT
PRINT B$
END

范例4：

创建一个简单的对战游戏。

CLS
LOCATE 5, 38
PRINT "Game"
LOCATE 16, 34
PRINT "Press Enter"
DO
LOOP WHILE INKEY$ = ""
DIM Name1$, Name2$, HP1, HP2, Temp$
CLS
LOCATE 8
PRINT "Input 1st player's name:"
INPUT Name1$
PRINT "Input 2nd player's name:"
INPUT Name2$
RANDOMIZE TIMER
HP1 = INT(RND * 50) + 50
HP2 = INT(RND * 50) + 50
PRINT STRING$(12, " ") + Name1$ + "'s HP is " + STR$(HP1)
PRINT STRING$(12, " ") + Name2$ + "'s HP is " + STR$(HP2)
PRINT "Press any key to continue"
DO
LOOP WHILE INKEY$ = ""
DIM Row, Text$, Attack, I
Row = 0
CLS
DO
  PRINT
  PRINT Name1$ + "'s HP: " + STRING$(16 - LEN(Name1$), " ") + STRING$(INT(HP1 / 2), 2)
  PRINT
  PRINT Name2$ + "'s HP: " + STRING$(16 - LEN(Name2$), " ") + STRING$(INT(HP2 / 2), 2)
  FOR I = 1 TO 4
    PRINT
  NEXT
  Row = Row + 1
  PRINT STRING$(11, " ") + STR$(Row) + "."
  PRINT STRING$(12, " ") + Name1$ + " now has HP " + STR$(HP1)
  PRINT STRING$(12, " ") + Name2$ + " now has HP " + STR$(HP2)
  DO
  LOOP WHILE INKEY$ = ""
  Attack = INT(RND * 20)
  Text$ = STRING$(12, " ") + Name1$ + " attack " + Name2$ + " " + STR$(Attack)
  HP2 = HP2 - Attack
  PRINT Text$
  DO
  LOOP WHILE INKEY$ = ""
  Attack = INT(RND * 20)
  Text$ = STRING$(12, " ") + Name2$ + " attack " + Name1$ + " " + STR$(Attack)
  HP1 = HP1 - Attack
  PRINT Text$
  IF HP1 <= 0 OR HP2 <= 0 THEN EXIT DO
  DO
  LOOP WHILE INKEY$ = ""
  CLS
LOOP
IF HP1 <= 0 THEN PRINT STRING$(12, " ") + Name2$ + " wins!"
IF HP2 <= 0 THEN PRINT STRING$(12, " ") + Name1$ + " wins!"
IF HP1 <= 0 AND HP2 <= 0 THEN PRINT STRING$(12, " ") + "Double win!"

QBasic语言的特点

BASIC语言（Beginner's All-purpose Symbolic Instruction Code）是为初学者设计的通用编程语言，由微软公司开发，并于1991年随MS-DOS 5.0发布。QBasic在功能上与其他BASIC语言相似，但进行了许多改进，支持更复杂的变量类型和结构化编程。与GW-BASIC相比，QBasic提供了更多的选项，如长整型变量、定长字符串和新的控制结构（如IF语句和SELECT语句）。QBasic的简易性使它非常适合初学者进行编程入门，同时也能支持较为复杂的编程任务。

随着技术的发展，QBasic逐渐被更新版本的语言如Visual Basic所取代，但它的简洁性和易用性使它仍然在教育和初学者中有着广泛的应用。