VB程序的设计04.pptVIP

第四章 VB基本控制结构 学习目标 VB程序的基本结构：顺序、分支与循环 赋值语句 Print语句 分支语句 VB的基本控制结构 顺序 选择 循环 顺序结构 顺序结构: -流程方向：自上而下 赋值语句 　　　变量＝表达式 或： 　　　对象.属性＝ 表达式 赋值语句 说明： -赋值号左边只能是变量或对象的属性，不允许常量、表达式。 -赋值号右边允许变量、常量、函数调用等表达式形式均为 -赋值号两边的数据类型一般要求一致，特殊规则如下： 均为数值型，但精度不同，强制转换为左边变量的精度 如a%=5.6142,　执行后a值为6 当左边为数值型，右边为数值字符串时，自动转换为数值型再赋值。当右边含有非数值字符时，出错。 如c%=“123”, 执行后c值为123；d%=“”，则出错 任何非字符类型赋给字符类型都自动转换为字符类型。 如s$=123 逻辑型变量赋给数值型时，真按-1、假按0处理，反之数值型赋给逻辑型时，非0转换为True，0转换为False。 如 x%=true 赋值语句的使用 示例１：交换赋值 　　　temp=a : a=b : b=temp 示例２： 通过代码修改控件属性 -本例中，在初始窗体中任意画一个按钮，运行后将定位于代码所设置的大小和位置，并显示相应标题。 Private Sub cmdshang_Click() 　cmdshang.Caption = 上按钮 　txtshang.Text = 你好！ End Sub Private Sub cmdxia_Click() 　cmdxia.Caption = 下按钮 　txtxia.Text = hello！ End Sub 数据的输出 数据的输出： －可用文本框、标签显示相应数据 例：r=2 : Text1=2*3.1415926*r －可用Msgbox语句（函数）输出： 例：Msgbox “圆的面积为” S, 48, ”提示” －可用Print语句实现 例：Print a Print 语句 格式 　　　　[对象名].Print　[表达式列表] 说明 - 若省略对象名，表示在当前窗体输出 - 对象名可以是窗体名、图片框名、立即窗口名。如： Form1.Print “Hello” Picture1.Print “Hello” Debug.Print “Hello” - 若省略表达式列表时，表示输出空行 - 表达式列表可由分号（空格）、或由逗号分隔，逗号称标准格式，分号称紧凑格式。 Print 语句 示例１： Private Sub Form_Click() 　Dim a%, b% a = 2: b = 3 Print a=; a, b=; b Print a=, a, b=, b Print Print String(50, =) Print a=; a, Tab(10); b=; b Print a=; a, Space(10); b=; b Print String(50, =) End Sub 说明：tab(n)代表从第n列开始输出 Print 语句 示例２： 选择结构 特点：根据用户设定条件，选择执行其中的 某个分支。 分类： 单分支：用If 语句描述 双分支：同上 多分支：同上，或采用Select 语句 单分支的if语句 单分支： if 条件 then Ａ end if 单分支的if语句 错误的写法： 示例 输入三个数，求其中最大者 分析：打擂法 思考： Private Sub Command1_Click() 　Dim m!, n!, p!, min! 　m = InputBox(请输入第一个数, 输入框) 　n = InputBox(请输入第二个数, 输入框) 　p = InputBox(请输入第三个数, 输入框) 　min = m 　If n min Then min = n 　If p min Then min = p 　Print 　Print m; “,”; n; “,”; p; “这三个数中最小的数是: 　Print 　Print min End Sub Private Sub Command2_Click() 　End End Sub 双分支的if语句 双分支： 　if 条件 then 　　　A else 　　　B end if 要点： if – then – else – end if N-S 图 由Nassi 和Shneiderman提出的流程图，比如双分支的N－S图为： 示例 设计程序，判断某一个年份是否为闰年。 －闰年：366天