Visual FoxPro 程序设计教程 教学课件作者 刘瑞新 第4章.pptVIP

* * 第4章 顺序结构程序设计 4.1 顺序结构程序的概念 4.2 基本语句 4.3 输入与输出 4.1 顺序结构程序的概念 {程序结束操作标志块} 结束 {给定问题善后化处理操作块} c块 {所论问题中心处理操作块} b块 {给定问题初始化处理操作块} a块 {程序开始操作标志块} 开始 {程序名称描述部分} 程序名称标识符 4.2 基本语句 4.2.1 赋值语句 赋值语句一般格式为 STORE 〈表达式〉 TO 〈名称列表〉 或 〈名称〉=〈表达式〉 4.2.2 语句的续行 用分号“;”将较长的语句分为两行或多行。 4.2.3 程序注释语句 1. 行首注释 如果要在程序中注释行信息，可以使用行首注释语句，语法格式为 NOTE [〈注释内容〉] 或 * [〈注释内容〉] 2. 行尾注释 如果要在命令语句的尾部加注释信息，应该使用行尾注释语句，其语法格式为 [〈注释内容〉] 4.2.4 程序暂停语句 WAIT语句用来暂停程序的执行并显示提示信息，按任意键或单击鼠标后继续执行程序。其语法格式为 WAIT [〈提示信息〉] [TO 〈内存变量〉] [WINDOW [AT 〈行,列〉]] [TIMEOUT n] 4.2.5 程序结束语句 RELEASE语句的格式为 RELEASE 〈THISFORM〉 Release方法的格式为 〈THISFORM | THISFORMSET〉 Release 4.3 输入与输出 4.3.1 使用标签 【例4-1】使用标签处理单行和多行的信息输出，运行时通过代码来改变输出的内容，如图4-3所示。 内容自动换行 .T. – 真 WordWrap 字体的大小 16 FontSize 标签的背景改为白色 白色 BackColor 有边框的标签 1 – 固定单线 BorderStyle 标签的内容 设计时设置的标签内容 Caption Label2 字体的大小 16 FontSize 标签的内容居中显示 2 – 中央 Alignment 标签的内容 设计时设置的标签内容 Caption Label1 按钮的标题 改变（\C） Caption Command1 说明 属性值 属性 对象 编写命令按钮Command1的Click事件代码： THISFORM.Label1.Caption=运行时修改的标签内容 THISFORM.Label2.Caption= 对于一个较长的或在运行时可能变化的标题，标签提供了+; 两种属性:AutoSize和WordWrap，来改变控件尺寸以适应较长或较短的标题。 THISFORM.Label2.AutoSize=.T. 【例4-2】交换两个变量中的数据，如图4-5所示。 结束 B ? C A ? B C ? A 开始 按钮的标题 交换 Caption Command1 标签的背景色 （白色） BackColor 标签的内容 12345 Caption Label4 标签的背景色 （白色） BackColor 标签的内容 ABCDE Caption Label2 标签的内容 B = Caption Label3 标签的内容 A = Caption Label1 说明 属性值 属性 对象 编写命令按钮Command1的Click事件代码： t = THISFORM.Label2.Caption THISFORM.Label2.Caption = THISFORM.Label4.Caption THISFORM.Label4.Caption = t 【例4-3】设计艺术的标签。可以设计两种形式的艺术标签：一种是投影式标签，一种是立体式标签，如图4-8所示。 设计步骤如下： ① 选择“新建”表单，进入表单设计器，增加一个命令按钮Command1和一个“标签”控件Label1。 ② 修改其属性，见表4-3。 字体颜色为蓝色 0,0,160 ForeColor 设置字体 隶书 FontName 背景类型 0 – 透明 BackStyle 字体的大小 40 FontSize 自动适应大小 .T. – 真 AutoSize 标签的内容 艺术标签 Caption Label1 按钮的标题 关闭 Caption Command1 说明 属性值 属性 对象 4.3.2 使用文本框 【例4-4】利用文本框输入圆的半径，计算出圆的面积，如图4-10所示。 设计步骤如下： ① 建立应用程序用户界面。 ② 设置对象属性。 设为表单的默认按钮 .T. – 真 Defualt 按钮的标题 计算（\C） Caption Com