QB編程一、 QB語言基礎(chǔ)1、 運(yùn)算符號(hào) + 加號(hào)- 減號(hào)* 乘號(hào)/ 除號(hào) 乘冪號(hào)（求x的n次方） 整除號(hào)MOD 求余運(yùn)算 2、 關(guān)系符 等于 大于 不等于= 大于等于 3、標(biāo)點(diǎn)符號(hào)（） 括號(hào) ！ 嘆號(hào) ， 逗號(hào) （分區(qū)格式分隔符號(hào)） . 句號(hào) ； 分號(hào) （緊湊格式分隔符號(hào)） ： 冒號(hào) （語句并列分隔符號(hào)） ？ 問號(hào) （打印語句簡(jiǎn)寫符號(hào)） 單引號(hào) （注釋語句前導(dǎo)符號(hào)）“ 雙引號(hào) （字符串前導(dǎo)符號(hào)） 下劃線4、專用符號(hào) 整形變量或百分?jǐn)?shù)后戳符號(hào) $ 字符串變量后戳符號(hào) # 雙精度變量后戳符號(hào) ! 單精度變量后戳符號(hào) & 函數(shù)AND 簡(jiǎn)寫符號(hào)5、運(yùn)算函數(shù) ABS(X) 絕對(duì)函數(shù)值 求x的絕對(duì)值 SQR(X) 算術(shù)平方根 求x的算術(shù)平方根 INT(X) 取整函數(shù) 求不大于x的最大整數(shù) FIX(X) 截?cái)嗪瘮?shù) 取x的整數(shù)部分 LOG(X) 對(duì)數(shù)函數(shù) 求以e為底的x的對(duì)數(shù) EXP(X) 指數(shù)函數(shù) 求e的冪 SIN(X) 正弦函數(shù) 求x的正弦函數(shù)（x的單位為弧度） COS(X) 余弦函數(shù) 求x的余弦函數(shù) TAN(X) 正切函數(shù) 求x的正切函數(shù) RND(X) 隨即函數(shù) 產(chǎn)生一個(gè)01隨機(jī)數(shù) （RND*x+n） 產(chǎn)生一個(gè)從n+xn的隨機(jī)數(shù) FIX（RND*x+n）產(chǎn)生一個(gè)從n+xn的隨機(jī)整數(shù) RND*100+100 100199 RND*101+100 100200RND*100+101 101200 RND*101+101 101201RND*99+100 100198 RND*99+101 101199 6、常用函數(shù) LET（賦值） PRINT（屏幕輸出） TAB（位置） CLS（清屏） END（結(jié)束） INPUT（屏幕輸入） GOTO（轉(zhuǎn)移） SWAP（交換） READ（讀數(shù)） DATA（置數(shù)） IF（如果） THEN（那么） ELSE（否則） FOR（循環(huán)從） TO（到） STEP（步長(zhǎng)） NEXT（下次） DO（做循環(huán)） LOOP（繼續(xù)） WHILE（當(dāng)）NOT（非） AND（與） OR（或） LEN（測(cè)長(zhǎng)） LEFT$(x$,n)（左?。?RIGHT$(x$,n)（右?。㎝ID$(x$,m,n)（中?。￢AL(x$)（數(shù)換串） STR$(x)（串換數(shù)）ASC(X$)（符變碼） CHR$(X)（碼變符） SPC(X)（跳空）LOCATE Y,X（行，列） OPEN（打開） CLOSE（關(guān)閉）OUTPUT（輸出） AS（為） FRE(文件號(hào))（測(cè)試結(jié)尾）DIM（定義數(shù)組）INTEGER（整形）LONG（長(zhǎng)型）DOUBLE（雙精度）CSRLIN（光標(biāo)當(dāng)前行位置） TIMER （從午夜開始計(jì)數(shù)的秒數(shù)）FRE（未用內(nèi)存的總數(shù)字節(jié)） INKEY$（從鍵盤讀一個(gè)字符）INSTR(S%,x$,y$)（一個(gè)字符串在另一字符串中的首字符位置）LBOUND$(N$) （大寫換小寫） UCASE$(N$)（小寫換大寫）LTRIM$(N$)（刪除字符串中的前導(dǎo)空格） RTRIM$(N$)（刪除字符串中的后引空格）TIME$ （當(dāng)前系統(tǒng)時(shí)間） DATE$（當(dāng)前系統(tǒng)日期）(關(guān)系函數(shù))(文件讀寫命令)(字符串函數(shù))(非常用函數(shù))(常用函數(shù)) 7、ASCLL代碼表 0 CTRL- 32 SPACE 64 96 1 CTRL-A 33 ! 65 A 97 a 2 CTRL-B 34 “ 66 B 98 b 3 CTRL-C 35 # 67 C 99 c 4 CTRL-D 36 $ 68 D 100 d 5 CTRL-E 37 % 69 E 101 e 6 CTRL-F 38 & 70 F 102 f 7 CTRL-G 39 71 G 103 g 8 CTRL-H 40 ( 72 H 104 h 9 CTRL-I 41 ) 73 I 105 i 10 CTRL-J 42 * 74 J 106 j 11 CTRL-K 43 + 75 K 107 k 12 CTRL-L 44 , 76 L 108 l 13 CTRL-M 45 - 77 M 109 m 14 CTRL-N 46 . 78 N 110 n 15 CTRL-O 47 / 79 O 111 o 16 CTRL-P 48 0 80 P 112 p 17 CTRL-Q 49 1 81 Q 113 q 18 CTRL-R 50 2 82 R 114 r 19 CTRL-S 51 3 83 S 115 s 20 CTRL-T 52 4 84 T 116 t 21 CTRL-U 53 5 85 U 117 u 22 CTRL-V 54 6 86 V 118 v 23 CTRL-W 55 7 87 W 119 w 24 CTRL-X 56 8 88 X 120 x 25 CTRL-Y 57 9 89 Y 121 y 26 CTRL-Z 58 : 90 Z 122 z 27 ESC 59 ; 91 123 28 60 94 126 31 63 ? 95 - 127二、 初級(jí)編程數(shù)學(xué)計(jì)算（1）輸入長(zhǎng)方形的長(zhǎng)、寬，計(jì)算出它的周長(zhǎng) CLS INPUT A,B S=(A+B)*2 RPINT“S=”;LTRIM$(STR$(S) END（2）輸入數(shù)字，判斷它是否是自然數(shù)，且能被N整除 CLS 2 INPUT N IF N=FIX(N) AND N MOD N = 0 THENPRINT “YES!”ELSE PRINT “NO!”END IF END（3）輸入N個(gè)數(shù)，求其中的最大數(shù) CLS INPUT NFOR I = 1 TO N STEP 1INPUT A(I) NEXT IFOR J = 1 TO N STEP 1 IF A(J) MAX THEN MAX=A(J) NEXT JPRINT “MAX=”;MAX END（4）求1x2+2x3+3x4+9x10的值 CLS S=0 FOR I = 1 TO 9 S=S+I*(I+1) NEXT I PRINT “1*2+2*3+3*4+9*10=”;S END （5）雞兔同籠 CLS INPUT T,J FOR X=1 TO T IF 2*X+4*(T-X)=J THEN 1 NEXT X1 PRINT “JI=”;X,“TU=”;T-X END（6）等差數(shù)列求和 A=首項(xiàng) B=末項(xiàng) X=項(xiàng)數(shù) G=公差 CLS INPUT A,B,G FOR I = A TO B STEP G S=S+I NEXT I PRINT A;“+”;A+G;“+”;“”;“+”;B;“=”;S END CLS INPUT A,B,XS=(A+B)*X/2 PRINT S END（注意：方法只適用于公差為1的等差數(shù)列?。?打印圖形（1）打印九九乘法口訣 CLS FOR I=1 TO 9FOR J= 1 TO I PRINT I;“*”;J;“=”;I*J NEXT J NEXT I END（2）打印圖形 CLS INPUT N IF N=1 AND N=1 AND N=9 THENFOR I = 1 TO N PRINT TAB(I) FOR J = 1 TO 6 I PRINT “*”; NEXT J PRINT NEXT IEND運(yùn)行結(jié)果 N=3* * * * * *（4）打印圖形 CLS INPUT N FOR I = 1 TO N PRINT TAB(6-I);FOR J = 1 TO I PRINT LTRIM$(STR$(I) NEXT J NEXT I END 運(yùn)行結(jié)果 N=5 1 1 2 1 2 3 1 2 3 41 2 3 4