第4章程序设计结构精选.pptx

第4章 程序设计结构;结构化程序设计的基本控制结构有三种，即顺序结构、选择结构和循环结构。;?;例4.2 根据提示输入直角三角形的两条直角边长，求直角三角形的斜边、周长和面积。 表4-3 例4.2所使用的控件属性及说明;Public Class Form1 ? Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim a, b, c, p, h, area As Double a = TextBox1.Text b = TextBox2.Text c = Math.Sqrt(a ^ 2 + b ^ 2) Label3.Text = 直角三角形三边分别为: a=“ a _ ， b= b ， c= Format(c, 0.00) vbCrLf p = a + b + c : h = p / 2 area = Math.Sqrt(p * (p - a) * (p - b) * (p - c)) Label3.Text = 直角三角形的周长= Format(p, 0.00)_ ，面积= Format(area, 0.00) ? End Sub End Class ;4.2 选择结构 在日常生活和工作中，常常需要对给定的条件进行分析、比较和判断，并根据判断结果采取不同的操作。在Visual Basic中，这样的问题通过选择结构程序来解决，而选择结构可以使用If语句、Select Case语句来实现。 ;4.2.1 If … Then … Else 语句 If … Then … Else 条件语句包含三种形式： 单分支、双分支、多分支。 1. 单分支结构 If … Then 语句 格式1： If 条件表达式 Then 语句 格式2： If 条件表达式 Then 语句块 End If ;例4.3 输入两个数x和y，编程使得x的值始终大于y。运行结果如图4-5所示。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim x As Integer, y As Integer, t As Integer x = Val(TextBox1.Text) y = Val(TextBox2.Text) If x y Then t = x x = y y = t End If TextBox3.Text = x TextBox4.Text = y End Sub End Class;?;2. 双分支结构If…Then…Else语句 使用If…Then…Else语句可以定义两个语句块，Visual Basic程序可以根据检测的结果执行其中的一个语句块。既可以书写在单行中，也可以书写在多行中，其语句格式如下： 格式1： If 条件 Then 语句 Else 语句 格式2： If 条件 Then 语句块1 Else 语句块2 End If;?;例4.6 输入的一串英文字母，分别统计其中大写字母和小写字母的个数。 Public Class Form1 ? Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim c As String, i, cu, cl As Integer c = Trim(TextBox1.Text) cu = 0 : cl = 0 For i = 1 To Len(c) If Mid(c, i, 1) = a And Mid(c, i, 1) = z Then cl = cl + 1 Else