第3章 Visual Basic程序控制结构.ppt

1 任课教师 段淑敏TelQ 8505974Email duanshumin VisualBasic程序设计 2 第三章VisualBasic程序控制结构 3 1顺序结构 3 3 1顺序结构 顺序结构 编写程序时 我们一条一条地书写指令 如果按照指令的书写顺序执行程序 这种结构就是顺序结构 指令一 指令二 指令三 4 赋值语句Let是VB程序最常用 最基本的语句 它能为变量提供数据 另外 若要在程序代码中设置对象的属性 也要使用赋值语句 赋值语句格式 Let Let表示赋值 通常省略 x 2 把2赋给x是变量或属性的名称可以是算数表达式 字符串表达式 关系表达式或逻辑表达式 其类型应与变量名的类型一致 否则会出现 类型不匹配 的错误 当同时为数值型但精度不同时 强制转换成 左边的精度 3 1 1赋值语句 5 赋值语句的作用是 首先计算 右边表达式的值 然后将该值赋给 左边的变量或对象的属性 赋值号不是数学上的等号 语句a 2 应读作 将数值2赋给变量a 或 使变量a的值等于2 例 x 2 把2赋给xy x 3 计算x 3的值 得6 把6赋给yx x 1 计算x 1的值 得3 把3赋给xa Hello 把 Hello 赋给aText1 Text 你好 把 你好 赋给Text1的Text属性 6 数据输出 一个没有输出操作的程序没有什么实用价值 VB的输出操作包括文本信息的输出和图形图像的输出 1 使用Print方法实现数据输出 可以在窗体上输出文本字符串或表达式的值 并可在其他图形对象或打印机上输出信息 3 1 2数据输入和输出 7 语法格式 Print 使用Print方法将数据输出到窗体 应先使用Show 显示 方法 否则输出数据不可见 窗体如Form1 Print Hello 图片框如Picture1 Print Hello 打印机如Printer Print Hello 立即窗口如Debug Print Hello 省略 默认为当前窗体 一个或多个表达式使用逗号或分号隔开 输出多个表达式时 各表达式之间用分隔符 或 隔开 分号 后一项紧跟前一项输出 数值型数据后多一个空格 字符串后没有空格 逗号 以14个字符宽度为单位把一个输出行分成若干区段 8 PrivateSubForm Load ShowPrint 12345678901234567890 Print 2 4 2 4Print 2 4 2 4EndSub 例 9 PrivateSubForm Load ShowPrint 12345678901234567890 Print 2 4 2 4 Print 2 4 Print2 4EndSub 如果语句行末尾用逗号分隔符 则下一个Print输出的内容将在当前Print所输出信息的下一个分区显示 如果语句行末尾用分号分隔符 则下一个Print输出的内容将紧跟在当前Print所输出信息后面 如果省略语句末尾的分隔符 则Print方法将自动换行 例 10 PrivateSubForm Load Form1 ShowPrint 12345678901234567890 Print 产生空行Print 2 4 2 4 Print 取消上面一句末尾逗号的作用Print 2 4 Print2 4EndSub 输入Print时可用 代替 VB将其自动转换成Print Print方法具有计算和输出的双重功能 对于表达式 总是先计算后输出 PrivateSubForm Load Showx 2 y 3Print x y 2EndSub 例 11 练习 用Print方法实现数据输出到窗体上 PrivateSubForm Load ShowPrint aa 30 60EndSub 12 练习 用Print方法在窗体中直接输出字符或数值表达式的值PrivateSubCommand1 Click PrintPrint 2 3 4 2 3 4PrintPrint 祝您好运 PrintPrint Visual Print Basic PrintPrintPrint 祝您好运 哈哈 Print Visual Basic EndSub 13 2 与Print方法有关的函数 1 Tab函数格式 Tab n 功能 在指定的第n个位置上输出数据 参数n 数值表达式 其值为一整数 要输出的内容放在Tab函数后面 并用分号隔开 n输出行宽度 打印位置为nMod行宽省略 打印位置为下一个打印区的起点 每14个字符为一个打印区 14 例使用Tab函数对齐输出 PrivateSubForm click ShowFontSize 10PrintPrintTab 10 姓名 Tab 25 性别 Tab 40 年龄 PrintPrintTab 10 牛晓磊 Tab 25 男 Tab 40 18 PrintTab 10 史春雷 Tab 25 男 Tab 40 18 PrintTab 10 徐建梅 Tab 25 女 Tab 40 18 PrintTab 10 马燕珍 Tab 25 女 Tab 40 18 EndSub 15 2 Spc函数 格式 Spc n 功能 提供n个空格 n为数值表达式 其值为一整数 Spc函数与输出项之间用分号隔开 例 Print HOW Spc 3 ABOUT 结果 HOW ABOUTPrivateSubForm Load ShowPrint HOW Spc 3 ABOUT EndSub 16 当Print方法与不同大小的字体一起使用时 使用Spc函数打印的空格字符的宽度总是等于选用字体内以磅数为单位的所有字符的平均宽度 Spc函数与Tab函数的作用类似 可以互相代替 注意 Tab函数从对象的左端开始记数 而Spc函数只表示两个输出项之间的间隔 17 格式 space n 功能 返回n个空格例 PrivateSubForm click ShowFontSize 10PrintA a Space 4 b PrintAEndSub 3 空格函数Space 18 4 格式输出函数Format 使用格式 Format 功能 按用户指定格式返回表达式 常常用在print方法中 表达式 可以是数值 日期或字符型表达式 格式字符串 表示输出表达式时采用的输出格式 不同数据类型所采用的格式字符串是不同的 19 表常用的数值型格式说明字符 20 PrivateSubCommand1 Click PrintFormat 123 45 PrintPrintFormat 123 45 0000 000 Print PrintFormat 1234 0000 00 Print PrintFormat 1234 5 Print PrintFormat 0 12345 0 00 EndSub 例 21 使用对话框 在图形用户界面中 对话框 DialogBox 是程序与用户交互的另一种主要途径 对话框分为输入框 InputBox 可以输入信息 消息框 MsgBox 可以显示信息 22 1 输入框函数格式 InputBox 功能 提示对话框 等待用户输入正文或按下按钮 并返回包含文本框内容的字符串 在对话框中出现的文本 使用硬回车符Chr 13 可以使文本换行 对话框的高度和宽度随着的增加而增加 最多可有1024个字符 用来指定对话框的标题 可以指定输入框的文本框中显示的默认文本 若用户单击 确定 按钮 文本框中的文本将返回到中 若用户单击 取消 按钮 返回的将是一个0长度的字符串 返回值 字符串 在对话框中单击取消则返回 23 单击 确定 返回文本框中的文本到变量R中单击 取消 返回一个零长度的字符串 例 PrivateSubForm Activate DimRAsString AREAAsSingleR InputBox 请输入半径 计算面积 1 AREA 3 14 Val R 2PrintVal R AREAEndSub 24 2 消息框函数 用消息框 MsgBox 输出数据 1 消息框的语法格式及使用说明执行VB提供的MsgBox函数 可以在屏幕上出现一个消息框 消息框通知用户消息并等待用户来选择消息框中的按钮 MsgBox函数返回一个与用户所选按钮相对应的整数 格式 MsgBox 功能 在对话框中显示消息 等待用户单击按钮 并返回一个整数告诉用户单击了哪个按钮 为在对话框中出现的文本 使用硬回车符Chr 13 可以使文本换行 对话框的高度和宽度随着的增加而增加 最多可有1024个字符 用来指定对话框中出现的按钮和图标 一般有三个参数 出现按钮 图标类型 默认按钮 见下页表 用来指定对话框的标题 25 26 MsgBox函数的返回值是一个整数 这个整数与所选择的按钮有关 见表 27 MsgBox返回的值指明了在对话框中选择哪一个按钮 代码中的值可以是数值也可以是常量 如果省略了某些可选项 其间的逗号分隔符不可省略 若不需要返回值 可以使用下面命令格式 MsgBox Msg MsgBox 请确认输入的数据是否正确 3 32 0 数据检查 Printmsg 28 例 PrivateSubCommand1 Click A MsgBox 提示信息 EndSub 例 换行PrivateSubCommand1 Click A MsgBox 第一行 Chr 13 第二行 EndSub 例 PrivateSubCommand1 Click A MsgBox 提示信息 标题内容 EndSub 例 按钮类型 0到5或符号常量PrivateSubCommand1 Click A MsgBox 提示信息 1 标题内容 EndSub 29 例 图标类型 16 32 48 64或符号常量PrivateSubCommand1 Click A MsgBox 提示信息 16 标题内容 EndSub 例 默认按钮 0 256 512见P51PrivateSubCommand1 Click a MsgBox 提示信息 2 256 标题内容 PrintaEndSub 按回车打印4 30 1 注释语句Rem为提高程序的可读性 通常在程序的适当位置加上必要的注释 在VB中用英文单引号 或Rem关键字来标识一条注释语句 格式为 Rem指要包括的任何注释文本 在Rem关键字与注释内容之间要加一个空格 3 1 3注释 暂停与程序结束语句 31 如果在其他语句行后使用Rem关键字 必须用冒号 与前面语句隔开 若使用单引号 则在其他语句行后不必加冒号PrivateSubForm Activate Rem本程序用于计算圆的面积DimRAsString AREAAsSingle R为半径R InputBox 请输入半径 1 Rem输入半径AREA 3 14 Val R 2 以下将半径和面积输出到窗体上PrintVal R AREAEndSub例 Rem2007年编写PrivateSubForm click Dima 定义一个字符串变量a V