高三年級(jí)期末考試題

高三年級(jí)期末考試題松山區(qū)職教中心2007——2008學(xué)年度上學(xué)期期末考試試卷出題教師科目使用班級(jí)使用專業(yè)應(yīng)考人數(shù)實(shí)考人數(shù)印刷份數(shù)考場(chǎng)監(jiān)考人員

注意事項(xiàng)：1、本卷共20頁(yè)，滿分350分，考試時(shí)間為150分鐘。2、答題前將密封線內(nèi)的項(xiàng)目填寫清楚。3、答題時(shí)請(qǐng)使用藍(lán)、黑鋼筆或珠筆。QBASIC程序設(shè)計(jì)部分一、選擇題（各2分，本題共90分）1、QBASIC中既有打印功能又有計(jì)算功能的語(yǔ)句是（）A．LET

B．INPUT

C．READ

D．PRINT2、表達(dá)式X+5是（）A．關(guān)系表達(dá)式B．算術(shù)表達(dá)式C．邏輯表達(dá)式

D．字符串表達(dá)式3、以下合法的變量是（）A．a(chǎn)b$

B．let

C．%ab

D．2a#4、以下合法的字符常量是（）A．“1234”

B．2E-2

C．10^3

D．SINX5、168&是（）類型的常量A．整型

B．長(zhǎng)整型

C．單精型

D．雙精型6、QBASIC程序行一般最多可容納的字符個(gè)數(shù)是（）A．80

B．127

C．160

D．2557、以下合法的函數(shù)是（）A．COS[X]

B．EXP.3

C．SINX

D．EXP（3）8、函數(shù)EXP（0）的值為（）A．0

B．1

C．2.71828

D．3.149、變量RTW屬于（）類型A．整型

B．單精型

C．雙精型

D．字符型10、下述四個(gè)表達(dá)式中，（）的值為0A．4\5

B．4/5

C．4MOD5

D．5MOD411、多條語(yǔ)句寫在一行，語(yǔ)句之間（）間隔。A．冒號(hào)

B．分號(hào)

C．頓號(hào)

D．逗號(hào)12、QBASIC語(yǔ)言中，標(biāo)號(hào)的作用是（）A．執(zhí)行程序的順序B．程序編排的順序

C．轉(zhuǎn)移目標(biāo)D．無作用13、邏輯運(yùn)算的優(yōu)先級(jí)為（）A．NOT、OR、AND

B．OR、AND、NOTC．NOT、AND、OR

D．從左到右14、執(zhí)行INPUT語(yǔ)句時(shí)，如果從鍵盤上輸入多個(gè)數(shù)據(jù)，數(shù)據(jù)之間應(yīng)用（）間隔。A．逗號(hào)

B．分號(hào)

C．頓號(hào)

D．空格15、在語(yǔ)句DIM

A（15）中，A表示（）A．?dāng)?shù)組名

B．下標(biāo)變量名C．變量名

D．?dāng)?shù)組元素名16、按QBASIC的規(guī)定，以下作為下標(biāo)變量正確的為（）A．X(4*A;7)

B．5（3）

C．X（3.X）

D．X（A）17、DIM

A（3，3，5）所定義的數(shù)組元素個(gè)數(shù)為（）A．11

B．80

C．120

D

1418、正確的語(yǔ)句為（）A．GOTO

70-20

B．GOTO

60C．ONSGN（X）+2

THEN100，200

D．GOSUB“100”19、下列語(yǔ)句正確的為（）A．LETX=Y=5

B．LET

A+B=3

C．LETX=3，Y=4，Z=5

D．SQR（4）=220、函數(shù)INT（RND（2）*90）+10的值的范圍是（）A．[0，90]

B．[10，90]

C．[10，100]

D．[10，99]21、下列各函數(shù)定義的語(yǔ)句中，正確的是（）A．DEFFN（A,B）=A+2*B+4

B．DEFAD（X）=A+BC．DEFFNB(E)=E+SIN(E)

D．DEFFNA(S)+B=A+B22、下列函數(shù)用來產(chǎn)生[0，500]之間的隨機(jī)整數(shù)，正確的為（）A．FUNCTION

R

B．FUNCTION

R

X=INT（501*RND（1））

X=INT（501*RND（RND（1））R=xENDFUNCTION

ENDFUNCTIONC．FUNCTION

R

D．FUNCTION

R

X=INT（501*RND（1））

X=INT（501*（RND（1））ENDFUNCTION

END23、下列程序運(yùn)行后輸出結(jié)果為（）FORA=1TO2GOSUB70S=S+ANEXTAPRINTS，AEND70：A=A+180：S=6RETURNA．8，3

B．24，3

C．30，24

D．12

724、下列程序運(yùn)行后輸出結(jié)果為（）DIMM（10）ASINTEGERFORK=1TO10M（K）=11-KNEXTKX=6PRINT

M（1+M（X））ENDA．2

B．3

C．4

D．525、以下程序運(yùn)行后輸出后的結(jié)果為（）X=0PRINTX-1X=3ENDA．0

B．有語(yǔ)法錯(cuò)誤

C．2

D．-126、以下程序運(yùn)行后輸出結(jié)果為（）A=5：B=6A=A+BB=A-BA=A-BPRINTA；BENDA．4

6

B.1

11

C.6

5

D.10

127、以下程序運(yùn)行后輸出結(jié)果為（）READ

X，YRESTORE10DATA1READZ，ZT=X+Y+Z10

DATA2,3PRINT

TENDA．4

B。2

C。5

D。628、以下程序運(yùn)行后輸出結(jié)果為（）FORI=1

TO10READAIF

AMOD3<>0

OR

AMOD5<>0

THENS=S+ANEXTIPRINT

SDATA1,3,5,7,9,11,13,15,17,19ENDA.14

B.23

C.32

D.7729、下列程序運(yùn)行后輸出結(jié)果為（）READAA=ABS（INT（A））ONAGOTO40，60，8040

LETB=A*AGOTO9060

LETB=A/2GOTO9080

LETB=A+190

PRINTBDATA

3.14ENDA.16

B.8

C.12

D.430、語(yǔ)句DIMA$（10，10）所定義的數(shù)組是（）A．一維數(shù)值型數(shù)組

B.二維數(shù)值型數(shù)組C．一維字符型數(shù)組

D、二維字符型數(shù)組31、以下程序運(yùn)行后輸出結(jié)果為（）DIM

YASINTEGER，A

ASINTEGERY=3K=3DOUNTIL

K<9K=K-2Y=Y+KLOOPPRINT

Y;KENDA.1

2

B.2

2

C.3

3

D.2

132、8位定點(diǎn)原碼整數(shù)10100011B的真值為（）。

A、+0100011B

B、-0100011B

C、+1011101B

D、-1011101B33、若某數(shù)x的真值為-0.1010，在計(jì)算機(jī)中該數(shù)表示為1.0110，則該數(shù)所用的編碼為（）。A、原碼B、補(bǔ)碼C、反碼D、移碼34、十進(jìn)制數(shù)96的8421BCD碼為：(

)A、10010110

B、01101001

C、01101010

D、1001011135、在計(jì)算機(jī)內(nèi)部，數(shù)據(jù)是以何種形式加工、處理和傳送的?(

)(A)二進(jìn)制碼

(B)八進(jìn)制碼

(C)十六進(jìn)制碼

(D)十進(jìn)制碼36、Internet在中國(guó)被稱為因特網(wǎng)或（

）A）網(wǎng)中網(wǎng)B）國(guó)際互聯(lián)網(wǎng)C）國(guó)際聯(lián)網(wǎng)D）計(jì)算機(jī)網(wǎng)絡(luò)系統(tǒng)37、因特網(wǎng)上的服務(wù)都是基于某一種協(xié)議，Web服務(wù)是基于（

）

A）SNMP協(xié)議B）SMTP協(xié)議C）HTTP協(xié)議D）TELNET協(xié)議38、為網(wǎng)絡(luò)提供共享資源并對(duì)這些資源進(jìn)行管理的計(jì)算機(jī)稱之為(

)。A.網(wǎng)卡

B.服務(wù)器

C.工作站

D.網(wǎng)橋39、當(dāng)前流行的Web瀏覽器有(

)A.InternetExplorer、Netscape

B.PageMaker、FrontPage

C.3DMAX、CorelDraw

D.以上都不是40、下面哪一個(gè)選項(xiàng)中的程序段可以將AX寄存器的高4位移至BX的低4位？(

)41、執(zhí)行下列哪一條指令后，就能用條件轉(zhuǎn)移指令判斷AL和BL寄存器中的最高位是否相同？(

)A）TESTAL，BLB）CMPAL，BLC）ANDAL，BLD）XORAL，BL42執(zhí)行下列二進(jìn)制邏輯乘運(yùn)算（即邏輯與運(yùn)算)01011001∧10100111其運(yùn)算結(jié)果是：(

)A)

00000000B)

11111111

C)

00000001D)

1111111043、執(zhí)行下列二進(jìn)制算術(shù)加運(yùn)算11001001十00100111其運(yùn)算結(jié)果是：(

)A)

11101111B)

11110000

C)

00000001

D)

1010001044、CPU堆棧中的數(shù)據(jù)是以_______的結(jié)構(gòu)方式處理的。A．后進(jìn)先出B.只進(jìn)不出C.先進(jìn)先出D.先出先進(jìn)45、8088微處理器的直接尋址能力是(

)。A．64K

B.256K

C.1M

D.1。44M二、填空題（每空2分，共40分）1、獨(dú)立模塊函數(shù)和獨(dú)立模塊子程序統(tǒng)稱為______________.2、數(shù)據(jù)文件按其存取方式的不同可分為__________文件和______文件兩種。3、序的基本結(jié)構(gòu)有三種：___________、__________、_________4、高級(jí)語(yǔ)言的翻譯方式有兩種，分別為______________和____________5、數(shù)組的維數(shù)指的是_________的個(gè)數(shù)。6、ex+y書寫成QBASIC合法函數(shù)形式應(yīng)為________________.7、一個(gè)堆棧(SS)=1250H,它的最先進(jìn)入一個(gè)字的偏移地址為0100H,(sp)=0052H,則棧底物理地址是______________,若存入3040H后(sp)=______________8、已知11001010B為補(bǔ)碼,則其反碼=_______________,真值=___________B9、邏輯地址由_____________和_______________兩部分組成．10、將AX寄存器低4位清零_______________________11、將BX寄存器低4位置1_____________________________12、將CX寄存器低4位取反__________________________________13、提供網(wǎng)絡(luò)通訊和網(wǎng)絡(luò)資源共享功能的操作系統(tǒng)稱為___________。三、程序填空（每空2分，共30分）1、以下是任意輸入5個(gè)數(shù)求積的程序，請(qǐng)補(bǔ)充完整。N=1：_________INPUTMWHILE

N<=________S=S+MN=N+1__________WENDPRINTSEND2、以下程序是用來求1~N所有自然數(shù)的和，請(qǐng)補(bǔ)充完整。INPUTNS=______FORI=1

TO

______S=S+INEXTIPRINTPEND3、下列是用自定義函數(shù)的方式求S=3！+4！+5！的程序，請(qǐng)補(bǔ)充完整；DEF

FNY（X）P=1FORI=1TOXP=P*INEXTI____________ENDDEFS=_______________________PRINT

SEND4、編程求任意兩個(gè)數(shù)A、B的最小公倍數(shù)。（應(yīng)用的是過程的嵌套調(diào)用）注：DECLARESUB

lcf(x!,y!,z!)DECLARESUB

gcd(x!,y!,z!)INPUT

a,bLcf

_____________PRINT

a,b,nENDSUBgcd(x,y,z)WHILE__________IFX>YTHENX=X-Y

ELSE

Y=Y-XZ=X__________ENDSUBSUBlcf(x,y,z)CALLgcd((x),(y),z)Z=x*y/zENDSUB5、將100—200之間不能被3整除也不能被7整除的數(shù)輸出。請(qǐng)?zhí)钊胝_內(nèi)容。DIM

I

ASINTEGERFORi=100TO200IFIMOD3<>0iMOD<>7

THENNEXTiEND6、一個(gè)數(shù)列有m個(gè)數(shù)，已知它的前2個(gè)數(shù)是b,c,從第3個(gè)數(shù)開始每個(gè)數(shù)都是它前面2個(gè)數(shù)之和，求此數(shù)列。填入正確內(nèi)容。DIMIASINTEGERINPUTb，c，mPRINTPRINT

b，cFOR

i=1TOS=PRINT

sb=c：NEXT

iENDFOXBASE+部分試題一、選擇題(每空2分，共74分)1、將前兩個(gè)字符為BL的所有內(nèi)存變量從內(nèi)存中清除，應(yīng)使用的命令為____A、CLEARMEMORYBL*

B、RELEASEALLLIKEBL*C、RESTOREFROMBL*Ｄ、以上答案均不對(duì)2、在FOXBAS中，執(zhí)行某一程序應(yīng)用的命令是____________A、MODICOMM<程序文件名>

B、DO<程序文件名>C、CREATE<程序文件名>

D、<程序文件名>3、某工資庫(kù)GZ.DBF中有150條記錄，執(zhí)行下列操作后，屏幕顯示的最后結(jié)果是_________。USEGZ.DBFGO10LISTNEXT10SKIP10A、29

B、30

C、31

D、1514、打開一個(gè)空庫(kù)，EOF（）和BOF（）的值分別是___________A、.F.

.F.

B、.F..T.

C、.T.

.F.

D、.T..T.5、“團(tuán)員否”為邏輯型，顯示所有非團(tuán)員的記錄的命令是____________A、LISTFOR團(tuán)員否=.F.

B、LISTFOR團(tuán)員否=“N”C、LISTFOR.NOT.團(tuán)員否D、LISTFOR團(tuán)員否=.T.6、先執(zhí)行下列命令正確的查詢命令是____________USESTUDINDEXON總分TOZFFS=192A、SEEKFS

B、SEEK&FS

C、FINDFS

D、FIND

&FS7、設(shè)當(dāng)前庫(kù)中有10條記錄，若當(dāng)前記錄號(hào)是4，當(dāng)執(zhí)行INSERTBEFOREBLANK命令增加一條空白記錄后，此空記錄的記錄號(hào)是___________A、3

B、5

C、11

D、48、FOXBASE有兩種變量，它們是____________A、系統(tǒng)固有的變量與用戶自定義變量B、內(nèi)存變量與字段名變量C、數(shù)字型變量與非數(shù)字型變量D、全局變量與局部變量9、在FOX中，用COPYFILE命令復(fù)制文件應(yīng)注意______________A、源文件必須關(guān)閉，不能使用通配符，文件必須指定擴(kuò)展名B、源文件必須打開，不能使用通配符，文件必須指定擴(kuò)展名C、源文件必須關(guān)閉，可以使用通配符，文件必須指定擴(kuò)展名D、源文件必須關(guān)閉，不能使用通配符，文件的擴(kuò)展名可缺省10、XS數(shù)據(jù)庫(kù)文件的字段順序?yàn)椋簩W(xué)號(hào)、姓名、性別、成績(jī)、年齡，現(xiàn)有X（5）數(shù)組，其元素的值分別為X（1）=“9708”，X（2）=“李四”，X（3）=“女”，X（4）=534，X（5）=18，執(zhí)行命令USEXSAPPEBLANKGATHFORMXFIELDS學(xué)號(hào)，姓名，成績(jī)DISP學(xué)號(hào)，姓名，成績(jī)后，屏幕顯示結(jié)果為___________A、9708李四534

B、類型不匹配C、9708李四-（-表示空格）D、9708李四“女”11、執(zhí)行下面操作后屏幕顯示的結(jié)果是_______________PP=“AREYOUSURE”MM=“YOU”？AT（MM，PP）A、5

B、7

C、4

D、012、要在屏幕上畫出一個(gè)矩形方框，應(yīng)當(dāng)使用命令________________A、@8，5TO8，20

B、@8，5TO15，5C、@8，5TO2，20

D、@8，5TO12，7513、相應(yīng)的數(shù)據(jù)庫(kù)和相應(yīng)的索引文件已經(jīng)打開，用FIND命令把記錄指針批向姓李的記錄后，要使指針指向下一個(gè)同姓的記錄的命令是_________A、GONEXT

B、CONTINUE

C、SKIP

D、FIND“李”14、可以向變量輸入邏輯值的命令是______________A、ACCEPT和@-GET

B、INPUT和@-SAYC、INPUT和@-GET

D、ACCEPT和@-SAY15、FoxBASE最多可以同時(shí)打開DBF文件的個(gè)數(shù)是_________A)1個(gè)

B、2個(gè)

C、沒有限制

D、10個(gè)16、當(dāng)前數(shù)據(jù)庫(kù)文件中有一個(gè)長(zhǎng)度為10的字符型字段sname，執(zhí)行如下命令REPLACEsnameWITH"于丹櫻"？LEN(sname)最后一條命令的顯示結(jié)果是_______A、3

B、6

C、10

D、1117、假設(shè)數(shù)據(jù)庫(kù)文件及其索引文件已打開，為了確保指針定位在物理記錄號(hào)為1的記錄上，應(yīng)該使用命令(

)A)GOTOP

B)GOBOP()

C)SKIP1

D)GO118、設(shè)職工數(shù)據(jù)庫(kù)文件已經(jīng)打開，其中有“工資”字段，要把指針定位在第一個(gè)工資大于620元的記錄上，應(yīng)使用命令______A、FINDFOR工資>620

B、SEEK工資>620C、LOCATEFOR工資>620

D、FIND工資>62019、設(shè)當(dāng)前打開的數(shù)據(jù)庫(kù)文件中含有字段SNO，系統(tǒng)中有一內(nèi)存變量的名稱也為SNO，下面命令顯示的結(jié)果是___________？SNOA、內(nèi)存變量SNO的值

B、字段變量SNO的值C、錯(cuò)誤信息

D、與該命令之前的狀態(tài)有關(guān)20、下面命令顯示的結(jié)果是_________？AT("教授"，"副教授")A、2

B、3

C、.T.

D、121、在下列表達(dá)式中，運(yùn)算結(jié)果為數(shù)值的是____________A、[8888]-[666]

B、LEN(SPACE(5))-1C、CTOD('04/05/99')-30

D、800+200=100022、用在程序中，可以終止程序執(zhí)行并返回到FoxBASE圓點(diǎn)提示符狀態(tài)的命令是__________A、EXIT

B、QUIT

C、BYE

D、CANCEL23、某數(shù)據(jù)庫(kù)文件有5個(gè)字段，其中有3個(gè)字符型的寬度分別為6、12、和10，另外還有一個(gè)邏輯型字段和一個(gè)日期型字段，該數(shù)據(jù)庫(kù)文件中每條記錄的總字節(jié)數(shù)是__________A、37

B、38

C、39

D、4024、當(dāng)前數(shù)據(jù)庫(kù)中"是否通過"字段為邏輯類型，要顯示所有末通過的記錄應(yīng)使用命令___________A、LISTFOR是否通過=.F.

B、LISTFOR是否通過<>.T.C、LISTFOR.NOT.是否通過

D、LISTFOR.NOT."是否通過"25、執(zhí)行如下命令序列SETTALKOFFSTORE

2007

TO

aSTORE

"2007"

TO

bSTORE

"a"

TO

m？&m+&b最后的輸出結(jié)果是___________A、2007

B、、語(yǔ)法錯(cuò)

C、20072007

D、401426STOREDATE()TOm_dateM_date=m_date-365?YEAR(m_date)最后輸出結(jié)果是_________A、其中有語(yǔ)法錯(cuò)誤

B、03/04/07

C、2006

D、200827、下面程序段的輸出結(jié)果是_________X=55．88i%=xPRINTi%A、55.88

B、55

C、56

D、028、下列程序運(yùn)行后的輸出結(jié)果是(

)c=b=aPRINTcENDA、1

B、0

C、-1

D、顯示出錯(cuò)信息29、對(duì)于FOR——NEXT循環(huán)結(jié)構(gòu)來說，循環(huán)結(jié)束的條件是循環(huán)控制變量的值_________終值。A、大于

B、小于

C、等于

D、沿變化方向超過30、閱讀下面程序，其輸出結(jié)果是__________DEFFNY(Y)=2*YX=FNY(FNY(2))PRINT

XENDA、

2

B、4

C、8

D、1631、要從數(shù)據(jù)庫(kù)中刪除記錄,一般分兩步進(jìn)行,首先要_____A.用RECALL語(yǔ)句做標(biāo)記B.在被選擇的記錄上做標(biāo)記

C.不需要做任何標(biāo)記D.在命令欄中可以用PACK直接刪除

32、在Foxpro中對(duì)數(shù)據(jù)進(jìn)行批量修改的命令是_____A.EDIT

B.BROWSE

C.RECALL

D.REPLACE33、在使用數(shù)據(jù)庫(kù)之前,必須將其打開,有關(guān)打開數(shù)據(jù)庫(kù)的下述操作中錯(cuò)誤的是____A.選擇"文件"菜單中的"打開"選項(xiàng)B.選擇"文件"菜單中的"新建"選項(xiàng)C.選擇"程序"菜單中的"運(yùn)行"程序選項(xiàng)D.在命令窗口中使用USE庫(kù)文件命令34、在FoxPro的命令窗口輸入命令行？AT（"net"，"Internet")執(zhí)行后，屏幕上顯示的結(jié)果是A)6B).F．C)

0D)

.T．35、在FoxPro環(huán)境下對(duì)數(shù)據(jù)庫(kù)文件jinxi．dbf進(jìn)行排序后，生成的文件擴(kuò)展名為A)

.dbf

B)

.cdx

C)

.txt

D)

.idx36、關(guān)閉當(dāng)前工作區(qū)中已打開的數(shù)據(jù)庫(kù)文件應(yīng)該進(jìn)行的操作是

A)

選擇Fi1e菜單中的Close項(xiàng)B)

在Command窗口中鍵人USE命令

C)

選擇Window菜單中的Clear項(xiàng)D)

在Command窗口中鍵人Clear命令

37、在針織廠"庫(kù)存"數(shù)據(jù)庫(kù)文件中，"庫(kù)存量"字段是數(shù)值型。若檢索"庫(kù)存量"少于370件的針織品記錄，應(yīng)該使用的邏輯表達(dá)式是A)

庫(kù)存量＜＝370

B)

庫(kù)存量＞370C)

庫(kù)存量＞＝370

D)

庫(kù)存量＜370二、填空題(每空2分，共16分)1、順序執(zhí)行以下命令，

STORE"20.45"

TOx?STR(&x,2)+"85&x"屏幕顯示的結(jié)果是________________。2、向水災(zāi)地區(qū)捐款的數(shù)據(jù)庫(kù)的部門、姓名、款額共三個(gè)字段，數(shù)據(jù)庫(kù)和相應(yīng)的的索引文件已經(jīng)打開。為匯總各部門的捐款數(shù)并存入分類匯總數(shù)據(jù)庫(kù)flhz.dbf中,應(yīng)使用命令____________________________。3、設(shè)x=100,y=200,G=”x+y”,表達(dá)式5+&G的值是____________。4、？MOD(10，-3)的值為_______________。5、表達(dá)式SQR(10^2-4*3*8)-1)\2的值為________________。6、QBASIC表達(dá)式4*3．14159*r^3/3所代表的代數(shù)表達(dá)式為____________。7、執(zhí)行語(yǔ)句x=INT(89*RND(1)+11)后x的取值范圍是________________。8、QBASIC表達(dá)式NOT1+2<>3AND3<5-2OR3>2*2r的值為_____________。9、骰子是一個(gè)正六面體，用數(shù)字1~6分別代表這六面，擲一次骰子出現(xiàn)的數(shù)可表示為___________________。三、程序填空(每空2分，共20分)1、共有五個(gè)數(shù)據(jù)庫(kù)文件std1.dbf—std5.dbf,下面程序的功能是刪除每個(gè)庫(kù)文件的末記錄。請(qǐng)?zhí)羁?。n=1DOWHILEn<=5db=[1]_____________________USE&dbGOTO

BOTTOMDELETEPACKn=n+1ENDDOUSE2、下面程序的功能是根據(jù)銷售數(shù)據(jù)庫(kù)文件sale.dbf中的數(shù)據(jù)去修改庫(kù)存文件inventry.dbf數(shù)據(jù),請(qǐng)對(duì)程序填空。SELECT1USEinventrySELECT2USEsaleDOWHILE[2]______________SELECT1LOCATEFOR商品名=b->商品名REPLACE數(shù)量WITH數(shù)量-b->數(shù)量,總金額WITH單價(jià)*數(shù)量SELECT2______[3]____________ENDDOCLOSEDATABASE3、在順序文件“ST.DAT”中已存入一批學(xué)號(hào)(xh)、姓名(xm)和分?jǐn)?shù)(fs)，完成下面由鍵盤輸入學(xué)號(hào)，通過學(xué)號(hào)查詢成績(jī)的程序。填入正確內(nèi)容。OPEN____[4]__________________________________________INPUT“Enter

number:”noDO

WHILE

NOTEOFINPUT#1,xh,xm$,fsIFxh=no

THEN

70LOOP70_________[5]______________CLOSE

#1END4、SETTALKOFFA=.T.B=0DOWHIELA[6]____