2.2.2赋值语句和输入输出语句.ppt

第3章 赋值与输入输出 一个完整的VB应用程序 一般都包含三部分内容 即输入 处理 输出可通过VB语句 各种控件实现输入输出操作本章主要内容赋值语句 常用基本语句 使用Print方法输出数据 窗体和基本控件命令按钮 标签 文本框对话框输入对话框 消息对话框程序举例 第3章赋值与输入输出 赋值语句是程序设计中最基本 最常用的语句格式 Let 变量名 表达式 功能 计算右端的表达式 并把结果赋值给左端的变量例3 1已知a 6 b 9 计算c a2 b2 编写的窗体单击事件过程代码如下 PrivateSubForm Click DimaAsSingle bAsSingle cAsSinglea 6b 9c Sqr a a b b Print c cEndSub运行程序后单击窗体 输出结果如下 C 10 81665 3 1赋值语句 本事件过程采用的是顺序程序结构 运行的过程是 声明3个单精度变量a b c6 a9 b计算表达式 其结果10 81665 c输出结果赋值含义 将值送到变量的存储单元中去 说明 1 表达式中的变量必须是赋过值的 否则变量的初值自动取零值 变长字符串变量取空字符 例如 a 1c a b 3 b未赋过值 为0 执行后 c值为4 2 利用赋值语句 可以改变变量的值 因此 同一变量在不同时刻可以取不同的值 PrivateSubForm Click a 3 Print A aa 7 Print A aa a 2 3 Print A aEndSub运行程序后单击窗体 输出的结果如下 A 3 A 7 A 17 3 赋值语句跟数学中等式具有不同的含意 例如赋值语句x x 1 表示把变量x的当前值加上1后再将结果赋给变量 先读后写 读出x的内容 加1 写回x 覆盖原有内容 例3 2示例 3 2 1注释语句Rem在程序的适应位置加上必要的注释 可以提高程序的可读性语法格式 Rem注释内容 或 注释内容 功能 在程序中加入注释内容 以便于对程序的理解 例如 Rem交换变量a和b的值c a c为临时单元 a bb c说明 1 如果使用关键字Rem 在Rem和注释内容之间要加一个空格 2 在其他语句后使用Rem关键字 必须使用冒号 与前面的语句隔开 注释符 单引号 可以直接写在其他语句后面 3 2常用基本语句 语法格式 Load对象名 功能 把对象名代表的窗体对象 控件数组元素等加载到内存中 说明 使用Load语句可以加载窗体 但不显示窗体 当VB加载窗体对象时 先把窗体属性设置为初始值 再执行Load事件过程 例如 LoadForml 加载窗体Forml LoadOption 2 加载控件数组中的一个元素 3 2 2加载对象语句Load 格式 Unload对象名 功能 从内存中卸载指定窗体或控件 如果卸载的对象是程序惟一的窗体 则将终止程序的执行例如PrivateSubCommand1 Click UnloadMe 卸载当前窗体 EndSub Me是系统关键字 用来代表当前窗体 3 2 3卸载语句Unload 格式 End 功能 结束程序的运行 也可以单击工具栏上的 结束 按钮 3 2 5暂停语句Stop 格式 Stop功能 暂停程序的运行 可用于调试程序 设置断点 也可以通过单击工具栏上的 中断 按钮来实现使用Ctrl Break组合键 3 2 4结束语句End 3 3 1Print方法 用于显示 输出 文本 格式 对象名 Print 表达式列表 说明 1 使用的对象可以是窗体等Print 程序设计 在当前窗体上输出Picture1 Print 程序设计 在图片框上输出 2 表达式列表是一个或多个表达式 如果省略 则输出一个空行 3 当输出多个表达式时 各表达式之间用分号 紧凑格式 或逗号 按区格式 隔开 按区格式 14个字符位置 3 3使用Print方法输出数据 例 PrivateSubForm Click a 2b VB Print50 a 计算并输出表达式的值Printb 输出变量的值Print 输出空行Print TheTotalis 输出字符串常量EndSub运行结果 输出数值数据时 前面有一个符号位 正号以空格表示 后面留有一个空格 输出字符串时 前后不留空格 例 PrivateSubForm Click a 3 b 4Printa b 4 a Print2 bPrinta bPrint a a b bEndSub运行结果 4 若语句行末尾有分号或逗号 则输出本行输出项后不换行 编写的窗体单击事件过程代码如下 PrivateSubForm Click DimaAsInteger bAsInteger cAsIntegerDimdAsInteger sAsInteger mAsSinglea 6 b 21 c 23 d 15s a b c dm a 18 b 19 c 20 d 21 s 以下舍入到小数后1位Print 平均年龄 Int m 10 0 5 10EndSub运行程序后单击窗体 输出结果是 平均年龄 19 7 例3 4使用Print方法输出全班学生的平均年龄已知18岁6人 19岁21人 20岁23人 21岁15人 1 Spc函数 格式 Spc n 功能 在输出下一项之前插入n个空格 例如 Print 学号 Spc 2 姓名 Spc 5 成绩 输出结果 表示空格 学号 姓名 成绩 3 3 2特殊打印格式 函数格式 Tab n 功能 把输出位置移到第n列 例如 PrintTab 2 学号 Tab 11 姓名 Tab 21 成绩 输出结果是 1个汉字占2个位置 学号 姓名 成绩 2 Tab函数 程序代码如下 PrivateSubForm Click PrintPrintTab 15 学号 Tab 26 姓名 Tab 36 成绩 PrintTab 14 String 27 输出27个减号字符 PrintTab 14 20011001 Tab 26 张小三 Tab 36 57PrintTab 14 20011003 Tab 26 李小四 Tab 36 69PrintTab 14 20011012 Tab 26 马小五 Tab 36 92PrintTab 14 String 27 输出27个减号字符 EndSub 例3 5使用Tab对输出进行定位 运行结果 格式 Format 表达式 格式串 功能 根据格式串规定的格式来输出表达式的值 a 4513 7 b 3456 78 TimeVar 08 30 05 PrintFormat a PrintFormat a 00 PrintFormat b PrintFormat TimeVar h m s 输出结果是 4 513 7 4 513 70 3 456 8 8 30 5格式符号 和0都能显示数字 但符号 会剔除不必要的0 符号0会按规定补足0 3 Format函数 窗体 Form 是设计VB应用程序的基本平台窗体本身是一个对象 又是其他对象的载体或容器多数应用程序是从窗体开始执行的 一个程序可以有多个窗体3 4 1窗体的基本属性 设置窗体的属性 可在程序设计时在属性窗口中手工设置 也可以在程序运行时由代码实现默认属性 3 4窗体 一些常用的窗体属性 Name属性 用于设置窗体的名称 指定窗体的名称 只读 不能在应用程序中修改 Caption属性 用于设置窗体标题栏上的标题内容 Maxbutton和Minbutton属性 用于设置最大化和最小化按钮 Height和Width属性 确定窗体的初始高度和宽度 Left和Top属性 确定窗体的左上角在屏幕上的横 纵坐标 Appearance属性 用于设置窗体的外观是平面还是三维的 BackColor和ForeColor属性 设置窗体的背景色和前景色 Picture属性 用于在窗体上设置要显示的图形 对象 Picture LoadPicture 文件名 Visible 可见性 设置对象的可见性 默认值为True 坐标原点 0 0 在窗体的左上角坐标轴刻度单位为缇 Twip 567缇为1厘米 当前位置的横坐标 CurrentX 和纵坐标 CurrentY Y X CurrentX CurrentY 当前位置 窗体坐标系统 窗体作为对象 能够对事件作出响应 与窗体有关的常用事件有以下几种 窗体事件过程的一般格式为 PrivateSubForm 事件名 参数表 EndSub不管窗体名字如何定义 但在事件过程中只能使用Form 而在过程内对窗体进行引用时才会用到窗体名字 如Form1等 3 4 2窗体的事件 与窗体有关的常用事件有以下几种 1 Load 装载 事件 2 Unload 卸载 事件 3 Activate 活动 Deactivate 非活动 事件 4 Paint 绘画 事件 5 Click 单击 事件 6 DblClick 双击 事件 7 KeyPress 按键 事件 当按下键盘上的某个健时 将触发KeyPress事件 其事件过程的格式为 PrivateSub对象 KeyPress KeyAsciiAsInteger EndSub参数KeyAscii返回所按键的ASCII码 1 Show方法 用于快速显示一个窗体 使该窗体变成活动窗体 2 Print方法 用于在窗体上输出表达式的值 3 Cls方法 用于清除运行时在窗体中显示的文本或图形 4 Move 移动 方法 用于移动并改变窗体或控件的位置和大小 3 4 3窗体的方法 1 焦点 焦点 Focus 是对象接收鼠标或键盘输入的能力 当对象得到或失去焦点时 分别会产生GotFocus或LostFocus事件 要将焦点赋给控件 有以下几种方法 1 用鼠标选定对象 2 按快捷键选定对象 3 按Tab键或Shift Tab键在当前窗体的各对象之间切换焦点 4 在代码中用SetFocus方法来设置焦点 例如 Text1 SetFocus 把焦点设置在文本框Text12 Tab键序Tab键序是指用户按Tab键时 焦点在控件间移动的顺序反映在控件的TabIndex属性 3 4 4焦点与Tab键序 设置以下3个命令按钮 显示 按钮 用于显示唐诗 静夜思 清除 按钮 用于清除所生成的文本 结束 按钮 结束程序的运行 设计步骤如下 1 创建应用程序的用户界面和设置对象的属性 例3 6显示唐诗 静夜思 2 编写程序代码 编写的三个按钮的Click事件过程代码如下 PrivateSubCommand1 Click BackColor RGB 255 255 255 ForeColor RGB 0 0 255 FontName 楷体 GB2312 FontSize 20CurrentX 1200CurrentY 350Print 静夜思 唐诗 FontName 幼圆 PrintFontSize 13PrintSpc 6 床前明月光 疑是地上霜 PrintPrintSpc 6 举头望明月 低头思故乡 EndSub PrivateSubCommand2 Click ClsEndSubPrivateSubCommand3 Click EndEndSub程序运行后 单击 显示 按钮 输出结果 需要在窗体中放置各种控件 才能实现用户与应用程序之间的信息交互三种基本控件 命令按钮 标签和文本框3 5 1控件的公共属性 1 Name属性 控件的Name属性 名称 必须以字母开头 其后可以是字母 数字和下划线 名称长度不能超过40个字符 2 Caption属性 任意的字符串 以通过程序代码改变其值 例如 Command1 Caption 结束 可以在Caption属性中为控件指定一个访问键 例如 将命令按钮的Caption属性设置为 结束 E 则运行时该控件外观如图3 7所示 只要用户同时按下Alt键和E键 就能执行该按钮命令 3 5基本控件 3 Enabled属性 该属性决定控件是否对用户产生的事件作出响应 4 Visible属性该属性决定控件是否可见 默认值为True 5 Height Width Top和Left属性 Height和Width属性确定控件的高度和宽度 Top和Lelf属性确定控件在窗体中的位置 6 BackColor和ForeColor属性 7 FontName FontSize FontBold FontItalic FontStrikethru和FontUnderline属性 8 Font属性 确定控件中显示的文本所用字体的样式 大小 字体效果等 用于接收用户的操作信息 并引发应用程序的某个操作1 常用属性 1 Default属性和Cancel属性 Default属性和Cancel属性分别用于设置 默认按钮 和 取消按钮 2 Style属性设置命令按钮的外观2 常用事件和方法 命令按钮最常用的事件是Click 单击 事件 但不支持DblClick 双击 事件 命令按钮常用的方法是SetFocus方法 3 5 2命令按钮 标签 Label 主要用来显示比较固定的提示性信息 1 常用属性 1 Alignment属性 设置标签中文本的对齐方式 2 AutoSize属性确定标签的大小是否根据标签的内容自动调整大小 3 BorderStyle属性设置标签的边框外观2 常用事件和方法 标签最常用的事件是Click 单击 事件和DblClick 双击 事件 标签常用的方法是SetFocus方法 3 5 3标签 文本框 TextBox 是一个文本编辑区域 用户可以在该区域中输入 编辑和显示文本内容 默认情况下 文本框只能输入单行文本 并且最多可以输入2048个字符1 常用属性文本框具有一般控件的常用属性 但文本框没有Caption属性 1 Maxlength属性 确定文本框中文本的最大长度 2 Multiline属性 指定文本框中是否允许显示和输入多行文本 3 PasswordChar属性 确定在文本框中是否显示用户输入的字符 常用于密码输入 4 ScrollBars属性 指定在文本框中是否出现滚动条 3 5 4文本框 5 SelStart属性 Sellength属性和SelText属性 6 Text属性 设置或返回文本框中所包含的文本内容 7 Locked属性2 常用事件和方法文本框支持Click DblClick等鼠标事件 同时支持Change GotFocus LostFocus等事件文本框常用方法有SetFocus方法和Move方法 如输入4852秒 则应输出1小时20分52秒 1 创建应用程序的用户界面和设置对象属性 2 编写程序代码PrivateSubCommand1 Click DimhAsInteger mAsInteger sAsInteger tAsIntegert Val Text1 Text h t 3600t t h 3600m t 60s t m 60Text2 Text hText3 Text mText4 Text sEndSub PrivateSubCommand2 Click EndEndSub 例3 7输入一个总秒数 化成小时 分钟和秒数 对话框既可以用来显示信息 也可以用于输入信息VB中能够建立两种预制对话框 输入框和消息框使用系统提供的函数 InputBox和MsgBox 而不必为对话框另建窗体先看以下一个例子例3 7a通过输入框输入姓名 然后再消息框中显示出来 PrivateSubForm Load x InputBox 输入您的姓名 您叫什么名 MsgBox x 先生 祝您马到功成 EndSub 3 6使用对话框 用于产生一个能接收用户输入的对话框格式 变量 InputBox 提示 标题 缺省值 xpos ypos 举例filename InputBox 请输入文件名 不超过8个字符 文件名 vbfile 将产生一个如下对话框 3 6 1输入对话框 filename InputBox 请输入文件名 Chr 13 不超过8个字符 文件名 vbfile 使用MsgBox函数 可以产生一个对话框来显示消息当用户单击某个按钮后 将返回一个数值以标明用户单击了哪个按钮其语法格式是 变量 MsgBox 提示 对话框类型 对话框标题 例 y MsgBox 输入文件名是否正确 52 请确认 对话框类型 一般有3个参数 4 48 0出现按钮 图标类型 默认按钮 函数返回值 例3 9b 3 6 2消息对话框 1 返回一个值 从返回值中可以知道用户按下的是哪个按钮 表3 5 例如y MsgBox 输入文件名是否正确 52 请确认 若y为1 表示用户按下的是 确定 按钮 依此类推 程序通过判断y值 如采用条件语句IF THEN 再根据用户按下的是什么按钮 再做不同的处理 2 不返回值 例如MsgBox 输入文件名是否正确 52 请确认 MsgBox 输入文件名是否正确 采用这种格式时 不知道用户按下的是什么按钮 这种格式可以使用在不需要知道用户按钮情况的场合 MsgBox的两种格式 1 创建应用程序的用户界面和设置对象属性 2 编写程序代码 PrivateSubCommand1 Click DimrAsSingle kAsSingle sAsSingler Val InputBox 请输入圆的半径 计算圆的周长和面积 k 2 3 14159 rs 3 14159 r rText1 Text kText2 Text sMsgBox 计算已完成 例3 10 EndSubPrivateSubCommand2 Click EndEndSub 例3 8从输入框中输入圆的半径 计算圆的周长和面积 当输入的圆半径为65时 运行结果 3 7程序举例 例3 9编写程序 实现两个文本框内容的交换 1 在窗体上建立两个标签 两个文本框和一个命令按钮 2 编写程序代码PrivateSubCommand1 Click 交换