vb第5章1.ppt

第5章 Visual Basic控制结构 5.1 算法及其描述 5.2 选择结构 5.3 循环结构 5.4 常用算法与数据结构（一） 1.顺序结构 在顺序结构中，算法的每一步操作都是按从上到下的线性次序执行的。 2.选择结构 又称分支结构，根据给出的条件，选择执行一个分支。因此，在选择结构中，必然包含了条件判断。 3.循环结构 又称重复执行结构。根据给出的条件，判断是否重复执行某一组操作。 5.2.1 单行结构条件语句 1. 格式 If 条件 Then 语句组1 [Else 语句组2] 2. 功能 如果条件成立，则执行语句组1否则执行语句组2 【例】设界面如下图所示，用文本框输入x的值，单击“计算Y”按钮时，根据以下公式计算y的值。 【例】求一元二次方程ax2+bx+c=0的解 。 (1) 如果a=0，且b=0，则方程无解，提示重新输入系数；但如果b? 0，则 x=-c/b ( 2) 如果a ? 0，b2-4ac=0 ，则有两个相等的实根 b2-4ac0，则有两个不等的实根 b2-4ac0，则有两个共轭复根 Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) If A = 0 Then If B = 0 Then MsgBox 系数为零，请重新输入 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Else X = -C / B Print X=; Format(X, 0.000) End If else Delta = B ^ 2 - 4 * A * C Select Case Delta Case 0 Print X1=X2=; Format(-B / (2 * A), 0.000) Case Is 0 X1 = (-B + Sqr(Delta)) / (2 * A) X2 = (-B - Sqr(Delta)) / (2 * A) Print X1=; Format(X1, 0.000) Print X2=; Format(X2, 0.000) Case Is 0 A1 = -B / (2 * A) A2 = Sqr(Abs(Delta)) / (2 * A) Print X1=; A1; + ;A2; i Print X2=; A1; -; A2; i End Select End if End Sub * 第五章 选择结构程序设计 * V i s u a l B A S I C 程序设计 Vb有3种基本控制结构 第5章 VB控制结构 基本的循环结构有两种：当循环和直到循环。 （1）当循环：首先判断条件是否成立，若成立，执行循环体再判断条件，决定是否继续进行循环；若不成立，跳过这组操作，执行此循环结构后面的操作。 （2）直到循环：首先执行循环体，然后判断条件是否成立，若成立，则继续进行循环操作；若不成立，执行此循环结构后面的操作。 在程序设计中，算法是由一系列的控制结构构成，每一个控制结构又由若干个语句组成。语句是程序中有确切含义的基本单位，也是构成程序的基本成分，程序功能是由一条条语句的执行来实现的，可把语句视为命令。 例: If K0 Then A=1:B=2 Else A=2:B=1 3. 注意 应作为一条语句书写 5.2 选择结构 |x| x≤0 Sinx x0 y= Private Sub Command1_Click() X = Val(Text1.Text) If X = 0 Then Y = Abs(X) Else Y = sin