VB算法的三种模式.ppt

VB程序中的三种基本结构,顺序结构 分支结构 循环结构,顺序结构,开 始,刷牙洗脸吃早饭,坐车到学校,6：30起床,分支结构,开始,准备上体育课,Y,在室内上课,在操场上课,循环结构,开始,要交卷吗？,准备考试,Y,结束,交卷,继续答题,程序的三种基本结构练习（看流程图）,开始,i=10,Y,i=1 s=0,N,结束,输出S,i=i+1 S=s+1,练习1、以上流程图属于（ ）结构,开始,练习2、 此流程图属于什么结构？请描述该流程图的含义？,temp a,ab,b temp,提示： 1、 “”表示“赋值” 2、temp、a、b表示变量,开始,练习3、假如你是电费收费员，以下是一个有关每月电费收费问题的流程图（这里不考虑峰谷电），请解释一下收费规则？并说明此图属于什么结构？,练习4：以下程序，当输入a,b,c的值分别为10，20，30时，输出结果为多少？该流程图完成了什么功能？,开始,练习5、当输入n的值为5时，输出s的值为多少？该流程图完成的什么功能？,练习6、将流程图中 改为： 流程图的功能一样吗？如果不一样，当n=5时，结果变成多少？,s=s*i i=i+1,i=i+1 s=s*i,1、 选择语句（即分支结构）,选择语句能使程序在执行过程中，根据不同的判断结果，选择执行不同的处理,1.1、行IF语句,If 条件表达式 Then 语句1 Else 语句2 If 条件表达式 Then 语句,注意： 1、一个行IF语句必须在一行内写完。 2、Then和Else只后只能写一个语句 3、没有End If,例证性试题： 成绩变量score为数值型变量，当score大于等于60分则文本框对象text1中显示为“及格”，小于60分则显示为“不及格” 练习7补充完整： if score=60 then text1.text=“及格”,算法三种结构在VB中的具体实现,1、 选择语句（即分支结构）,算法三种结构在VB中的具体实现,选择语句能使程序在执行过程中，根据不同的判断结果，选择执行不同的处理,1.2、块IF语句,IF 条件表达式1 Then 语句块1 ElseIf 条件表达式2 Then 语句块2 ElseIf 条件表达式n Then 语句块n Else 语句块0 End if,注意： 1、块IF语句中必须含有End If 2、这里n=1，ElseIf和Else语句可以不出现，即：IF 条件表达式 Then 语句块 End If,算法三种结构在VB中的具体实现之,例证性试题：,判断三条线段a,b,c是否能构成三角形的语句，若构成三角形，则label1显示为“yes”,否则label1显示为”no”,练习8补充完整： a=val(text1.text) 在文本框1中输入a的值 b=val(text2.text) 在文本框2中输入b的值 c=val(text3.text) 在文本框3中输入c的值 If label1.captipn=“yes” label1.caption=“no”,2、 循环语句,循环语句描述了一种重复计算的过程,2.1、For语句,For语句主要用于循环次数已知的情况。,For 循环变量=初值 To 终值 Step 步长 语句块 Next 循环变量,注意： 1、语句中没有“step 步长”，则表示默认步长为1 2、步长可以为正（此时初值终值）,如：1、 for i=10 to 1 step -2 S=s+i Next I 程序循环了5次,2、For ste=2 to 10 S=s+1 Next 程序循环了（ ）次,算法三种结构在VB中的具体实现,2、 循环语句,算法三种结构在VB中的具体实现之,例证性试题： 1、给出下面程序的运行结果,s=0 For i=1 to 10 step 3 S=s+1 Next I Msgbox(s),计算过程如下： S=0 i=110 循环结束，执行下一语句 Msgbox(s) msgbox(x)语句为在屏幕上显示括号里面变量的值 答案为：4 本程序共循环了（ ）次,课堂练习1: S=0 For k=1 to 10 S=s+k Next 运行结束后： S=( ) K=( ),课堂练习2： S=0 y=0 For i=10 to 1 step -3 s=s+i Y=y+1 Next Msgbox(y) 运行结束后： S=( ) Y=( ) I =( ),2.2、Do语句,Do语句用于不能预先知道循环次数，但知道什么时候循环结束的情况,Do While 条件表达式 语句块 Loop,说明：先计算条件表达式的值，当值为true时，执行语句块，遇到loop,返回再次计算条件表达式，若仍为值，继续执行语句块，知道条件表达式为假，跳出循环，执行loop语句后面的语句。,例证性试题1： Sum=0 d=0 Do while d=10 d= d+1 sum=sum+d Loop Msgbox(sum),Sum=0 D=010 跳出循环 执行msgbox(sum) 结果显示：55,算法三种结构在VB中的具体实现之,算法三种结构在VB中的具体实现（综合练习）,1有如下Visual Basic程序段： a = 18 b = 12 c = (a - b) * 2 该程序段运行后，变量c的值为_。,2有如下Visual Basic程序段： a = 5 b = 4 c = 7 s = a + b If s c Then Label1.Caption = “初检合格“ Label1.Caption表示在label1上显示的内容 Else Label1.Caption = “重新调试“ End If 该程序段运行后，在标签Label1上显示的是_。,算法三种结构在VB中的具体实现（综合练习）,3、有如下程序段： t = 1 s = 0 For i = 1 To 10 Step 2 t = t * 2 s = t + 1 Next i 问： （1）程序运行后，变量s 的值为_。 （2）程序运行后，语句“t = t * 2“被执行的次数为_。,4、下列Visual Basic程序段运行后，变量s的值为（ ）。 a=2 b=1 s=0 For I=10 To 8 Step -1 s=s+a c=a+b a=b b=c Next I,附加题1、在Visual Basic中程序段是计算（ ）公式的。 s=0 For I=1 To 10 t=1 for j=1 to i t =t*j next j s=s+t Next I A、s=1+2+3+4+5+6+7+8+9+10 B、s=1*2*3*4*5*6*7*8*9*10 C、s=1!+2!+3!+4!+5!+6!+7!+8!+9!+10! D、s=1+2*3+3*4+4*5