V B语言程序设计 程序基本结构.ppt

使程序结构清晰 可读性好 也易于查错和修改结构化程序设计方法有三种基本控制结构 顺序结构 选择结构和循环结构具有单入口 单出口的特点 结构化程序的基本结构 顺序结构程序设计 第三章 本章内容 3 1赋值语句3 2注释 结束及暂停语句3 3使用Print方法输出数据3 4窗体和基本控件3 5对话框3 6程序举例 顺序结构 顺序结构的每一个操作是按从上到下的线性顺序执行的 顺序结构语句的流程 程序段落首先执行模块a 接着执行模块b 赋值语句 格式 属性 X 3 5 Text3 Text Text1 Text Text2 Text功能 先计算 再将其值赋给变量或指定对象的属性 注意事项 1 只能给一个变量或对象的一个属性赋值 赋值号左边只能是变量 不能是常量 表达式 2 可以是变量 常量 函数和表达式 赋值语句 注意事项 3 赋值号和等于的区别Ifx yThenz xElsez yEndif 赋值语句 注意事项 4 类型转换问题赋值号右边的数据类型转换成赋值号左边的数据类型 再赋值 n 5 6 m 56 n 6 5 一条赋值语句只能给一个变量赋值 x y z 9 x的值为0或False y z没有被赋值 例3 1给定一个两位数 如36 交换个位数和十位数的位置 把处理后的数显示在窗体上 编写的窗体单击事件过程代码如下 PrivateSubForm Click DimxAsInteger aAsIntegerDimbAsInteger cAsIntegerx 36a Int x 10 求十位数 a x 10b xMod10 求个位数 b x 10 ac b 10 a 生成新的数Print 处理后的数 cEndSub运行程序后单击窗体 输出结果是 处理后的数 63 一个基本算法 交换两个变量的值 已知两个变量x 5 y 8 算法 设一个中间变量t 利用赋值语句完成 t x x y y t 8 5 5 8 x y t 5 一个基本算法 交换两个变量的值 已知两个变量x 5 y 8 算法 不借助其它变量 通过 和 运算来实现 x x y x 13y 8y x y x 13y 5x x y x 8y 5 例3 2设计程序 实现两个文本框内容的交换 1 在窗体上建立两个标签 两个文本框和一个命令按钮 2 编写程序代码借助于另一个变量 假设为t 并直接在控件中交换数据PrivateSubCommand1 Click DimtAsStringt Text1 TextText1 Text Text2 TextText2 Text tEndSub 注释语句 格式 注释内容或Rem注释内容功能 注释语句用来对程序或程序中某些语句作注释 以便于程序的阅读和理解 注释语句 说明 1 注释语句是非执行语句 对程序的执行结果没有任何影响 仅在列程序清单时 其内容被列出 2 注释语句作为一个独立行 可放在过程 模块的开头作为标题 也可以放在执行语句的后面 Rem注释内容 不能放在执行语句的后面如 x x 1 将变量x的值加上1后再赋 暂停语句 格式 Stop功能 暂时停止程序的运行 说明 1 Stop可以放置在过程中的任何地方 相当于在程序代码中设置断点 当执行Stop语句时 系统将自动打开 立即窗口 方便程序员调试跟踪程序 暂停语句 说明 2 在程序调试通过之后 生成可执行文件 exe文件 之前 应删去代码中的所有Stop语句 3 也可以通过单击工具栏上的 中断 按钮来实现 4 若无法正常结束程序 例如死循环的情况 使用Ctrl Pause Break组合键 可强制程序暂停运行 结束语句 格式 End功能 程序运行时 遇到结束语句就终止程序的运行 结束语句 说明 End语句除用来结束程序外 在不同环境下还有其他一些用途 包括 EndSub 结束一个Sub过程EndFunction 结束一个Function过程EndIf 结束一个If语句块EndType 结束记录类型的定义EndSelect 结束情况语句 Print方法 格式 对象 Print Spc n Tab n 表达式列表 功能 在窗体 图形框或打印机对象上输出信息 省略对象则在窗体上输出 说明 分号 光标定位在上一个显示的字符后 逗号 光标定位在下一个打印区 14列 的开始位置处 省略表达式列表 则输出一个空行 例 Print 若语句末尾没有分隔符 输出内容后自动换行 例3 3Print输出示例PrivateSubForm Click a 3 b 4Printa b 4 a Print2 bPrinta bPrintPrint a a b bEndSub运行结果 1 Spc函数格式 Spc n 功能 在输出下一项之前插入n个空格 例如 Print 学号 Spc 2 姓名 Spc 5 成绩 输出结果 表示空格 学号 姓名 成绩 特殊打印格式 函数格式 Tab n 功能 把输出位置移到第n列 例如 PrintTab 2 学号 Tab 11 姓名 Tab 21 成绩 输出结果是 1个汉字占2个位置 学号 姓名 成绩 2 Tab函数 格式 Format 表达式 格式串 功能 根据格式串规定的格式来输出表达式的值示例PrintFormat 12345 6 千位分隔符PrintFormat 12345 6 0000000 PrintFormat 12345 6 00 输出结果是 12 345 60012346 12 345 60数字占位符格式符号 和0都能显示数字 但符号 会剔除不必要的0 符号0会按规定补足0 3 Format函数 举例 PrintFormat 12345 67 千位分隔符PrintFormat 123 45 0 000E 00 输出结果是 12 345 71 235E 02 窗体 窗体 Form 是设计VB应用程序的基本平台 用户界面 窗体本身是一个对象 又是其他对象的载体或容器 通常应用程序是从窗体开始执行的 一个程序可以有多个窗体 窗体 窗体的主要属性 1 窗体的主要属性 2 窗体的主要属性 3 窗体的常用事件 1 Click事件 鼠标单击窗体时被触发 2 DblClick事件 鼠标双击窗体时被触发 3 Load事件 当窗体被加载装入内存时被触发 启动程序时 首先执行Form Load事件 4 UnLoad事件 当从内存中清除一个窗体时被触发 窗体的常用方法 1 Show方法 用于快速显示一个窗体 使该窗体变成活动窗体 例如 PrivateSubForm Load ShowPrint 窗体已被 how显示出来 EndSub 2 Print方法 用于在窗体上输出表达式的值 3 Cls方法 用于清除运行时在窗体中显示的文本或图形 4 Move 移动 方法 用于移动并改变窗体或控件的位置和大小 启动程序时 系统先自动执行本过程 但窗体未被显示出来 通过Show显示窗体 使后续的Print输出内容可见 Move方法 格式 对象 Move左边距离 上边距离 宽度 高度 功能 移动窗体或控件 并可改变其大小 说明 对象可以是除时钟 菜单以外的所有控件 省略为窗体 对象的左边距离和上边距离是以窗体的左边界和上边界为基准 窗体以屏幕的左上角为基准 宽度和高度表示可以改变对象的大小 例 当用户运行程序 在标题栏显示 装入窗体 单击窗体 在标题栏显示 鼠标单击 在窗体上显示 单击窗体 当用户双击窗体 在标题栏显示 鼠标双击 并在窗体上显示 双击窗体 Load事件 Caption属性 Click事件 Caption属性 Print方法 DblClick事件 Caption属性 Print方法 例1 3代码及结果 设置以下3个命令按钮 显示 按钮 用于显示唐诗 静夜思 清除 按钮 用于清除所生成的文本 结束 按钮 结束程序的运行设计步骤如下 1 创建应用程序的用户界面和设置对象的属性 例3 4显示唐诗 静夜思 2 编写程序代码 三个按钮的事件过程代码 PrivateSubCmdPrt Click BackColor RGB 255 255 255 背景颜色 白色ForeColor RGB 0 0 255 前景颜色 蓝色FontName 楷体 GB2312 FontSize 20FontBold True 粗体CurrentX 1200 CurrentY 350 设置当前位置Print 静夜思 唐诗 Print 空一行FontName 幼圆 FontSize 13PrintSpc 6 床前明月光 疑是地上霜 PrintPrintSpc 6 举头望明月 低头思故乡 EndSub PrivateSubCmdCls Click ClsEndSubPrivateSubCmdEnd Click EndEndSub程序运行后 单击 显示 按钮 输出结果 下一节 RGB 函数 格式 RGB Red Green Blue 说明 1 Red 数值范围从0到255 表示颜色的红色成份 2 Green 数值范围从0到255 表示颜色的绿色成份 3 Blue 数值范围从0到255 表示颜色的蓝色成份 RGB 函数 格式 RGB Red Green Blue 说明 4 RGB函数的参数值 如果超过255 系统作为255来处理 例如 将Form1的背景颜色设置为洋红色 Form1 BackColor RGB 255 0 255 常见的标准颜色 返回 基本控件 三种基本控件 命令按钮 标签和文本框命令按钮 CommandButten 标签 Label 文本框 TextBox 控件的分类 VB的控件可分为以下三类 课本P14 标准控件ActiveX控件可插入对象 1 标准控件 标准控件又称为内部控件 是VB系统本身所内嵌的控件 这些控件总是显示在工具箱中 不能从工具箱中删除 启动VB6 0后 在工作界面上 工具箱中列出的都是标准控件 2 ActiveX控件 主要是由第三方厂商提供的控件 它以独立文件的形式存储在磁盘上 其文件扩展名为 OCX 添加ActiveX控件的步骤如下 选择菜单 工程 部件 命令 弹出 部件 对话框 在 控件 选项卡中 选定要添加的ActiveX控件名称左边的复选框 单击 确定 按钮 关闭 部件 对话框 所有选定的ActiveX控件将出现在VB控件工具箱中 3 可插入对象 例如 将Excel工作表对象添加到工具箱中 鼠标右击常用工具箱 在弹出快捷菜单中选择 部件 命令 弹出 部件 对话框 在 可插入对象 选项卡中 选中 MicrosoftExcel工作表 复选框 单击 确定 按钮 在工具箱中即可加入 MicrosoftExcel工作表对象 图标 可插入对象是由其他应用程序创建的对象 利用可插入对象 就可以在VB应用程序中使用其他应用程序的对象 通常称为OLE对象 控件的通用特性 1 公共属性 1 名称 name 属性每个控件都有名称属性 用于程序中对控件的辨别和操作 唯一能区别和辨别不同控件的属性 2 Caption属性 对象的标题可以在Caption属性中为控件指定一个访问键例如 Command1 Caption 结束 E 运行时只要用户同时按下Alt键和E键 就能执行该按钮命令 3 Enabled属性 决定控件是否对用户产生的事件作出响应 4 Visible属性 决定控件是否可见 默认值为True 控件的通用特性 2 控件的值属性所有的控件都有一个与控件值有关的属性 称为值属性或默认属性 例如 Text1 AB 该语句等价于 Text1 text AB Label1 输入数 等价于 Label1 Caption 输入数 常见控件的默认属性 3 焦点 课本P55 在窗体上 任何时候用户都只能操作其中的一个控件对象 这个被操作的对象称它获得焦点 下列方法可以将焦点赋予对象 运行时用鼠标选择对象 运行时用快捷键选择对象 运行时按Tab键将焦点移到对象上 Tab键序 TabIndex 在程序代码中用SetFocus方法 Text1 SetFocus 4 访问键 快捷键 访问键是通过键盘来访问控件的 可以在Caption属性中为控件指定一个访问键 例如设置两个按钮的属性为 Command1 Caption 关闭 C Command2 Caption Exit 则运行时可分别按Alt C或Alt E 相当于分别单击两个按钮 5 容器窗体 Form 框架 Frame 和图片框 PictureBox 等都可以作为其他控件的容器 移动容器 容器中的控件也随之移动 容器中控件的Left和Top属性值是指其在容器里的位置 容器的Left和Top属性值是指容器在窗体或在屏幕中的位置 命令按钮 命令按钮 CommandButton 是VisualBasic6 0应用程序中最常用的控件 用户可以通过单击命令按钮执行一些操作 主要用于启动或中断一个处理过程 命令按钮的主要事件 命令按钮通常响应Click事件但不支持DblClick事件命令按钮的方法是SetFocus方法 命令按钮的常用属性 标签 标签 Label 主要用于显示一小段文本信息 通常用来标注本身不具有Caption属性的控件 如利用标签给文本框控件附加描述信息等 标签控件的内容只能用Caption属性进行设置或修改 不能直接编辑 标签通常响应Click事件和DblClick事件标签支持Move方法 用于实现控件的移动 标签的主要属性 例 在窗体中建立3个标签 各标签的主要属性设置如表所示 其对应效果如图所示 例 设计及结果 例 标签设计及结果 文本框 文本框 TextBox 为用户提供了一个编辑文本的区域 在此区域中既能够显示又能够编辑文本信息 文本框的常用方法 SetFocus方法 可以使文本框获得焦点 即光标移到指定的文本框对象中 调用该方法的格式为 文本框对象 SetFocus 文本框的常用属性 1 文本框的常用属性 2 文本框的常用事件 1 Change事件 当改变文本框的Text属性时会引发该事件 用户每输入一个字符 将引发一次Change事件 2 GotFocus事件 当控件获得焦点时发生 3 LostFocus事件 当控件失去焦点时发生 4 KeyPress事件 与Change事件相同 并会自动返回一个KeyAscii参数 此参数即为用户按下的键符的Ascii码 例 编写程序 用文本框检查用户输入的口令 在窗体上建立一个文本框 将其PasswordChar属性值设置为 Text属性为空 其他属性使用默认值 设置正确口令为 123456 代码 例 在窗体中建立4个文本框 它们的属性均可使用默认值 观察文本框的Change事件 例1 7程序代码 输入输出对话框 一个完整的计算机程序通常由四部分组成 即说明 输入 处理和输出 其中输入和输出是程序提供给用户的一个交互式的平台 是程序和用户进行信息交流的通道 VB语言也提供了能实现这样的功能的函数和语句 下面介绍VB提供的输入和输出数据的两个函数 即InputBox函数和MsgBox函数 InputBox函数 格式 变量 InputBox 提示 标题 默认值 xpos ypos 功能 产生一个对话框 通过对话框用户可以输入数据 函数返回值是字符型 X InputBox 请输入文件名 不超过8个字符 文件名 vbfile InputBox函数 说明 1 提示 是一个字符串 是必选项 是对话框内显示的提示信息 2 标题 对话框标题 3 默认值 输入区缺省值 4 xpos和ypos 是对话框与屏幕左边界的距离 5 每执行一次InputBox函数只能输入一个数据 例3 6 任意输入三个数 求由这三个数组成的三角形的面积 字符型转换为数值型 在窗体上有一个文本框 然后编写如下事件过程 PrivateSubForm Click x InputBox 请输入一个整数 Printx Text1 textEndSub程序运行时 在文本框中输入456 然后单击窗体 在输入对话框中输入123 单击 确定 按钮后 在窗体上显示的内容是A 123B 456C 579D 123456 D 思考题 想一想 MsgBox函数和MsgBox过程 函数形式 变量 MsgBox 提示 对话框类型 标题 过程形式 MsgBox提示 按钮图标类型 标题 MsgBox 输入文件名是否正确 52 请确认 MsgBox函数和MsgBox过程 功能 MsgBox函数打开一个信息框 等待用户选择一个按钮 并可根据用户在对话框上的选择进行对应的响应 此函数返回一个整型值 以决定其后的操作 MsgBox说明 1 提示 是提示信息 2 类型 是由表示按钮的类型 显示图标的样式 默认活动按钮 这3类数值相加产生 默认值为0 类型的取值和意义 类型的取值和意义 类型的取值和意义 类型说明 第一组值 0 5 描述了对话框中显示的按钮的类型与数目 第二组值 16 32 48 64 指定对话框显示的图标样式 第三组值 0 256 512 768 指明默认活动按钮 MsgBox 输入文件名是否正确 52 请确认 5 MsgBox函数的返回值是一个整数 这个整数与选择的按钮有关 例 单击按钮实验 3 32 输出消息框 已知 MsgBox 确实要删除吗 请选择 执行该语句后屏幕出现一个对话窗口 如下图所示 过程形式 1 创建应用程序的用户界面和设置对象属性 2 编写程序代码 例3 6设计一个密码输入的简单检验程序 密码假定为 123456 密码输入时在屏幕上不显示输入的字符 而以 代替 图3 13密码检验运行界面图3 14密码输入错误时弹出的消息框 PrivateSubForm Load Text1 PasswordChar Text1 Text EndSub PrivateSubCommand1 Click DimpAsIntegerIfText1 Text 123456 ThenMsgBox 欢迎您用机 Elsep MsgBox 密码错误 5 48 输入密码 Ifp 4Then 4表示单击了 重试 按钮Text1 SetFocusElseMsgBox 密码错误 不重试了 EndEndIfEndIfEndSub 例3 7控制窗体 变大 和 变小 在窗体上设置三个命令按钮 程序进入运行状态后 当单击 窗体变大 命令按钮时 窗体变大 单击 窗体变小 按钮时 窗体变小 单击 退出 按钮时 则退出 1 建立应用程序的用户界面和设置对象属性 2 编写程序代码PrivateSubForm Load Form1 Height 4000Form1 Width 4000Form1 Top 1000 设置窗体的初始位置 y Form1 Left 1000 设置窗体的初始位置 x EndSubPrivateSubCommand1 Click 窗体变大 按钮Form1 Height Form1 Height 200 每次增加200点Form1 Width Form1 Width 200EndSubPrivateSubCommand2 Click 窗体变小 按钮Form1 Height Form1 Height 200 每次减少200点Form1 Width Form1 Width 200EndSub 在第一个文本框中输入文字时 在另外两个文本框中显示同样相同的内容 但显示的