Visual Basic 6.0程序设计案例教程 宫强 模块四新.pptVIP

模块四 Visual Basic 6.0程序结构 任务一 输出语句的使用 任务三 判断键盘输入字符的类型 任务四 累积和 任务五 求人口数 任务二 计算圆的周长及面积 任务六 打印“九九表” 任务分析 任务分析: 练习使用输出语句。 理论知识: 顺序结构是按照程序或者程序段书写顺序执行的语句结构。 语句A 语句B 一、赋值语句 j=3*4 二、数据输出语句 Print a Print (x+y)／3 Print Tab(25)；800 三、清除语句 Form1.Cls 理论知识 1、创建窗体 2、窗体添加图片框和按钮控件 ,设置属性 3、代码编写 任务实施 返回 任务分析 任务分析: 从输入框中输入圆的半径，计算圆的周长及面积。题中要求使用输入框输入圆的半径，所以不能在窗体中使用某控件输入半径，那么就应该使用数据输入语句。 理论知识: 一、数据输入语句 InputBox(“请输入圆的半径”, “计算圆的周长和面积) 二、消息框 MsgBox 计算已完成, , 例题 理论知识 1、创建窗体 2、窗体添加标签框、文本框和按钮控件 ,设置属性 3、代码编写 任务实施 返回 任务分析 任务分析: 键盘输入某字符，判断其是何种类型。 实现判断结构必须采用选择控制结构。对于字符的类型划分成三类：字母、数字、其它。所以我们采用Select Case结构较为简单。 理论知识: 一、单分支条件语句 理论知识 F T 条件满足？ 语句块1 End If之后的语句 理论知识: 二、双分支条件语句 理论知识 T（真） F（假） 条件满足？ End If之后的语句 语句块1 语句块2 理论知识: 三、多分支语句（ ElseIf ） 理论知识 理论知识: 三、多分支语句（Seleet Case） 理论知识 F T F 值列表1 语句块1 T F 值列表2 语句块2 T 值列表n 语句块n 1、创建窗体 2、窗体添加标签框、文本框和按钮控件 ,设置属性 3、代码编写 任务实施 返回 任务分析 任务分析: 编写程序，求1—100的累加和。 使用循环结构实现累计求和过程。 理论知识: 循环是在指定的条件下多次重复执行一组语句。For/Next循环控制结构。 理论知识 语句块 Exit For 语句块 循环变量加步长 T F 循环变量得初值 循环变量=终值 1、代码编写 Private Sub Form_Click() Dim I as Integer, s as Integer s = o For I = 1 To 100 s = s + i Next i Print “1至100的 累加和为：”; s End Sub 任务实施 返回 任务分析 任务分析: 我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿。本任务中求的是终值，所以不能使用For/Next循环。此时使用Do/Loop较为简单。解此问题两种方法，可根据公式：26=13*(1+0.008)n。 理论知识: For/Next循环主要用于已知循环次数的情况下，若事先不知道循环次数，可以使用Do/Loop循环语句。 理论知识 F F T T 表达式 语句块1 Exit Do 语句块2 F T F T 表达式 语句块1 Exit Do 语句块2 1、代码编写 Private Sub Command1_Click() x = 13 n = 0 Do While x 26 x = x * 1.008 n = n + 1 Loop Print n, x End Sub 任务实施 返回 任务分析 任务分析: 单击“打印九九乘法表”的按钮，将在本窗体输出九九乘法表。 打印九九表时，既有行的变化，又有列的变化，所以使用循环嵌套能实现。外层循环控制行数，内层循环控制列数。 理论知识: 一个循环体内又包含了一个完整的循环结构称为循环的嵌套，又叫做多重循环。 在嵌套结构中，对嵌套的层数没有限制，有几层嵌套就说是几重循环，如二重循环、三重循环、四重循环等。通常把嵌套在一个循环体内部的循环部分称为内循环，把嵌套了其他循环的循环部分