第三章 程序设计_.ppt

第三章 结构化程序设计;3.1 三种基本的程序控制结构 3.2 选择结构 3.3 循环结构 3.4 循环嵌套与常用算法 3.5 常用算法（一） 3.6 常见错误 （顺序、条件、循环）;3.1 三种基本的程序控制结构;一、 If…Then语句(单分支结构) If 表达式 Then 语句 或 If 表达式 Then 语句块 End If;If xy Then t=x: x=y: y=t 或 If xy Then t=x x=y y=t End If ; y=cos(x)－x^3+3*x If x0 Then y=sin(x)+sqr (x*x+1) ;例：设计界面如图所示，用文本框Text1输入x的值，单击按钮时，在标签Label1中显示出x的绝对值。;“求绝对值”按钮Command1的单击事件过程如下： Private Sub Command1_Click() x = Val(Text1.Text) ‘将文本框中的字符内容转换 成数值 If x 0 Then Label1.Caption = x Else Label1.Caption = -x 根据x的正负确定显示结果 End if End Sub;三、If语句的嵌套 If语句的嵌套是指If或Else后面的语句块中又包含If语句。 If 表达式1 Then If 表达式11 Then … End If … End If ;;例：编程序求一元二次方程ax^2+bx+c=0的根（a不等于零）。考虑方程有两个不相等的实根、两个相等的实根和两个复根。;Private Sub Command1_Click() Dim a, b, c, dert As Integer Dim p, r, x1, x2 As Single Dim str As String str = Chr(10) Chr(13) a = Val(Text1.Text) 判断a是否为0，如果为0，则退出过程 If a = 0 Then MsgBox a不能为0: Exit Sub b = Val(Text2.Text) c = Val(Text3.Text) dert = b * b - 4 * a * c p = -b / (2 * a);If dert = 0 Then If dert 0 Then r = Sqr(dert) / (2 * a) x1 = p + r x2 = p - r Else x1 = p x2 = p End If; 四、If…Then…ElseIf语句(多分支结构) If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … [Else 语句块 n+1] End If; 不管有几个分支，依次判断，当某条件满足，执行相应的语句，其余分支不再执行；若条件都不满足，且有Else子句，则执行该语句块，否则什么也不执行。 注意：ElseIf不能写成 Else If;例：已知变量strC中存放了一字符，判断该字符是字母字符、数字字符还是其他字符。;例：已知百分制成绩mark，显示对应的五级制成绩，哪些正确，哪些错误？;五、Select Case语句(情况语句) Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select;表达式列表：与变量或表达式同类型的下面四种形式之一： 单个表达式（单值） 例: A 一组枚举表达式(用逗号分隔) 例:2,4,6,8 表达式1 To 表达式2 例: 60 To 100 Is 关系运算符表达式 例: Is 60;例：变量strC中存放了一字符，判断该字符类型。;;1．在选择结构中缺少配对的结束语句 对多行式的If块语句中，应有配对的End If语句结束。 2. 多边选择ElseIf关键字的书写 ElseIf 不要写成Else If。 3. Select Case语句的使用 Select Case 后不能出现多个变量，Case子句后不能出现变量。;3.3 循环结构;3.3 循环结构;一、For/Next语句 ;例：顺序输