電腦軟件推薦： Xmind Zen 2020免激活版 (已驗(yàn)證可用) vmPing v1.3.21 綠色中文版 同花順遠(yuǎn)航版 v7.9.3.1 官方版本 Windows Firewall Control v6.0.2.0

kkx小編為大家介紹的Qbasic語言程序設(shè)計(jì)由微軟公司開發(fā)，旨在幫助初學(xué)者理解計(jì)算機(jī)編程語言的基本概念。Qbasic源自BASIC語言，能夠替代GW-BASIC。雖然它不能編譯成獨(dú)立的可執(zhí)行文件，但源代碼可以在集成開發(fā)環(huán)境中編譯成中間代碼，并由IDE進(jìn)行解釋執(zhí)行。Qbasic被設(shè)計(jì)用來替代GW-BASIC，并集成在MS-DOS 5.0及以上版本中。因其簡易、易學(xué)且高效，受到廣大計(jì)算機(jī)用戶的喜愛。

qbasic使用說明

Qbasic是32位程序，另外也提供了64位的環(huán)境內(nèi)容，用戶可根據(jù)系統(tǒng)選擇適用版本。

Qbasic語言程序設(shè)計(jì)的語法

擴(kuò)展了變量和常量類型，變量名長度限制為40個(gè)字符，新增了長整型和定長字符型變量，支持?jǐn)?shù)值常量和字符串常量。提供了新的選擇結(jié)構(gòu)，如條件語句：

IF <條件> THEN <語句組1> ELSE <語句組2>

多分支語句SELECT，改進(jìn)了循環(huán)結(jié)構(gòu)，增加了以下兩個(gè)循環(huán)語句：

【W(wǎng)HILE循環(huán)】
WHILE <條件>
<循環(huán)體>
WEND

【DO循環(huán)】
DO
WHILE <條件> <循環(huán)體>
LOOP

子程序和函數(shù)作為獨(dú)立模塊，無需行號(hào)。代碼示例（賦值、求和運(yùn)算并顯示結(jié)果）：

LET A=10
LET B=20
LET C=A+B
PRINT C

編寫程序時(shí)，為節(jié)省時(shí)間可省略LET，PRINT可用“？”代替。注意：在競賽中，程序第一行必須是CLS！

Qbasic語言程序設(shè)計(jì)的快捷鍵

F5：運(yùn)行程序或繼續(xù)運(yùn)行被中斷的程序；
Ctrl+Break：中斷正在運(yùn)行的程序；
Shift+F5：從第一條語句重新運(yùn)行程序；
F4：在程序中斷時(shí)查看運(yùn)行結(jié)果屏幕，再次按F4切換回代碼屏幕；
F1：獲得幫助；
F2：切換主程序或SUB、FUNCTION；
F9：增加斷點(diǎn)；
Alt+Enter：全屏；
Shift+F5：程序終止后從頭執(zhí)行；
Ctrl+Insert：選定文字后復(fù)制到剪切板（Ctrl+C無效）；
Shift+Insert：粘貼剪貼板中的文字（Ctrl+V無效）

Qbasic語言程序設(shè)計(jì)實(shí)例介紹

以下是一些Qbasic實(shí)例，用戶可以學(xué)習(xí)參考。

范例1：
菜場上一公斤香菇售價(jià)7.5元，編寫程序輸入重量，計(jì)算總價(jià)
INPUT X
SUM=7.5*X
PRINT SUM
END

范例2：
西瓜價(jià)格：10千克以下每千克1.4元，10千克以上每千克0.7元。輸入購買重量（自然數(shù)），輸出總價(jià)。
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個(gè)字母，比較大小，輸出最大字母
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：
一個(gè)小游戲：
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 "隨機(jī)決定玩家1的HP"
HP2 = INT(RND * 50) + 50 "隨機(jī)決定玩家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 continue"
DO
LOOP WHILE INKEY$ = "" "暫停"
DIM Row, Text$, Attack, I
Text$ = "n"
Row = 0
CLS
DO "循環(huán)"
    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 "回合數(shù)+1"
    PRINT STRING$(11, " ") + STR$(Row) + "."
    PRINT STRING$(12, " ") + Name1$ + " now has HP " + STR$(HP1)
    PRINT STRING$(12, " ") + Name2$ + " now has HP " + STR$(HP2) "顯示回合數(shù)和HP數(shù)"
    DO
    LOOP WHILE INKEY$ = "" "暫停"
    Attack = INT(RND * 20) "隨機(jī)決定攻擊點(diǎn)數(shù)"
    Text$ = STRING$(12, " ") + Name1$
    Text$ = Text$ + " attack " + Name2$ + " " + STR$(Attack) "設(shè)置顯示文字"
    HP2 = HP2 - Attack "減少玩家2的HP"
    PRINT Text$ "顯示文字"
    DO
    LOOP WHILE INKEY$ = "" "暫停"
    Attack = INT(RND * 20) "隨機(jī)決定攻擊點(diǎn)數(shù)"
    Text$ = STRING$(12, " ") + Name2$
    Text$ = Text$ + " attack " + Name1$ + " " + STR$(Attack) "設(shè)置顯示文字"
    HP1 = HP1 - Attack "減少玩家1的HP"
    PRINT Text$ "顯示文字"
    IF HP1 <= 0 OR HP2 <= 0 THEN EXIT DO 如果玩家1或2的HP小于等于0，退出循環(huán)
    DO
    LOOP WHILE INKEY$