【文档说明】计算机公共基础第11章课件.ppt，共(42)页，435.000 KB，由小橙橙上传

转载请保留链接：https://www.ichengzhen.cn/view-5107.html

以下为本文档部分文字说明：

第11章QBASIC的程序结构学习目标掌握各种数据输入语句掌握输出语句和TAB()函数的应用掌握逻辑运算符和关系运算符的应用掌握条件语句和多分支语句的使用掌握循环语句的使用1第1页，共42页。第11章QBASIC的程序结构教学内容11.1顺序结构

11.2选择结构11.3循环结构本章小结返回总目录2第2页，共42页。11.1顺序结构—赋值语句格式：[LET]<变量>=<表达式>–语句定义符LET可省略–“=”被称为赋值号，与等号的概念不同举例：B=10*A+1‘将表达式赋给变量说明：–赋值号的左

侧只能是一个变量–允许I=1:I=I+1–避免溢出(Overflow)错误例如，将32768赋给一个整型变量返回目录3第3页，共42页。11.1顺序结构—数据输出语句格式：PRINT[输出项列表][;|,]–分号为紧凑格式–逗

号为标准格式：屏幕上的每一行被分为5个标准输出区，每个输出区可显示14个字符例：PRINT1,2,3,4,5,6,7PRINT"北京",,"上海",PRINT“A”,”B”;”C”输出为：1234567北京上海ABC打印项后有逗号或分号，下一条PRINT语句

的打印项将在同一行输出。返回目录4第4页，共42页。11.1顺序结构—数据输出语句TAB()函数TAB(n)：将打印项送到当前行的第n列上文本模式下，屏幕一行有80列，可显示80个字符TAB()函数必须与PRINT语句、分号一起使用例如，PRINT

TAB(10);123;TAB(30);"ABC";CLS语句作用：清除输出窗口中的所有信息（不会清除源程序）格式：CLS返回目录5第5页，共42页。11.1顺序结构—数据输入语句1.键盘输入语句INPUTINPUT[;][输入提示][;|,]<变量

名列表>–在程序运行过程中输入数据，–数据不保存在程序中例：DIMD1%,D2%,Total%INPUT"Pleaseinputdata1:",D1%INPUT"Pleaseinputdata2:",D2%Total%=

D1%+D2%PRINT"Data1+Data2=";Total%END执行程序：Pleaseinputdata1:20↙Pleaseinputdata2:40↙Data1+Data2=60返回目录6第6页，共42页。11.1顺序结构—数据输入语

句例：键盘输入水果名称、单价和重量，输出水果名称和应付钱款DIMItemASSTRING*12DIMWeightASINTEGERDIMPriceASSINGLEINPUT“Inputitem:",It

emINPUT“Inputprice:",PriceINPUT“Inputweight:",WeightPRINT"Item:";ItemPRINT"Money:";Weight*PriceEND执行程序：Inputitem:watermelo

n↙Inputprice:1.86↙Inputweight:10↙Item:watermelonMoney:18.6返回目录7第7页，共42页。11.1顺序结构—数据输入语句2.READ/DATAREAD为

读数语句：READ<变量列表>DATA为置数语句：DATA<常量列表>例：DIMA%,B%,C%,D%'定义4个整型变量DIMAverage!READA%,B%,C%,D%Average!=(A%+B%+C%+D%

)/4PRINT"Average=";Average!DATA10DATA-20,30,-50END返回目录8第8页，共42页。11.1顺序结构—数据输入语句有关READ/DATA的说明–READ/DATA语句必须同时出

现在程序中–DATA语句可放置在程序的任意处–DATA语句提供的数据总数要>=READ语句中的变量总数，否则将出现“OutofData”错误–DATA后面只能出现常量，且类型必须与READ中变量的类型相对应分析错误：READPerson$,Age,Salay,BillDATA23,"Pet

er",1234.56+100•数据类型不一致•DATA中出现了表达式•数据个数比变量个数少1返回目录9第9页，共42页。11.1顺序结构—数据输入语句例：用READ/DATA语句重写水果销售程序DIMItemASSTRING*12DI

MWeightASINTEGER,PriceASSINGLEREADItem,Weight,PricePRINT"Item:";ItemPRINT"Money:";Weight*PriceDATA"Apple",12,1.2ENDDIMItemASSTRI

NG*12DIMWeightASINTEGERDIMPriceASSINGLEINPUT“Inputitem:",ItemINPUT“Inputprice:",PriceINPUT“Inputweight:",WeightPRINT"Item:";ItemPRINT"Money:

";Weight*PriceEND返回目录10第10页，共42页。11.1顺序结构—数据输入语句3.RESTORE语句作用：恢复数据区，让数据指针重新指向第一个DATA语句中的第一个数据。格式：RESTORE例：DIMA%,

B%,C%,D%,E%READA%,B%,C%RESTOREREADC%,D%,E%PRINTA%;B%;C%;D%;E%DATA10,20,30运行结果为：1020102030返回目录11第11页，共42页。11.2选择结构为何需要“选择结构”？在实际工作中

，往往要根据当时的情况决定下一步操作是什么例如，要对学生成绩作评价：如果成绩达到或超过60，则输出PassQB使用IF…THEN…ELSE语句实现选择结构选择结构又称分支结构返回目录12第12页，共42页。11.2选择结构—关系/逻辑表达式1.关系运算符和关系表达式关系表达式：包

含有关系运算符的表达式QB用-1表示成立(真)，0或非-1值表示不成立(假)关系运算符含义数学符号举例=等于=9=9成立，"A"="B"不成立>大于>9>8成立，3>5不成立>=大于或等于8>=6成立，8>=8成立<小于<9<10成立，9<8不成立<=小于或等于9<=9成立，“B”<=“A”

不成立<>不等于6<>7成立，“C"<>“C"不成立返回目录13第13页，共42页。11.2选择结构—关系/逻辑表达式2.逻辑运算符和逻辑表达式运算符操作数A操作数B运算结果AND成立成立成立成立不成立不成立不成立成立不

成立不成立不成立不成立OR成立成立成立成立不成立成立不成立成立成立不成立不成立不成立NOT成立不成立不成立成立逻辑表达式：含有逻辑运算符的表达式返回目录14第14页，共42页。11.2选择结构—关系/逻辑表达式逻辑运算符的优先顺序从高到低是：NOT→AND→OR例如，设A

=10，B=20，C=30，则：返回目录A>1ANDB>10ANDC=30成立A>5ANDB=A+2ANDC>=A-1不成立NOT(A>20ORB<10)成立(A<BORB>10)ANDC<A+B不成立A<BORB>10ANDC<A+B成立1

5第15页，共42页。11.2选择结构—关系/逻辑表达式运算符的优先顺序从高到低依次为：算术运算→关系运算→逻辑运算→赋值运算例，设A=3，B=4，求X=2+NOT(A<1)ORA>=BANDB>2*5第一步：X=2+NOT(0)ORA>=BANDB>10第二步：X=2+(-1)

OR0AND(-1)第三步：X=1OR0第四步：X=-1返回目录16第16页，共42页。11.2选择结构—条件语句和分支语句1.行条件语句（写在一行）IF<关系/逻辑表达式>THEN<语句>[ELSE<语句>]例：输入两个正整数，输出最大值DIMAASINTEGER,BASINTEGER

DIMMaxASINTEGERINPUT"A,B=",A,BIFA>BTHENMax=AIFA<BTHENMax=BPRINT"Max=";MaxEND返回目录可改写为：IFA>BTHENMax=AELSEMax=B或IFB>ATHE

NMax=BELSEMax=A或IFA-B>0THENMax=AELSEMax=B17第17页，共42页。11.2选择结构—条件语句和分支语句例1：输入两个正整数A、B，按从大到小的顺序输出。DIMA

ASINTEGER,BASINTEGERDIMTempASINTEGERINPUT"A,B=",A,BIFA<BTHENTemp=A:A=B:B=TempPRINTA;BEND若只需改变打印顺序实现上述要求，程序

可修改为：DIMAASINTEGER,BASINTEGERINPUT"A,B=",A,BIFA>BTHENPRINTA;BELSEPRINTB;AEND返回目录交换两个变量值需中间变量18第18页，共42页。11.2选择结构—条件语句和分支语句例2：

降序输出3个数据DIMA%,B%,C%,T%INPUT"EnterthreeData:",A%,B%,C%PRINT"BeforeSorting:";A%;B%;C%IFA%<B%THENT%=A%:A%=B%:B%=T%IFA%<C%THENT%=A%:A%=

C%:C%=T%IFB%<C%THENT%=B%:B%=C%:C%=T%PRINT"AfterSorting:";A%;B%;C%END分析：经A与B、A与C的两次比较找出最高分保存在A中再经B与C的比较找出第二高分保存在B中返回目录19第19页，共42页。11.2选择结构—条件语句和分

支语句2.块条件语句IF<关系/逻辑表达式>THEN<语句>[ELSE<语句>]ENDIF如果条件表达式不成立时无需操作，可省略ELSE子句。返回目录20第20页，共42页。11.2选择结构—条件语句和分支语句例：市内电话计费程序–3分钟以内按0.2元收费，超出部分按0.

1元/分钟DIMTimeASINTEGER,BillASSINGLEINPUT"Time:",TimeIFTime<=3THENBill=0.2ELSEBill=0.2+(Time-3)*0.1ENDIFPRINT

"Time=";Time,"Bill=";BillEND返回目录同一行上THEN后不能有任何语句(注释除外)21第21页，共42页。11.2选择结构—条件语句和分支语句3.块条件语句的嵌套形式IF<条件表达式1>THEN<语

句组1>ELSEIF<条件表达式2>THEN<语句组2>…ELSEIF<条件表达式n>THEN<语句组n>[ELSE<语句组n+1>]ENDIF返回目录22第22页，共42页。11.2选择结构—条件语句和分支语句例：评价学生成绩DIMXASINTEGER,GradeASSTRINGIN

PUT"Data:",XIFX>=90THENGrade="Excellent"ELSEIFX>=80THENGrade="Good"ELSEIFX>=70THENGrade="Middling"ELSEIF

X>=60THENGrade="Passed"ELSEGrade="Fail"ENDIFPRINT"Data=";X,"Grade=";GradeEND返回目录90~100：Excellent80~89：

Good70~79：Middling60~69：Passed60分以下Fail23第23页，共42页。11.2选择结构—条件语句和分支语句4.多分支选择结构SELECTCASE<测试表达式>CASE<值1><语句组1>CASE<值2><语句组2>…CASE<值n><语句组n>[CAS

EELSE<语句组n+1>]ENDSELECT返回目录24第24页，共42页。11.2选择结构—条件语句和分支语句例：用SELECT-CASE语句评价学生成绩返回目录DIMXASINTEGERDIMGradeASSTRINGINP

UT"Data:",XSELECTCASEINT(X/10)CASE10Grade="Excellent"CASE9Grade="Excellent“CASE8Grade=“Good”CASE7Grade="Middling"CASE6Grade="Passed"CASEELSE

Grade="Fail"ENDSELECTPRINT"Data=";X,PRINT"Grade=";GradeEND0~100分数转换成整数0~1025第25页，共42页。11.2选择结构—程序设计举例例：判断

一个3位整数是否为“水仙花数”，即该数的3个数字的立方和等于该数本身，例如153=13+53+33。DIMAASINTEGER,BASINTEGER,CASINTEGERDIMXASINTEGER,YASINTEGERINPUT"Data:",X'输入一个整数IFX<100ORX>1000

THENPRINT"No"ENDENDIFA=INT(X/100)'取出X的百位数B=INT(X/10)-10*A'取出X的十位数C=X-100*A-10*B'取出X的个位数Y=A^3+B^3+C^3'计

算三个值的立方和IFX=YTHENPRINT"Yes"ELSEPRINT"No"END返回目录如果X不是三位数则输出No,并终止程序26第26页，共42页。11.3循环结构为何需要“循环结构”？重复执行某项操作。例如，求全班50名学生成绩的平均

分。程序必须在某个条件成立时才能循环，而当条件不成立时则终止循环。常用循环语句有DOWHILE…LOOP、FOR…NEXT以及WHILE…WEND返回目录27第27页，共42页。11.3循环结构—DO-LOOP循环DOWHI

LE<条件表达式><循环体>LOOP条件表达式成立则执行循环体执行到LOOP时，判断条件表达式是否仍成立，如果成立则继续执行循环体，不成立则退出循环。使用EXITDO语句可从循环体中跳出程序出循环后继续执行LOOP下面的语句返回目录28第28页，共42页。1

1.3循环结构—DO-LOOP循环例1：用循环语句实现100个5相加DIMSumASINTEGER,IASINTEGERSum=0:I=1'变量Sum、I置初值DOWHILEI<=100Sum=Sum+5'将5累加到变量SumI=I+1'I增1LOOPP

RINT"Sum=";SumEND程序中用变量Sum保存累加和，初值为0变量I作用计数器，初值为1返回目录29第29页，共42页。11.3循环结构—DO-LOOP循环例2：Sum=1+2+3+…+n，求Sum10000时Sum和n的最大值CLS„清屏幕DIMSumASINTEGER,NASINT

EGERSum=0:N=0DOWHILE-1IFSum+N>10000THENEXITDOSum=Sum+NN=N+1LOOPN=N-1PRINT"Sum=";Sum,NEND返回目录条件表达式为-1，表示永

远循环，由循环体中的IF语句控制循环何时结束。由于出循环时Sum+N>10000，所以，这里N要减去130第30页，共42页。11.3循环结构—FOR…NEXT循环FOR<循环变量>=<初值>TO<终值>[STEP<步长>]

<循环体>NEXT[<循环变量>]FOR…NEXT语句适用于循环次数已知的场合例：求1+2+3+…+100DIMSumASINTEGER,IASINTEGERSum=0FORI=1TO100STEP1Sum=Sum+INEXTIPRINT"Sum=";Su

mEND返回目录STEP1可省略可改写：FORI=100TO1STEP-1Sum=Sum+INEXTI31第31页，共42页。11.3循环结构—FOR…NEXT循环例：DIMIASINTEGERDIMSumASSINGLEDIMFLA

GASINTEGERSum=0:FLAG=1FORI=2TO100STEP2Sum=Sum+FLAG/IFLAG=-FLAGNEXTPRINT"Sum=";SumEND返回目录100181614121Sum每循环一次，FL

AG乘以-1，改变其正负性32第32页，共42页。11.3循环结构—WHILE…WEND循环格式：WHILE<条件表达式><循环体>WEND作用与DOWHILE…LOOP完全相同：条件表达式成立时执行循环体，否则执行WEND下面

的语句。返回目录33第33页，共42页。11.3循环结构—WHILE…WEND循环例：有现金1000.00元，假定银行利率为2.5%，多少年后本金可以增加一倍?DIMPASCURRENCY,YearASINTEGERDIMIASSIN

GLEREMP为本金，I银行利率，Year为年限P=1000:Year=0:I=0.025WHILEP<=2000P=P*(1+I)Year=Year+1WENDPRINT"P=";P;",Year=";YearEND返回目录货币型34第34页，共4

2页。11.3循环结构—双重循环与多重循环双重循环：循环体内使用循环语句。例：返回目录DIMMASINTEGER,NASINTEGERFORM=1TO7'M为外循环变量PRINTTAB(10-M);'每行输出的起始位置FORN=1TO2*M–1'N为内循环变量PRINT"*";N

EXTNPRINT'本行*输出完毕后换行NEXTMEND外层循环控制图案的行数(共7行)每行输出的起始位置逐行前移内循环的次数控制每行输出的*号的个数：2M-135第35页，共42页。11.3循环结构—双重循环与多重循环注意：内外循环不能交叉，不允许出现下列情况：FORI=…FO

RJ=……NEXTINEXTJ多重循环是更多循环语句的嵌套任意一重循环语句可以是FOR…NEXT、DOWHILE…LOOP或WHILE…WEND返回目录36第36页，共42页。11.3循环结构—双重循环与多重循环多重循环例：

输出所有的水仙花数。DIMAASINTEGER,BASINTEGER,CASINTEGERDIMXASINTEGERFORA=1TO9'A为百位数，从1开始FORB=0TO9'B为十位数FORC=0TO9'C为个位数X=100*A+10*B+C'合成一个3位数IFX=A*A*A+B*B*B+C

*C*CTHENPRINTX;ENDIFNEXTCNEXTBNEXTAEND返回目录水仙花数是一个三位数，其各位数的立方和正好等于该数本身。程序输出：15337037140737第37页，共42页。11.3循环结构—循环结构程序举例例1：验证正整数x是否

为素数。DIMXASINTEGER,IASINTEGERINPUT"X=",XFORI=2TOX-1IFXMODI=0THENEXITFOR'X如被整除则出循环NEXTIIFI=XTHENPRINTX;"isaprimenumber.“'X是素数EL

SEPRINTX;"isnotaprimenumber.“'X不是素数ENDIFEND返回目录素数是只能被1和自身所整除的正整数从数学定义出发，让x分别除以2、3、…x-1，一旦x被其中某一个数所整除，则x不是素数38第38页，共42页。11.3循环结构—循环结构程序举例例2

：计算DIMIASINTEGER,JASINTEGERDIMeASDOUBLE,FASLONG,XASDOUBLEe=0:I=0:X=1'X为式中当前项的值，第一项为1e=e+XFORI=1TO10F=1'F保存阶乘的累乘值，其初值必须为1FORJ=1TOIF=F*JNEXTJX=1/F:e=e

+XNEXTIPRINT"e=";eEND返回目录!101!31!21!111e内层循环计算每项中的阶乘值外层循环完成各项的累加39第39页，共42页。本章小结1.顺序结构程序设计–顺序结构最简单，程序只能从上往下执行。–赋值语句的作用

是将常量、变量或表达式的值赋给一个变量。–INPUT是输入语句，在程序运行时，通过键盘将数据赋给变量。–READ语句用DATA语句中的成批数据给一组变量赋值，RESTORE语句将数据指针重新指向第一个数据–PRINT是输出语句，输出常量、变量或表达式的值；分号和逗号起控制打印项间距的作用；

对打印项位置更加精密的控制是使用TAB()函数。返回目录40第40页，共42页。本章小结2.选择结构程序设计–选择结构根据条件表达式的值决定哪些语句执行，哪些语句跳过。–逻辑运算符优先级顺序从高到低依次为NOT、AND和OR。–QB的选择结构有行IF语句和块IF语句，不同

之处在于后者是由IF…THEN…ELSE…ENDIF组成的竖式结构，在条件成立或不成立时可以容纳更多的语句；IF语句可以嵌套。–SELECT-CASE语句被称为多分支语句，根据表达式的值提供了多个出口。返回目录41第41页，共42页。本章小结3.循环结构程序设

计–循环结构用于重复执行某些语句。–FOR…NEXT循环用于循环次数已知的场合，DOWHILE…LOOP语句可用于循环次数未知的场合。–EXITFOR用于跳出FOR…NEXT循环；EXITDO用于跳出DOWHI

LE…LOOP循环。–双重循环与多重循环要注意的问题是出循环的顺序不能交叉。返回目录42第42页，共42页。