第4章基本控制结构(顺序结构)讲述.pptVIP

* * * * * * 回顾 第3章 程序设计基础 VB基本数据类型 常量、变量 运算符和表达式 常用内部函数 第4章 基本控制结构 结构化程序设计方法： 1965年， E.W.Dijikstra（迪克斯特拉）提出结构化程序设计方法，该方法使用三种基本控制结构可以构造任何程序。 （1）顺序结构 （2）选择结构 （3）循环结构 A B 一种按出现顺序执行的程序结构。 顺序结构 InputBox MsgBox 顺序结构 InputBox 1、InputBox函数 格式：变量[$]=InputBox（提示[,标题][,默认值]） 功能：产生一个用户可输入数据的对话框。 说明： （1）提示：是一个字符串，是必选项，是对话框 内显示的信息 （2）标题：对话框标题，若省略，显示当前工程名。 （3）默认值：输入区缺省值 （4）执行一次InputBox函数只能输入一个数据, 返回一个字符型数据。 演示 例：a=InputBox(请输入学号:, 输入) Dim a As String a=InputBox(请输入学号:, 输入) Dim b As Integer b=Val(InputBox(“请输入年龄:, 输入)) 用法举例： 演示 MsgBox 2、MsgBox 格式： MsgBox 提示[,按钮][,标题] 变量[%]= MsgBox（提示[,按钮][,标题]） 功能：产生一个等待用户选择的信息框。 返回一个整型值，与选择的按钮有关。P76表1.4.2 P75 表1.4.1 举例： Dim a% a=6 MsgBox 该数据是 a 第2个参数省略，按0对待 用MsgBox实现数据输出 举例：（不需要返回值） 举例：（不需要返回值） MsgBox 确实要删除吗？请选择！ , , 提示 MsgBox 确实要删除吗？请选择！, 64 + 1, 提示 65 输入变量a%值的几种实现方法： a = 1 a = val(text1.text) a = val(InputBox(请输入所需的数据：) 输出变量a值的几种实现方法： [Form1或pictrue1].Print a text1.text = a Label1.caption = a MsgBox 该数据是 a 例2：编写程序计算某个学生三门课程的平均成绩。 要求： 单击“计算”按钮，输入学生的成绩，通过输 出对话框输出该学生的平均分，并在文本框中显示。 界面如下： 演示 dim a as Integer a= MsgBox(提示信息 ,1, 标题) 举例：（需要返回值，决定下一步操作） Cancel为0，窗体被关闭， 为非0，不关闭 例2：关闭窗体时用一个消息框来决定是否关闭。 Private Sub Form_Unload(Cancel As Integer) Dim a as Integer a=MsgBox(你确实要退出应用程序吗？ , _ vbYesNo+vbInformation, 询问对话框) Cancel=a-6 End Sub 演示 例：单击窗体，随机变换窗体背景色 Private Sub Form_Click() Randomize Dim r%, g%, b% r = Int(256 * Rnd) g = Int(256 * Rnd) b = Int(256 * Rnd) Form1.BackColor = RGB(r, g, b) End Sub 时钟控件 属性：Interval（单位为毫秒） Enabled 事件：Timer （每隔Interval时间间隔自动触发。） 例：每隔0.5s随机变换窗体背景色 （时钟控件 interval属性：500） Private Sub Timer1_Timer() Randomize Dim r%, g%, b% r = Int(256 * Rnd) g = Int(256 * Rnd) b = Int(256 * Rnd) Form1.BackColor = RGB(r, g, b) End Sub 练习1：每隔0.1秒自动产生一个【0，100】 范围内随机整数，并输出在文本框上。 练习2：设计如下计时闪烁程序。 滚动条可用作数据输入的工具。 水平滚动条（HScrollBar） 垂直滚动条（VScrollBar） 滚动条(ScrollBar) P100 滚动箭头 滚动条的空白位置 滑块 滚动条的主要属性 属性名 属性值 说 明 Max 数值 当小滑块处于底部或最右位置时，其Value 属性的最大