程序的基本结构

1程序编写一般包含哪些方面内容？

一、数据类型二、常量与变量三、运算符与表达式四、常用语句与函数如何编写程序代码之一：

回顾2程序编写一般有几种基本结构？

一、顺序结构二、选择结构三、循环结构如何编写程序代码之二

顺序结构4C引入一个空杯子【例1】交换两个杯子中的液体。提问同学，如何处理？将杯子A中的液体倒给杯子C；将杯子B中的液体倒给杯子A；将杯子C中的液体倒给杯子B。AB5

输入两个数，然后交换这两个数，再输出它们交换后的结果。（1）分析问题。要交换两个数，要利用几个变量来保存数据？Step1：输入a的值，输入b的值step2：利用第三个变量c来进行交换，交换过程如下：

c=a

a=b

b=cstep3：输出交换后A、B的值。

自然语言描述（2）分析程序的执行步骤，画出流程图。开始输入a,bc=aa=bb=c输出a,b结束（3）编写程序开始c=aa=bb=c输出a,b结束输入a,bPrivateSubcommand1_Click（）DimaAsSingle,bAsSingle,cAsSinglea=InputBox（"输入第一个数A："）b=InputBox（"输入第二个数B："）c=aa=bb=cPrint"交换后a=";a,"交换后a=";bEndSub8顺序结构的特点：1.按顺序从第一条语句执行到最后一条语句。2.只有一个入口和一个出口3.任何程序都离不开的基本结构91、写出下列程序的运行结果.（1）图（1）中，输出S=_____(2)图(2)中，若R=8，则a=_____开始结束输入a,ba=2b=4输出S图（1）开始结束输入Ra=2b输出a图（2）2.54课堂练习102、有如下VisualBasic程序段：

a="Good"b="Bye"c=a+b

printc该程序段运行后，变量c的值是________。

“GoodBye”3、有如下VisualBasic程序段：

k=30

h=5

s=h*k/2prints该程序段运行后，变量s的值为

。75课堂练习选择结构12

在处理实际问题时，只有顺序结构是不够的，经常会遇到一些条件的判断，流程根据条件是否成立有不同的流向。如下图所示，程序根据给定的条件P是否成立而选择执行A操作或B操作这种先根据条件做出判断，再决定执行哪一种操作的结构称为分支结构，也称为选择结构。语句2条件表达式语句1YN13

程序的选择结构语句2条件表达式语句1YN选择结构的特点：1、使用表示条件判断的表达式2、有一个入口和多个分支出口14选择结构开始执行b执行a结束条件YN开始Y不是正数Y是正数结束Y>0YN例：判断y是正数吗？15一、“If语句”If条件

Then

语句或语句组EndIfIf条件

Then

语句或语句组1

Else

语句或语句组2EndIf1、单分支结构2、双分支结构3、多分支结构If条件1Then

语句或语句组1

ElseIf条件2Then

语句或语句组2……ElseIf条件nThen

语句或语句组nElse

语句或语句组2EndIf16SelectCase表达式

Case表达式列表1

语句组1

Case表达式列表2

语句组2

……Case表达式列表n

语句组nEndSelect多分支结构二、“SelectCase语句”17完善程序

参考下面的程序，1200元为手机的优惠价格，可以是单分支，可以是双分支，也可以是多分支。18If条件

Then

语句或语句组EndIf1、单分支结构Ifprice=1200ThenMsgBox"猜对了，真厉害！恭喜您幸运地拥有了一部高档手机！"

EndIf开始结束判断条件语句块真假开始结束Price=1200猜对了……真假19If条件

Then

语句或语句组1

Else

语句或语句组2EndIf2、双分支结构Ifprice=1200ThenMsgBox"猜对了，真厉害！恭喜您幸运地拥有了一部高档手机！"

Else

MsgBox"猜错了，再试试!"EndIf开始结束判断条件语句块1真假语句块2开始结束Price=1200猜对了，……真假猜错了，再试试20If条件1Then

语句或语句组1

ElseIf条件2Then

语句或语句组2……ElseIf条件nThen

语句或语句组nElse

语句或语句组2EndIf3、多分支结构（if语句）Ifprice<1200ThenMsgBox"猜低了，再试试!"ElseIfprice>1200ThenMsgBox"猜高了，再试试!"ElseIfprice=1200ThenMsgBox"猜对了，真厉害！恭喜您幸运地拥有了一部高档手机！"

EndIf21SelectCase表达式

Case表达式列表1

语句组1

Case表达式列表2

语句组2

……Case表达式列表n

语句组nEndSelectSelectCasepriceCaseIs<1200MsgBox"猜低了，再试试!"CaseIs>1200MsgBox"猜高了，再试试!"CaseIs=1200MsgBox"猜对了，真厉害！恭喜您幸运地拥有了一部高档手机！"EndSelect3、多分支结构（select语句）22

1、语句Ifx=1Theny=1,下列说法正确的是（

）。

A、x=1和y=1均为赋值语句

B、x=1和y=1均为关系表达式

C、x=1为关系表达式，y=1为赋值语句

D、x=1为赋值语句，y=1为关系表达课堂练习23课堂练习2、电梯的最大容量为13人，在此范围内电梯能正常运行，超出了这个范围电梯将发出警报。（）

Dimaasinteger

a=val(inputbox(“请输入进入电梯的人数”))

a<=13____

print“正常运行”

____

print“发出警报”

_______

A.if…….then……endif……else

B.then……if……else……endif

C.if……then……else……endif

D.if……else……then……endif24课堂练习3、有如下VisualBasic程序段：

a=2

b=5

Ifa>bThen

m=a

Else

m=bEndifPrintm该程序段运行后,变量m的值为____。

525课堂练习4、有如下VisualBasic程序段：

a=10:b=20:x=30Ifx>bThena=b+aElsea=b-aEndIfprinta该程序段运行后，变量a的值为_______

。30VB程序代码中一行可以写多个语句，语句间用冒号隔开。26课堂练习

5、下图的作用是判断输入数x的奇偶性，则②处应为____开始结束输入x输出“x是奇数”输出“x是偶数”R=x除以2的余数②是否R=1？27课堂练习6、输入一学生成绩，评定其等级。规则是：90~100分为“优秀”，80~89分为“良好”，70~79分为“中等”，60~69分为“及格”，60分以下为“不合格”。Ifx>=90thenPrint"优秀"ElseIfx>=80ThenPrint"良好"ElseIfx>=70ThenPrint"中等"ElseIfx>=60ThenPrint"及格"ElsePrint"不及格"EndIfSelectCasexCase90to100Print"优秀"Case80to89Print"良好"Case70to79Print"中等"Case60to69Print"及格"CaseElsePrint"不及格"EndSelect循环结构在窗体上显示10行*（每行10个*）顺序结构PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")循环结构DimnasIntegerfor

n=1to10PrintString(10,"*")nextnDimnAsInteger'n是循环控制变量Forn=1To10'n的初值1，终值10，每循环1次增加1PrintString(10,"*")'循环体语句Nextn'循环结束程序的循环结构条件(a)YN语句组条件语句组YN(b)循环结构的特点：1、在给定条件下，重复执行一个语句。2、必然出现不满足条件的情况，使循环终止。循环结构开始执行b执行a结束条件YN开始Y=Y+XX=X+1

Y＝0X=1X<=100YN结束Y＝0＋1Y＝y＋2Y＝y＋3……Y＝y＋100例：求y值？Y＝1＋2＋3＋……＋100

A、计数型循环语句（循环次数固定）For循环语句

B、条件型循环语句（循环次数不固定，由循环条件决定。）Do…Loop循环语句

在VB中循环结构控制的形式在VB中循环结构控制的形式一、For…Next语句For循环变量=初始值TO终值[step步长值]

[语句]Next

[循环变量]Y=0For

x=1to100y=y+xNextxY=0:x=1For

x<=100y=y+xx=x+1Nextx计数型条件型思考：Y＝1＊2＊3*……*100，求y值？在VB中循环结构控制的形式For循环变量=初始值TO终值[step步长值]

[语句]Next

[循环变量]Y=1For

x=1to100y=y*xNextxY=1:x=1For

x<=100y=y*xx=x+1Nextx计数型条件型思考：Y＝1＊2＊3*……*100，求y值？一、For…Next语句Dowhile条件

语句loop在VB中循环结构控制的形式Dountil

条件

语句loopDo

语句loop

while

条件Do

语句loopuntil

条件1、While<条件>2、Until<条件>相当于Whilenot<条件>

二、Do…Loop语句在VB中循环结构控制的形式条件(当型循环结构)YN语句组条件语句组YN(直到型循环结构)当型循环结构：“先测型”，为先判断后执行，有可能一次也不执行；直到型循环结构：“后测型”

，为先执行后判断，至少执行一次。Dowhile条件

语句loopY=0:x=1dowhile

x<=100

y=y+xx=x+1loop条件(当型循环结构)YN语句组在VB中循环结构控制的形式Do…loop语句（while）Do

语句loop

while

条件Y=0:x=1do

y=y+xx=x+1loopwhile

x<=100条件语句组YN(直到型循环结构)在VB中循环结构控制的形式Do…loop语句（while）Do…loop语句（until）Dountil

条件

语句loopY=0:x=1dountil

x>100

y=y+xx=x+1loop条件(当型循环结构)YN语句组在VB中循环结构控制的形式Do

语句loopuntil

条件Y=0:x=1do

y=y+xx=x+1loopuntil

x>100条件语句组YN(直到型循环结构)在VB中循环结构控制的形式Do…loop语句（until）1、下面是一段VisualBasic程序：

PrivateSubCommand1_Click()DimsumAsDouble，iAsIntegersum=0Fori=1To5sum=sum+i*iNextiText1.Text=Str(sum)EndSub该程序运行后，语句sum=sum+i*i共执行了

次。5课堂练习以下是一段VisualBasic程序a=1b=a+1c=a+b它的基本结构属于（）A.循环结构 B.选择结构 C.树型结构D.顺序结构练一练D下列流程图表示的是程序的（）基本结构的算法A.循环结构 B.其它三项都不是 C.选择结构 D.顺序结构语句块选择NOYESA以下是一段VisualBasic程序：b=0ForI=1To5b=b+1NextI它的基本结构属于（）A.循环结构 B.树型结构C.选择结构 D.顺序结构A以下是一段VisualBasic程序IfI=1Thenx=x+1Elsex=x+2EndIf它的基本结构属于（）A.选择结构 B.循环结构C.顺序结构 D.树型结构A以下是一个VisualBasic程序a=1b=2m=ax=m+bb=b+1y=x+b它的基本结构属于（）A.顺序结构 B.选择结构 C.循环结构 D.树型结构A在VB中，以下程序段：x=1DoWhilex<10x=x+xLoop运行后的X的值为（）A.4 B.8 C.2 D.16D在VB中，假定有以下程序段：ForI=1To3I=I+1NextI则执行结束后I的值是（）A.4 B.5 C.6 D.1A下列VB程序运行后，变量m的值为（）a=2:b=1:c=5Ifa<bThenm=aElsem=bIfc<mThenm=cA.1 B.5 C.2 D.其它三项均不正确A分析程序，写出执行结果PrivateSubCommand1_Click()S=0Fori=1To3S=S+2*iNextiPrint"S=";SEndSub

运行的结果是下列程序运行后，变量Value的值是（）x=20Ifx>=10ThenValue=5*xElseValue=3*x+10EndIfA.80 B.90 C.100 D.70107.在VB中，假定有以下程序段：I=1DoUntilI>0Print“VB”Loop则语句Print“VB”的执行次数是：（）A.0 B.1 C.2 D.无数次在VB中，假定有以下循环结构：DoUntil条件循环体Loop则正确的描述是（）A.不论“条件”是否为“真”，至少执行一次循环体B.如果“条件”是一个不为0的常数，则至少执行一次循环体C.如果“条件”是一个为0的常数，则执行无穷次循环体D.如果“条件”是一个为0的常数，则一次循环体也不执行。2、下面的程序是求7!（7!=1*2*3...*6*7