QBASIC是BASIC(初學者通用符號指令代碼)語言的變體，由美國微軟公司開發，在1991中隨MS-DOS 5.0推出。它不能編譯成獨立的可執行文件。源代碼首先在集成開發環境(IDE)中被編譯成中間代碼，然後中間代碼在IDE中被解釋和執行。它旨在取代GW-BASIC，並集成在MS-DOS 5.0及其更高版本(包括Windows 95)中。QBASIC基於微軟早前推出的QuickBASIC 4.5，但去掉了後者的編譯和連接部分。
Basic語言是壹種高級計算機語言，簡單易學，易於使用，深受計算機用戶的青睞。Basic語言中的表達方式和數學中的類似，語句和自然語言中的類似，初學者非常容易掌握。基礎語言Visual Basic 6.0和7.0的最新發展，以其友好的可視化編程界面、強大的面向對象編程能力以及在線發布和在線查詢的功能，不僅使用戶能夠方便、輕松地編寫任何功能的應用程序，而且更好地適應了網絡時代的到來。
微軟不再在新版Windows中集成QBASIC。但是Windows 98的用戶可以在光盤的\TOOLS\OLDMSDOS目錄下找到，它存放在Windows 95光盤的\OTHER\OLDMSDOS目錄下。微軟網站對它的技術支持只對MS-DOS的授權用戶有效。
QBASIC有值得稱道的集成開發環境和強大的集成調試器，這些在當時都讓人耳目壹新。直到今天，QBASIC仍然是很多初學者編程書籍的主題。
[編輯此段]語法
類似於Quick BASIC，但不同於Microsoft BASIC的其他早期版本，QBASIC是壹種結構化編程語言。與GW-BASIC相比，QBASIC的主要改進有:
擴展了變量和常量的類型。
變量名長度:40個字符
增加了長整型和定長字符變量。
您可以定義數字常量、字符串常量
提供了新的選擇結構
條件語句
如果& lt條件>然後& lt語句組1 >；ELSE & lt語句組2 >；
多分支語句選擇
流通結構得到改善。
添加以下兩個循環語句:
WHILE循環
WHILE & lt條件>
& lt環狀體>
行
做循環
DO WHILE & lt條件> & lt循環體>循環
子程序和函數作為獨立的模塊。
不需要行號。
代碼示例(賦值、求和運算，並顯示結果)
設A=10
設B=20
設C=A+B
打印C
寫程序的時候為了節省時間，不用寫LET；而且，PRINT直接用“？”寫程序的時候。替換。非常重要的壹點是，參加比賽時，節目的第壹線必須是CLS！
[編輯本段]快捷鍵
F5:運行程序(其功能等同於run)，繼續運行被中斷的程序；
Ctrl+Break:中斷正在運行的程序；
Shift+F5:從第壹條語句重新運行程序；
F4:程序停止運行時，查看運行結果畫面，再次按F4切換回代碼畫面；
F1:獲取幫助。
F2:切換主程序或子功能。
[編輯此段落]示例
示例1:
市場上的香菇壹公斤7.5元。寫個程序，從鍵盤輸入重量，電腦會自動算出總價。
輸入X
總和=7.5*X
打印總和
結束
示例2:
賣西瓜的，價格在10斤以下，1.4元每斤，10斤以上，0.7元每斤。輸入妳要買多少公斤(必須是自然數)和出口多少錢。
輸入X
如果X & lt& gt然後修復(X)嗎？“否”:轉到1
如果X & gt10那麽SUM = 10 * 1.4+(X-10)* 0.7 ELSE SUM = X * 1.4
打印總和
結束
示例3:
輸入10個字母，比較大小，輸出最大的壹個。
DIM A$(10)
對於I=1至10
輸入壹美元(I)
接下來我
B$=A$(1)
對於I=2到10
如果B $ & ltA$(I)然後B$=A$(I)
接下來我
打印B$
結束
上面的程序太水了，我在這裏編了壹個很長的繪圖程序:
繪圖工具。停下
CLS
防禦命令(Defense Order)
屏幕1
屏幕0
打印頁簽(16)；"繪圖工具"
打印字符串$(40，" * ")
打印“幫助:”
打印“按突出顯示的字母。”
對於I = 1到8
閱讀S$，S
轉到PrintHLWord
PrintHLWordBack:
接下來我
恢復
數據" HorizontalBAR "，1，" UprightBAR "，1，" CrossBARs "，1，" BiasBAR1 "，8
數據" BiasBAR2 "，8，" DiagonalBARs "，1，" DiffuseBARs "，2，" Exit "，1
埃爾塞基:
K$ =輸入$(1)
選擇案例UCASE$(K$)
案件“H”
轉到水平欄
HorizontalBARBack:
案例“U”
轉到垂直欄
直立回座:
案例“C”
轉到橫桿
交叉桿背面:
案例“1”
轉到BiasBAR1
BiasBAR1Back:
案例“2”
轉到BiasBAR2
BiasBAR2Back:
案件“D”
轉到對角線
對角鯨:
案例“壹”
轉到擴散條
漫射條背面:
案例“E”
結束
其他情況
去埃爾塞基
結束選擇
環
結束
PrintHLWord:
如果S = 1，則
顏色15
打印左$(新幣，1)；
顏色7
打印中間美元(新幣，2)
其他
顏色7
打印左$(S$，S-1)；
顏色15
打印MID$(S$，S，1)；
顏色7
打印MID$(S$，S + 1)
如果…就會結束
轉到PrintHLWordBack
水平欄:
屏幕1
對於I = 1到200
PSET (I，100)
DO:循環WHILE INKEY$ = " "
接下來我
屏幕0
轉到水平工具欄
垂直欄:
屏幕1
對於I = 1到200
PSET (100，I)
DO:循環WHILE INKEY$ = " "
接下來我
屏幕0
向上轉到BARBack
橫桿:
屏幕1
對於I = 1到200
PSET (I，100)
PSET (100，I)
DO:循環WHILE INKEY$ = " "
接下來我
屏幕0
轉到交叉欄返回
BiasBAR1:
屏幕1
對於I = 1到200
PSET(我，我)
DO:循環WHILE INKEY$ = " "
接下來我
屏幕0
轉到bias bar 1返回
BiasBAR2:
屏幕1
對於I = 1到200
PSET (I，200 - I)
DO:循環WHILE INKEY$ = " "
接下來我
屏幕0
轉到BiasBAR2Back
對角線:
屏幕1
對於I = 1到200
PSET(我，我)
PSET (I，200 - I)
DO:循環WHILE INKEY$ = " "
接下來我
屏幕0
轉到對角線背面
擴散條:
屏幕1
對於I = 1到200
PSET (I，100)
PSET (100，I)
PSET(我，我)
PSET (I，200 - I)
DO:循環WHILE INKEY$ = " "
接下來我
屏幕0
轉到擴散條後退
路線圖:
CLS
投入
計算
輸出
結束