本文以FreeBASIC 1.10.x为教学环境，从安装运行、变量运算、输入输出、条件判断和循环结构入手，通过完整代码、运行结果和调试案例介绍BASIC语言，帮助初学者独立完成可运行的成绩统计程序。

认识BASIC语言与运行环境

本教程统一使用FreeBASIC 1.10.x。Windows用户可从FreeBASIC官网下载对应安装包并完成安装；macOS用户可使用Homebrew执行 brew install freebasic；Linux用户可安装官网提供的软件包。源文件扩展名为.bas。新建hello.bas并写入以下代码：

PRINT "Hello, BASIC!"
SLEEP

第1行用PRINT输出文本，第2行用SLEEP等待按键，便于在独立窗口中查看结果。在终端进入文件所在目录后执行 fbc hello.bas 编译；Windows运行 hello.exe，macOS或Linux运行 ./hello。程序输出：

Hello, BASIC!

本教程代码均按FreeBASIC语法编写。QBASIC常依赖解释执行和行号式旧代码，Visual Basic则采用窗体、事件和不同的工程结构，不能直接套用这里的编译命令。

• 安装FreeBASIC 1.10.x并确认fbc命令可用
• 将源代码保存为.bas文件
• 使用fbc 文件名.bas完成编译
• 运行生成的可执行文件并查看结果

掌握变量与基本数据

FreeBASIC使用DIM声明变量，并可通过AS指定类型。下面的variables.bas演示整数、小数、字符串、赋值、算术运算和字符串连接：

DIM AS INTEGER quantity = 3
DIM AS DOUBLE price = 12.5
DIM AS DOUBLE total
DIM AS STRING productName = "Notebook"

total = quantity * price
PRINT productName & " quantity: " & quantity
PRINT "Total: "; total
SLEEP

第1至第2行分别声明整数、小数和字符串；total用于保存计算结果；乘法表达式quantity * price计算总价；&连接字符串，分号可让PRINT连续输出不同类型的数据。运行结果为：

Notebook quantity: 3 Total: 37.5

数字参与加减乘除时应声明为INTEGER、SINGLE或DOUBLE，文本应声明为STRING，不能把未经转换的文本直接用于算术运算。

• 使用DIM AS INTEGER声明整数变量
• 使用DIM AS DOUBLE保存小数和计算结果
• 使用DIM AS STRING声明字符串
• 通过&连接文本，通过+、-、*、/完成运算

学习输入、输出与数据校验

FreeBASIC的PRINT负责输出，INPUT负责读取键盘数据。为了同时处理空值、字母和越界数据，可先把输入保存为STRING，再使用VAL转换；同时用STR(VAL(text))判断输入是否为规范数字。下面程序会持续要求用户输入1到120之间的整数年龄：

DIM AS STRING inputText
DIM AS INTEGER age

DO
    PRINT "Enter age (1-120): ";
    LINE INPUT inputText

    IF LEN(TRIM(inputText)) = 0 THEN
        PRINT "Input cannot be empty."
        CONTINUE DO
    END IF

    age = VAL(inputText)
    IF STR(age) <> TRIM(inputText) THEN
        PRINT "Please enter an integer."
    ELSEIF age < 1 OR age > 120 THEN
        PRINT "Age must be between 1 and 120."
    ELSE
        EXIT DO
    END IF
LOOP

PRINT "Valid age: "; age
SLEEP

LINE INPUT读取整行文本；TRIM删除首尾空格；LEN检查是否为空；VAL把文本转换为数值；CONTINUE DO重新开始本轮输入；EXIT DO在数据有效时退出循环。输入abc、150、20时，输出依次为“Please enter an integer.”、“Age must be between 1 and 120.”和“Valid age: 20”。对于需要接受2.5等小数的场景，可把变量声明为DOUBLE，并根据业务要求采用更适合的小数格式校验。

• 使用PRINT显示明确提示
• 使用LINE INPUT把原始输入保存为STRING
• 用VAL转换数字并检查转换结果
• 用DO...LOOP、CONTINUE DO和EXIT DO实现错误重试

使用条件判断控制流程

FreeBASIC使用IF...THEN...ELSEIF...ELSE...END IF编写多分支判断。下面程序读取成绩并输出等级：

DIM AS INTEGER score
INPUT "Enter score (0-100): ", score

IF score < 0 OR score > 100 THEN
    PRINT "Invalid score"
ELSEIF score >= 90 THEN
    PRINT "Grade A"
ELSEIF score >= 80 THEN
    PRINT "Grade B"
ELSEIF score >= 70 THEN
    PRINT "Grade C"
ELSEIF score >= 60 THEN
    PRINT "Grade D"
ELSE
    PRINT "Grade F"
END IF
SLEEP

THEN之后是条件成立时执行的语句，ELSEIF继续检查其他条件，ELSE处理剩余情况。分支按成绩从高到低排列，因此输入85时输出Grade B，输入60时输出Grade D，输入101时输出Invalid score。OR表示任一条件成立即可。

• 使用IF...THEN开始条件判断
• 使用ELSEIF处理多个成绩范围
• 使用ELSE覆盖剩余情况
• 测试0、59、60、89、90和100等边界值

用循环完成重复任务

已知重复次数时可使用FOR...NEXT。下面程序输出1到5并计算总和：

DIM AS INTEGER i
DIM AS INTEGER total = 0

FOR i = 1 TO 5
    total = total + i
    PRINT "i = "; i; ", total = "; total
NEXT i

PRINT "Final total: "; total
SLEEP

FOR i = 1 TO 5让i依次取1至5，NEXT i结束一轮并更新计数器。运行最后一行输出Final total: 15。重复次数未知时可使用DO...LOOP，并在满足结束条件时执行EXIT DO。循环中的累计变量必须在循环开始前初始化，否则结果可能包含错误的旧值。

• 使用FOR 变量 = 起始值 TO 结束值定义计数循环
• 使用NEXT更新循环变量
• 在循环外初始化累计变量
• 使用DO...LOOP和EXIT DO处理次数未知的重复任务

完成第一个综合程序

下面的完整FreeBASIC程序录入5名学生的成绩。每次输入必须是0到100之间的整数；空值、字母和越界值都会触发重新输入。程序累计总分、计算平均分，并按90、80、70、60分界线输出每名学生的等级：

CONST STUDENT_COUNT AS INTEGER = 5
DIM AS INTEGER i, score, total = 0
DIM AS DOUBLE average
DIM AS STRING inputText, grade

FOR i = 1 TO STUDENT_COUNT
    DO
        PRINT "Score for student "; i; " (0-100): ";
        LINE INPUT inputText

        IF LEN(TRIM(inputText)) = 0 THEN
            PRINT "Input cannot be empty."
            CONTINUE DO
        END IF

        score = VAL(inputText)
        IF STR(score) <> TRIM(inputText) THEN
            PRINT "Please enter an integer."
        ELSEIF score < 0 OR score > 100 THEN
            PRINT "Score must be between 0 and 100."
        ELSE
            EXIT DO
        END IF
    LOOP

    IF score >= 90 THEN
        grade = "A"
    ELSEIF score >= 80 THEN
        grade = "B"
    ELSEIF score >= 70 THEN
        grade = "C"
    ELSEIF score >= 60 THEN
        grade = "D"
    ELSE
        grade = "F"
    END IF

    total = total + score
    PRINT "Grade: "; grade
NEXT i

average = total / CDbl(STUDENT_COUNT)
PRINT "Total: "; total
PRINT "Average: "; average
SLEEP

CONST固定录入人数；外层FOR控制5次录入；内层DO负责非法输入重试；IF分支确定等级；total逐次累计；CDbl把人数转换为DOUBLE，避免平均值按整数处理。把代码保存为grades.bas，执行fbc grades.bas后运行生成的程序。测试输入95、82、70、60、43时，等级依次为A、B、C、D、F，最后输出Total: 350和Average: 70。测试时还应输入空行、abc、-1和101，确认程序提示错误后仍能继续录入。

• 成绩有效范围为0到100，固定录入5次有效成绩
• 使用内层DO...LOOP处理非法输入并重试
• 使用IF...ELSEIF判断A、B、C、D、F等级
• 使用total累计总分并以DOUBLE计算平均值
• 用正常值、边界值和非法值覆盖各条执行路径

调试与继续学习

FreeBASIC编译器会给出文件名、行号和错误说明。语法错误示例是漏写THEN：

IF score >= 60
    PRINT "Pass"
END IF

执行fbc时会在IF所在行附近报告语法错误。修正为 IF score >= 60 THEN 后即可通过编译。逻辑错误不会阻止编译，例如计算平均值时误写 average = total / (STUDENT_COUNT - 1)，5个成绩总分350会得到87.5，而正确结果应为70。可在计算前临时加入 PRINT "DEBUG total="; total; " count="; STUDENT_COUNT，确认总分和人数，再把公式改为 average = total / CDbl(STUDENT_COUNT)。调试时应先用固定测试数据复现问题，根据报错行检查关键字、括号和END IF等结构；若程序能运行但结果错误，则在输入、累计和分支前后临时PRINT关键变量。完成基础练习后，可继续学习数组、SUB过程、FUNCTION函数和文件读写。

• 根据编译器提示的文件名和行号定位语法错误
• 检查THEN、END IF、NEXT和LOOP等结构关键字
• 使用临时PRINT输出输入值、累计值和循环计数
• 用已知结果的测试数据排查计算公式

学习BASIC语言的重点是把具体语法放进可运行程序中反复验证。使用FreeBASIC完成输出、输入校验、条件分支、循环和成绩统计练习后，再逐步学习数组、过程、函数和文件读写，就能建立独立编写与调试基础程序的能力。

《夸克》非常好用的免费AI浏览器

下载APP查看