-
qbasic
鎖定
- 外文名
- Beginner's All-purpose Symbolic Instruction Code
- 簡 稱
- QBasic
- 類 型
- 計算機語言
- 開發公司
- 美國微軟
qbasic軟件特點
在windows 8中運行qbasic
qbasic現狀
微軟在較新版本的Windows中不再集成QBASIC。不過Windows 98的用户可以在光盤的\TOOLS\OLDMSDOS目錄中找到它，在Windows 95的光盤中，它存放在\OTHER\OLDMSDOS目錄中。微軟網站對它的技術支持只對MS-DOS的授權用户有效。
QBASIC擁有一個值得稱道的集成開發環境和一個功能強大的集成調試器，這一切在那個時代讓人耳目一新。直到今天，QBASIC依然是許多面向初學者的編程書籍的主題。
qbasic語法
擴充了變量和常量的類型
變量名長度：40個字符
增加了長整型、定長字符型變量
提供了新的選擇結構
條件語句
IF THEN ELSE
多分支語句SELECT
改進了循環結構
增加以下兩個循環語句:
【WHILE循環】
WHILE
循環體>
WEND
【DO循環】
DO
WHILE
子程序和函數作為單獨的模塊
不需要行號
代碼示例（賦值,求和運算,並顯示結果）
LET A=10 LET B=20 LET C=A+B PRINT C
在編寫程序時為了節省時間，可以不用寫LET；並且PRINT在編寫程序時直接用“？”代替。有一點非常重要，在參加競賽時，程序第一行必須是CLS！
qbasic快捷鍵
QBASIC 7.1快捷鍵：
F5：運行程序及繼續運行被中斷的程序；
Ctrl+Break：中斷正在運行的程序；
Shift+F5：從第一條語句開始重新運行程序；
F4：當程序中斷運行時，查看運行結果屏幕，再按一次F4則切換回代碼屏幕；
F1：獲得幫助。
F2：切換主程序或SUB、FUNCTION。
F9：增加斷點。
Alt+Enter：全屏。
Shift+F5：在程序終止時重新從頭執行。
Ctrl+Insert：選定文字後複製到剪切板（Ctrl+C無效）
Shift+Insert：將剪貼板中的文字粘貼。（Ctrl+V無效）
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 B$<A$(I) THEN B$=A$(I) NEXT I PRINT B$ END
範例4：
一個遊戲：
CLS '清屏 LOCATE 5, 38 '定位到5,38 PRINT "Game" '顯示 LOCATE 16, 34 '定位到16,34 PRINT "Press Enter" '顯示 DO LOOP WHILE INKEY$ = "" '暫停 DIM Name1$, Name2$, HP1, HP2, Temp$ CLS '清屏 LOCATE 8 '定位至第8行 PRINT " Input 1st player's name"; '輸入玩家1的名字 INPUT Name1$ PRINT " Input 2nd player's name"; '輸入玩家2的名字 INPUT Name2$ RANDOMIZE TIMER HP1 = INT(RND * 50) + 50 '隨機決定玩家1的HP HP2 = INT(RND * 50) + 50 '隨機決定玩家2的HP PRINT STRING$(12, " ") + Name1$ + "'s HP is " + STR$(HP1) '顯示玩家1的HP PRINT STRING$(12, " ") + Name2$ + "'s HP is " + STR$(HP2) '顯示玩家2的HP PRINT " Press any key to contiune" DO LOOP WHILE INKEY$ = "" '暫停 DIM Row, Text$, Attack, I Text$ = "n" Row = 0 CLS DO '循環 PRINT PRINT Name1$ + "'s HP:" + STRING$(16 - LEN(Name1$), " "); PRINT STRING$(INT(HP1 / 2), 2) PRINT PRINT Name2$ + "'s HP:" + STRING$(16 - LEN(Name2$), " "); PRINT STRING$(INT(HP2 / 2), 2) '以上這幾句是用圖形來表示HP FOR I = 1 TO 4 PRINT NEXT '顯示空行 Row = Row + 1 '回合數+1 PRINT STRING$(11, " ") + STR$(Row) + "." PRINT STRING$(12, " ") + Name1$ + " now has HP " + STR$(HP1) PRINT STRING$(12, " ") + Name2$ + " now has HP " + STR$(HP2) '以上幾句顯示回合數和HP數 DO LOOP WHILE INKEY$ = "" '暫停 Attack = INT(RND * 20) '隨機決定攻擊點數 Text$ = STRING$(12, " ") + Name1$ Text$ = Text$ + " attack " + Name2$ + " " + STR$(Attack) '先想好要顯示的文字 HP2 = HP2 - Attack '用玩家2的HP減去攻擊點數 PRINT Text$ '顯示文字 DO LOOP WHILE INKEY$ = "" '暫停 Attack = INT(RND * 20) '隨機決定攻擊點數 Text$ = STRING$(12, " ") + Name2$ Text$ = Text$ + " attack " + Name1$ + " " + STR$(Attack) '先想好要顯示的文字 HP1 = HP1 - Attack '用玩家1的HP減去攻擊點數 PRINT Text$ '顯示文字 IF HP1 <= 0 OR HP2 <= 0 THEN EXIT DO 如果玩家1或2的HP小於等於0就退出循環 DO LOOP WHILE INKEY$ = "" '暫停 CLS LOOP IF HP1 <= 0 THEN PRINT STRING$(12, " ") + Name2$ + " win" IF HP2 <= 0 THEN PRINT STRING$(12, " ") + Name1$ + " win" IF HP1 <= 0 AND HP2 <= 0 THEN PRINT STRING$(12, " ") + "Double win!"
這裏有一個超長的畫圖程序:
DRAWTOOL.BAS
CLS
DO
SCREEN 1
SCREEN 0
PRINT TAB(16); "Draw tool"
PRINT STRING$(40, "*")
PRINT "Help:"
PRINT "Press highlighted letter."
FOR I = 1 TO 8
READ S$, S
GOTO PrintHLWord
PrintHLWordBack:
NEXT I
RESTORE
DATA "HorizontalBAR", 1, "UprightBAR", 1, "CrossBARs", 1, "BiasBAR1", 8
DATA "BiasBAR2", 8, "DiagonalBARs", 1, "DiffuseBARs", 2, "Exit", 1
ElseKey:
K$ = INPUT$(1)
SELECT CASE UCASE$(K$)
CASE "H"
GOTO HorizontalBAR
HorizontalBARBack:
CASE "U"
GOTO UprightBAR
UprightBARBack:
CASE "C"
GOTO CrossBARs
CrossBARsBack:
CASE "1"
GOTO BiasBAR1
BiasBAR1Back:
CASE "2"
GOTO BiasBAR2
BiasBAR2Back:
CASE "D"
GOTO DiagonalBARs
DiagonalBARsBack:
CASE "I"
GOTO DiffuseBARs
DiffuseBARsBack:
CASE "E"
END
CASE ELSE
GOTO ElseKey
END SELECT
LOOP
END
PrintHLWord:
IF S = 1 THEN
COLOR 15
PRINT LEFT$(S$, 1);
COLOR 7
PRINT MID$(S$, 2)
ELSE
COLOR 7
PRINT LEFT$(S$, S - 1);
COLOR 15
PRINT MID$(S$, S, 1);
COLOR 7
PRINT MID$(S$, S + 1)
END IF
GOTO PrintHLWordBack
HorizontalBAR:
SCREEN 1
FOR I = 1 TO 200
PSET (I, 100)
DO: LOOP WHILE INKEY$ = ""
NEXT I
SCREEN 0
GOTO HorizontalBARBack
UprightBAR:
SCREEN 1
FOR I = 1 TO 200
PSET (100, I)
DO: LOOP WHILE INKEY$ = ""
NEXT I
SCREEN 0
GOTO UprightBARBack
CrossBARs:
SCREEN 1
FOR I = 1 TO 200
PSET (I, 100)
PSET (100, I)
DO: LOOP WHILE INKEY$ = ""
NEXT I
SCREEN 0
GOTO CrossBARsBack
BiasBAR1:
SCREEN 1
FOR I = 1 TO 200
PSET (I, I)
DO: LOOP WHILE INKEY$ = ""
NEXT I
SCREEN 0
GOTO BiasBAR1Back
BiasBAR2:
SCREEN 1
FOR I = 1 TO 200
PSET (I, 200 - I)
DO: LOOP WHILE INKEY$ = ""
NEXT I
SCREEN 0
GOTO BiasBAR2Back
DiagonalBARs:
SCREEN 1
FOR I = 1 TO 200
PSET (I, I)
PSET (I, 200 - I)
DO: LOOP WHILE INKEY$ = ""
NEXT I
SCREEN 0
GOTO DiagonalBARsBack
DiffuseBARs:
SCREEN 1
FOR I = 1 TO 200
PSET (I, 100)
PSET (100, I)
PSET (I, I)
PSET (I, 200 - I)
DO: LOOP WHILE INKEY$ = ""
NEXT I
SCREEN 0
GOTO DiffuseBARsBack
路程圖：
CLS
輸入
計算
輸出
END
