程序的顺序结构.ppt

第三章顺序结构程序设计 从计算机程序的结构来看 一个计算机程序总是由如下3种基本结构 顺序结构 选择结构 循环结构组成 本章介绍顺序结构及其相关的语句 顺序结构由赋值 输入 输出等语句或函数 过程组成 这些语句不会改变程序的流程 总是在执行完后 接着执行程序的下一语句 3 1赋值语句3 2数据输入3 3数据输出3 4暂停 Stop 结束 End 语句 3 1赋值语句 赋值语句 Let 的格式是 Let 说明 1 关键字Let可不写 2 按标识符命名规则定义 3 变量未赋值时 数值型变量的值为0 字符串变量的值为空串 4 赋值号与数学中的等号意义不同 5 赋值号左边必须是单个的变量或对象属性 6 变量名或对象属性名的类型应与表达式的类型相容 例3 1 交换两个变量的值 按照下图设计界面 两个变量的值分别输入到界面上的两个标签中 并对标签做如下图所示的属性设置 单击按钮 交换两个变量的值 两个文本框中的内容马上交换并显示出来 例3 1 3 2数据输入 3 2 1用输入框 InputBox 输入数据3 2 2用文本框 TextBox 输入数据 3 2 1用输入框输入数据 InputBox函数是输入函数 该函数提供一个对话框给用户进行数值和文本的输入 函数格式是 InputBox 功能 用对话框形式让用户进行数值和文本数据输入 所输入的内容由函数值返回 3 2 1用输入框输入数据 说明 1 为运行时在对话框中需显示的附加信息 本项为字符串 必须设定 2 为运行时对话框的标题 如不设定 则为该工程的名字 3 为运行时出现在对话框中文本框里的默认值 如不设定 对话框中的文本框为空 4 和控制对话框在窗体中出现的位置 5 当InputBox函数被执行时 用户可以在出现的对话框中的文本框里输入 所输入的内容由函数值返回 6 在格式中 如省略某个语法成分不写 则其前方的逗号 必须写上 例3 2 求两个整数之和 按照下图设计界面 两个加数由InputBox函数提供 点击 加数输入 按钮 依次弹出左图所示对话框 输入加数 点击 求和 按钮 计算两数之和并显示在相应文本框中 例3 2 3 2 2用文本框输入数据 1 文本框的常用属性 1 Text属性 文本框的默认属性为Text 即文本框中显示的文本 是文本框最重要的属性 2 MultiLine属性 逻辑型 当MultiLine属性为True时 文本框可以输入或显示多行文本 且会在输入的内容超出文本框时自动换行 默认值为False 3 Locked属性 逻辑型 默认值为False 若设置为True 则文本框只能显示文本 不能输入或编辑文本 3 2 2用文本框输入数据 1 文本框的常用属性 4 MaxLength属性 用于限制用户在文本框中输入的字数 默认值为0 即不限制字数 注意 VB中一个汉字的长度相当于一个西文字符 5 PasswordChar属性 字符串类型 当MultiLine属性值为False时 该属性可以用于口令输入 如果把PasswordChar属性设置为一个字符 如星号 则在文本框中键入字符时 只显示星号 不显示键入的字符 但是Text属性接收的仍是用户输入的文本 3 2 2用文本框输入数据 1 文本框的常用属性 6 ScrollBars属性 数值型 该属性用于确定文本框是否带滚动条 有以下4种选择 0 None没有滚动条1 Horizontal只有水平滚动条2 Vertical只有垂直滚动条3 Both同时具有水平和垂直滚动条只有当MultiLine属性值为True时 文本框才显示滚动条 3 2 2用文本框输入数据 1 文本框的常用属性 7 SelStart SelLength SelText属性 这三个属性不能在属性窗口中设置 只能在代码窗口中设置 SelStart 在代码中指定从文本框中的第几个字符开始选定 注 文本框中第一个字符的位置是0 或当用户用鼠标拖动选定时返回其选定文本的开始位置 SelLength 选定的文本的长度 SelText 选定文本的内容 其实 设置了SelStart和SelLength 即选定了文本 VB会自动将选定的文本送入SelText存放 3 2 2用文本框输入数据 1 文本框的常用属性 8 TabIndex TabStop属性 这两个属性用于控制Tab键序 TabIndex属性TabIndex属性决定控件接收焦点的顺序 当在窗体上画出第一个控件时 VB分配给控件的TabIndex属性默认值为0 第二个为1 第三个为2 依次类推 TabStop属性TabStop属性决定焦点是否能够停留在该控件上 将控件的TabStop属性设为False 便可将此控件从键序中删除 但仍然保持它在实际Tab键序中的位置 只不过在按Tab键时这个控件将被跳过 3 2 2用文本框输入数据 2 事件和方法文本框除了支持鼠标的Click DblClick事件外 还支持Change GotFocus LostFocus KeyPress等事件和SetFocus方法 1 Change事件 当用户向文本框输入新的内容 或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时 将触发Change事件 例3 3 按照下图设计界面 在上面的文本框中输入和编辑文本 在下面的文本框中同步显示不同格式的相应文本 例3 3 3 2 2用文本框输入数据 2 事件和方法 2 GotFocus事件 当运行时用Tab键或用鼠标选择对象 或用SetFocus方法使光标落在对象上时 触发该事件 称之为 获得焦点 该事件适用于窗体和大部分可接受键盘输入的控件 3 LostFocus事件 当按下Tab键使光标离开当前文本框 或者用鼠标选择窗体的其他对象时触发该事件 称之为 失去焦点 例3 4 改写例3 2 两个加数直接由文本框输入 按照下图设计界面 例3 4 3 2 2用文本框输入数据 2 事件和方法 4 KeyPress事件 当在键盘上按下某个特殊键时触发该事件 KeyPress事件返回一个参数KeyAscii 该参数值为整数 表示所按下键的ASCII码值 例3 5在窗体上建立一个文本框 将输入到文本框中的大写字母直接转换为小写 界面如下图所示 例3 5 3 2 2用文本框输入数据 2 事件和方法 5 SetFocus方法 SetFocus方法是文本框常用的方法 该方法是把光标移到指定的文本框中 使该文本框获得焦点 当在窗体上建立了多个文本框后 可以使用该方法把光标置于所需要的文本框上 使用格式如下 SetFocus例如 将焦点定位在文本框Text1中 使用语句 Text1 SetFocus 3 3数据输出 3 3 1用Print方法输出数据3 3 2用消息框 MsgBox 输出数据3 3 3用文本框 TextBox 输出数据3 3 4用标签 Label 输出数据 3 3 1用Print方法输出数据 1 Print方法 2 与Print方法有关的函数 3 3 1用Print方法输出数据 1 Print方法Print方法可以在窗体 图片框 打印机和立即窗口等对象上输出数据 其语法格式为 Print 说明 1 格式中的可以是窗体Form 图片框PictureBox或打印机Printer 如果省略 则在当前窗体上直接输出 2 是一个或多个表达式 可以是数字表达式或字符串 对于数值表达式 将输出表达式的值 对于字符串 则照原样输出 对于变量 则输出变量的内容 后如不加逗号 或分号 则表示下一次再用Print打印输出时将在新的一行开始 3 3 1用Print方法输出数据 1 Print方法 说明 3 当输出多个表达式时 各表达式之间用分隔符逗号 或分号 隔开 如果使用逗号分隔符 则各输出项按标准输出 分区输出 格式显示 此时 以14个字符宽度为单位将输出行分为若干区段 逗号后面的表达式在下一个区段输出 如果使用分号分隔符 则按紧凑格式输出 即数值型数据后多一个空格 字符串后没有空格 3 3 1用Print方法输出数据 1 Print方法 说明 4 如果在语句行的末尾使用逗号分隔符 则下一个Print输出的内容将在当前Print所输出信息的下一个分区显示 如果在语句行的末尾使用分号分隔符 则下一个Print输出的内容将紧跟在当前Print所输出的信息后面 如果省略语句行末尾的分隔符 则Print方法将自动换行 5 Print方法具有计算和输出的双重功能 对于表达式 总是先计算后输出 3 3 1用Print方法输出数据 2 与Print方法有关的函数 1 Tab函数在Print方法中 可以使用Tab函数对输出定位 其格式为 Tab n 说明 1 n为数值表达式 其值为一整数 Tab函数把显示或打印位置移到由参数n指定的列数 从此列开始输出数据 要输出的内容放在Tab函数后面 并用分号隔开 2 通常最左边的列号为1 如果当前的显示位置已经超过n 则自动下移一行 当n大于行的宽度时 显示位置为 nMod 3 当在一个Print方法中有多个Tab函数时 每个Tab函数对应一个输出项 各输出项之间用分号隔开 3 3 1用Print方法输出数据 2 与Print方法有关的函数 2 Spc函数在Print方法中 也可以使用Spc函数来对输出进行定位 与Tab函数不同 Spc函数提供若干空格 其格式为 Spc n 说明 1 n为数值表达式 其值为一整数 表示在显示或打印下一个表达式之前插入的空格数 2 Spc函数与输出项之间用分号隔开 3 当Print方法与不同大小的字体一起使用时 使用Spc函数打印的空格字符的宽度总是等于选用字体内以磅数为单位的所有字符的平均宽度 例3 6 用Print方法输出数据到窗体上 输出结果如下图所示 例3 6 3 3 2用消息框输出数据 在Windows中 如果操作有误 通常会在屏幕上显示一个对话框 提示用户进行选择 然后系统根据选择确定其后的操作 VB提供的MsgBox函数就可以实现此功能 它可以向用户传送信息 并可以接收用户在对话框上的选择 以此作为程序继续执行的依据 函数格式为 MsgBox 功能 用对话框形式为用户提供信息并要求用户单击其中一个按钮作答 用户单击了哪个按钮 由函数返回代表该按钮类型的整数值 3 3 2用消息框输出数据 说明 1 为运行时在对话框中显示的为用户提供的文本信息 本项为字符串 必须设定 无提示时 可设定为空值 2 为运行时出现在对话框中的标题 如不设定 则为该工程的名字 3 为运行时出现在对话框中的按钮类型组合 如不设定 则只出现 确定 按钮 4 如果省略了某些参数 相应的逗号分隔符不能省略 5 当MsgBox函数被执行时 出现的对话框中按钮类型个数 类型由的整数值确定 具体设置值见表3 4 函数返回的值代表该类型按钮 具体返回值见表3 5 3 3 2用消息框输出数据 例如 Dims xAsIntegers 数据输入错误 vbCrLf 结束程序运行 按终止 s s vbCrLf 重新输入 按重试 vbCrLf 放弃 按忽略 x MsgBox s vbAbortRetryIgnore 信息框例子 依次执行上面的语句后 显示的信息对话框如下图所示 当用户按 终止 重试 忽略 按钮时其值分别为3 4 5并赋值给x 3 3 3用文本框输出数据 前面介绍了如何用文本框输入数据 实际上 也可以用文本框输出数据 使用文本框输出结果时 如果不希望用户在界面上修改结果 可以将文本框的Locked属性设置为True 见例3 3 3 3 4用标签输出数据 VB提供的标签控件只能显示文本 不能对文本进行编辑 标签通常用于标注本身不具有Caption属性的控件 也常用于输出 1 属性1 Caption属性 字符型 标签的标题 2 Alignment属性 数值型 确定标签中标题的对齐方式 3 AutoSize属性 布尔型 设置为True时 可根据标题自动调整标签的大小 设置为False 缺省值 时 标签保持设计时定义的大小 太长的标题内容将不能显示出来 3 3 4用标签输出数据 1 属性4 BorderStyle属性 数值型 设置标签的边框 在默认情况下 该属性值为0 标签无边框 设置为1时 标签有边框 5 BackStyle属性 数值型 缺省值为1 标签不透明 设置为0时 标签透明 6 WordWrap属性 布尔型 设置为True时 标签将在垂直方向变化大小以与标题相适应 此时AutoSize属性值应设置为True 设置为False 缺省值 时 标签不能在垂直方向上扩展 例3 7 编一程序 令开始运行时标签为无边框 背景为白色 然后单击一命令按钮后标签变为有边框 背景为粉红色 并且改变其显示的文本内容 如下图所示 例3 7 3 3 4用标签输出数据 2 事件标签控件可以支持Click DblClick等事件 例如 设窗体上有一个标签控件Label1 其AutoSize属性值为True 双击该标签控件 则标签的标题字体增加4磅 可以通过如下代码实现 PrivateSubLab