visual basic 程序设计PPT教学课件

VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.主要内容VisualBasic的功能特点VB的集成开发环境程序设计步骤窗体和 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 控件第一个编程实例VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.理解VisualBasic Visual（可视化）：采用图形用户界面(GUI)的程序设计 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 。简单直观。 Basic：历史悠久，易学易用，功能强大的计算机程序设计语言。 BASIC－Beginner’sAll-purposeSymbolicInstructionCode（初学者通用符号指令代码） GUI－GraphicUserInterface（图形用户界面）VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.VisualBasic编程特点 可视化集成开发环境（IDE） 面向对象的编程方法（OOP） 事件驱动 结构化程序设计语言 充分利用Windows资源 提供动态数据交换技术（DDE） OLE－对象链接与嵌入 利用动态链接库（DLL）和应用程序接口（API）调用其他语言编写的代码模块 开放的数据库功能和网络支持VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.VB集成开发环境（IDE）窗体设计窗口代码设计窗口属性窗口 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 资源管理器布局窗口工具箱立即窗口菜单栏工具栏VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.集成开发环境组成： 标 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 栏和菜单栏 工具栏和数字显示区 标准工具箱 工程资源管理器窗口 属性窗口 窗体设计器 代码窗口 布局窗口 立即窗口功能：设计可视化界面设计程序设计编辑调试编译运行VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.编程初步上下文相关帮助 选择关键字 按<F1>键将显示相关帮助主题VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.程序设计步骤分析问题和需求创建用户界面设置对象属性编写代码调试程序，修改错误保存工程创建可执行文件VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.事件驱动用户触发事件之例:系统环境事件之例: Click 单击 DblClick 双击 Change 内容改变 MouseDown 按下鼠标键 MouseUp 放开鼠标键 GotFocus 得到焦点 LostFocus 失去焦点 KeyPress 按键盘键 KeyUp 放开键盘键 keyDown 按下键盘键 Load 装入 Unload 卸载 Activate 激活 Timer 设定时间到 事件驱动：程序的执行由发生的事件决定。程序响应所发生的事件，执行相应的事件过程然后等待下一个事件。VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.窗体窗体是应用程序运行时与用户进行交互操作的窗口或对话框。其固有成分有：工作区属性事件方法VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.窗体属性窗体的属性可以在设计时通过“属性”窗口设置，也可以在运行时由代码来实现。窗体的常用属性是： BorderStyle——设置窗体边框样式 Caption——窗体标题 ControlBox——设置窗体“控制菜单” Enabled——对用户事件是否能作出反应 Height（高）、Width（宽）——窗体大小(单位?) Left（左）、Top（顶）——窗体位置VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.窗体属性（续） Icon——窗体图标 Moveable——窗体是否能移动 BackColor，ForeColor——背景色，前景色(颜色) Picture——窗体中显示的图片文件名 AutoRedraw——显示窗体时自动重画窗体图文 Visible——窗体是否显示VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.窗体事件事件一般由用户操作引发。窗体的常用事件有： Load——发生在窗体被装载时。 Activate——当一个窗体变成活动窗体时。 Deactivate——当改变当前窗体时。 QueryUnload，Unload——当卸载窗体时。 Resize——当调整窗体大小或首次显示窗体时 Click，DblClick——单击、双击窗体时VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.窗体的方法 方法是对象内置的功能，可供程序直接调用的子程序或函数窗体上常用的方法有：Show——显示窗体Hide——隐藏窗体，但不能使其卸载Move——用以移动窗体到一定的坐标位置Print——在窗体内打印输出Pset，Line，Circle——画点、画线、画园等Cls——清除窗体内输出的图、文VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.控件控件是建立VisualBasic应用程序的基本元素。能够用于VB的控件数量众多，一般将其分为两个方面：内部固有控件、ActiveX控件。用户可以通过“工具箱”获取各种控件。VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.标准控件工具箱内部控件是VB内可直接使用的最常用的控件。例例 中文名 类名(Class) 标签 label 文本框 Textbox 命令按钮 CommandButton 单选按钮 OptionButton 复选框 CheckBox 框架 Frame 水平滚动条垂直滚动条 HScrollBarVScrollBar 下拉框(组合框) ComboBox 列 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 框 ListBox 定时器 Timer*VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.标准控件(续) 中文名 类名 图片框 PictureBox 图象 Image 驱动器列表框 DriveListBox 目录列表框 DirListBox 文件列表框 FileListBox 形状 Shape 直线 Line 数据 Data OLE容器 OLE*VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.CommandButton（命令按钮）常用属性： Caption——在命令按钮上显示的文本在其中可用&<字母>设置快捷键 Style——设置命令按钮的外观：0－标准；1－图象 Cancel——设置按钮为取消按钮（ESC）常用事件： Click——单击万博科技职业学院VisualBasic程序设计第3章BASIC语言基础VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.主要内容 基本数据类型：数值型、字符型、日期型、布尔型、变体型 常量与变量及其定义 不同数据类型的运算 表达式 内置函数VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.基本数据类型 均指二进制的位，尾数和指数都含1位符号位。 尾数在（－1，1）之间。 类型 名称,声明符 字节数 范围 整型 Integer,% 2 -32768(-215)~32767 长整型 Long,& 4 -231~231-1 单精度 Single,! 4 尾数24位,指数8位* 双精度 Double,# 8 尾数53位,指数11位* 字符型 String,$ 定长用String*n(n-长度) 货币型 Currency,@ 8 在±263×10-4之间VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.基本数据类型(续) 类型 声明类型 字节数 范围 布尔型 Boolean 2 True(-1)或False(0) 日期型 Date 8 公元100.1.1~9999.12.31 字节型 Byte 1 0~255 定长字符型 String*n 2*n 注：赋值时不足时用空格补，超长时截尾 变体型 Variant(可省) 任何类型数据 对象型 Object 4 任何对象引用(指针)VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.常量直接常量 数值常量，如:3.12，-5，1.3E-8 日期时间常量，如：#10/12/200210:30# 字符串常量，如："I'mfine"，"99.9" 逻辑常量：True，False 用符号表示的VB常量，如：vbCrLf 回车换行chr(13)&chr(10)vbYesNo =4，在消息框msgbox中显示 Yes和No按钮VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.常量符号常量分VB已定义的符号常量和自定义符号常量。 VB常量，如：vbCrLf 回车换行chr(13)&chr(10)vbYesNo =4，在消息框msgbox中显示 Yes和No按钮 好处：便于记忆，便于程序阅读 查阅定义：在对象管理器中VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.自定义符号常量－声明声明常量的好处: 便于识别（使用有意义的符号，如PI） 便于修改（只需修改定义部分） 减少差错：避免输入错误，便于查错例：ConstPI=3.1415926ConstVBasstring_ =“VisualBasic“PublicConstconMax=99ConstPI2=PI*2ConstT911=#2001-9-11#[Public|Private]Const[as<类型>]<常量名>=<常量表达式>VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.枚举类型－定义符号常量集合 语法[Public|Private]Enum类型名<成员名>[=常量表达式]<成员名>[=常量表达式]……EndEnum 如果没有常量表达式，则第一个成员等于0，后一个成员等于前一个成员加1。 常量表达式为Long类型 类型定义后，可以用在变量声明语句中 例如：EnumSeasonSpring=1SummerFallWinterEndEnum结果：Season是个符号常量集合，其中包含4个符号常量：Spring＝1，Summer＝2Fall＝3，Winter＝4使用：DimjdAsSeason在对象浏览器中观察自定义的类型VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.变量及其命名规则 变量分内存变量和属性变量。 属性变量即对象的属性，其名称与类型是确定不变的，例如Caption属性，其变量名是对象名.Caption，而其类型为String。 一般变量即指内存变量，其名称与类型是由程序员定义的。 变量名不能以数字开始，不能用VB的保留字 变量名只能由字母、数字和下划线组成 变量名可以使用中文，但较少见。VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.变量的声明 变量的声明语句：Dim|Public|Static<变量名>[as<类型>] 显式声明语句：OptionExplicit该语句强制变量必须先声明才能使用 例:DimxAsDoubleDimiAsInteger,jAsSingle,sAsString或:Dimi%,j!,s$注意：如声明Dimx,yAsSingle则x为Variant型（变体型），y才是Single型VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.表达式 常量、变量、函数用运算符连接而成 单独一个常量，或变量，或函数都可以看作是一个表达式 运算结果称为表达式的值，该值的数据类型即为表达式的类型。VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.运算符 数值运算：+-*/（加减乘除）\(整除),如:10\3=3 mod(求余数),如:12mod5=2^(幂),如:3^4=81(34) 比较运算:<<==>=><> 连接运算:&(或+) 逻辑运算:notandorxorequimp VB内置函数VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.数值运算 算术运算：+-*/（加减乘除） 整除：\如11\3，结果为3 求余数：mod如14mod5，结果为4幂运算：^如3^4即34，结果为81注意：整除（\）和模运算符（mod）两侧遇小数点时，先四舍五入，再运算。如:10.5\3.5=11\4=27.2mod3.5=7mod4=3VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.数值运算的精度 数值表达式的运算结果一般为Double或Long类型。但如果含Single类型的变量或常量，则可能降低其运算精度。 数值常量也可以使用类型后缀(%,&,!,＃)，从而改变其参加运算的表达式的运算精度。例如：？1/3 输出.333333333333333?1/3! 输出.3333333其中3!表示单精度常数3，不是3的阶乘！VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.日期型数据的运算 日期型数据可以加减天数（可含小数），结果仍为日期型。例如：#2005-9-25#-10 两个日期型数据之差为两个日期之间相隔的天数。例如：#2005-9-25#-#1986-5-20# 日期型数据可以看作一个数值型数据，即该日期与#1899-12-3000:00#之间相差的天数，其中的整数部分为日期，小数部分为时间。该数值称为日期的“系列数”。例如，用单精度数显示#1900-1-16:00#：?Csng(#1900-1-16:00#)输出:2.25VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.比较运算 运算:<<==>=><> 比较结果为True或False 双字符运算符（<=、>=和<>）两字符之间不能有空格，也不能写成=<、=>、>< 字符型数据按其内码（Unicode）大小比较Unicode：2字节无符号整数，国际通用码。 ASCII码表中的符号，码值不变，位长16。 注意：对浮点（单精度、双精度）数不要进行=（等于）比较，如?1/3显示.333333333333333?1/3=.333333333333333显示FalseVisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.字符串的连接运算字符串的连接运算：&(推荐使用） 或：+(尽量不用）例如：“安徽“&“合肥“＝“安徽合肥“在文本框Text1和Text2中分别输入3和4，则表达式Text1.Text+Text2.Text的值为“34”而不是7。这是因为Text属性的类型是字符型，而不是数值型。VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.逻辑运算 A B NotA AAndB AOrB AXorB AEquB AImpB F F T F F F T T F T T F T T F T T F F F T T F F T T F T T F T T 注：1.A、B均为逻辑表达式。如果是数值，则其值非零时看作True，值为零时看作False。 例如：表达式4>3And5>4的值为True 2.F－False，T－TrueVisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.按位运算例： A B notA AandB AorB AxorB 0 0 1 0 0 0 0 1 1 0 1 1 1 0 0 0 1 1 1 1 0 1 1 0 A 1010 notA 0101 AorB 1110 B 1100 AandB 1000 AxorB 0110VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.运算的优先级 算术运算 ^→-（负）→*/→\→mod→+-（加减） 连接运算 & 比较运算 <<==>>=均同级 逻辑运算 not→and→or→xor→equ→impVisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.例14True6=1+2+3False722008-8-89True2 表达式 值 表达式 值 5+3^2 20\7 2*3=6and5>2*2 #8/1/2008#+7 “6=“&“1+2+3“ Len(“Let’sgo!”) 8=5ornot3>2 “abc”>”ABC” Int(7.65432) 8mod3VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.VB内置函数 VB内置函数是可以直接使用的函数 内置函数是调用内部子程序后返回的结果，称为函数的值。此值的类型称为函数的类型。 不同的函数有不同的参数，要注意每种函数所带参数的个数和类型。 函数可以直接放在表达式中，为数据处理带来很大方便。VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.数学函数 三角函数:用弧度Cos(x),Sin(x),Tan(x),Atn(x)单位：弧度sin235°表示为sin(35*3.1416/180)^2 对数:Log(x),指数:Exp(x)(以e为底) 平方根:Sqr(x) 绝对值:Abs(x) |x-y|表示为:abs(x-y) 取整:Int(x) 取≤x的最大整数 Fix(x) 取x的整数部分 符号函数Sgn：Sgn(x)=VB内置函数VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.数学函数的应用实例∵Tan(π/4)=1∴π＝4*Atn(1)=3.14159265358979可用于定义常量：ConstPI=4*Atn(1)e=exp(1)=2.71828182845905π＝4*Atn(1)e＝Exp(1)VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.随机函数 （伪）随机函数Rnd:产生0～1之间的1个随机数，0<Rnd<1随机函数在测试、模拟、游戏等程序中有广泛应用。例如，要产生一个1～6之间的随机整数，可以用表达式： Int(Rnd*6)+1 Randomize语句：产生随机数的种子，从而改变随机数序列。VB内置函数VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.日期时间函数 不带参数： 日期函数Date和Date$取系统日期 时间函数Time和Time$取系统时间 日期和时间函数Now取系统日期和时间 当天已过时间总秒数Timer 带参数（日期型表达式）： Year，Month，Day分出年月日 Weekday算出星期几 Hour，Minute，Second分出时分秒VB内置函数VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.字符串函数（1） 取子字符串: Left函数：取左边n个字符，如Left(“Basic”,3)=“Bas” Right函数：取右边n个字符，如Right(“Basic”,2)=“ic” Mid函数：取中间n个字符，如:Mid(“Basic”,2,3)=“asi”,Mid(“Basic”,2)=“asic” 取长度（字符数）函数Len，如 Len(“Go!”)=3VB内置函数VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.字符串函数（2） 求子串位置InStr，如 InStr(“Welcome”，”come”)=4 转换函数： 求值Val，取前面可作数值的字串转换，如 val(“1.23mm”)=1.23而val(“1.23e2abc”)=1.23e2=123 数值转字符Str：Str(12.3)=“12.3” 代码→字符Chr：例如Chr$(65)=“A” 字符→代码Asc:例如Asc(“A”)=65注：中文VB使用双字节的Unicode码VB内置函数VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.字符串函数（3） 空格函数Space(n)，返回n个空格 字符重复函数String(n,c)，返回n个字串c的第一个字符 大小写转换函数：Lcase(s)转换为小写Ucase(s)转换为大写 VB内置函数VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.转换函数和判断函数 转换函数Cint，CLng，CSng，CStr，…注意其命名法：C＋<类型缩写> 判断函数 IsNumeric(表达式)判是否数值，布尔型 IsEmpty(变量)判是否空值，布尔型 IIf(条件，值1，值2) Typename(表达式）返回表达式的类型名 IsDate(表达式）判是否日期，布尔型VB内置函数VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.格式转换函数 函数格式：Format(<表达式>,<格式字串>) 功能：将表达式的值按指定格式进行转换。 例： Format(1.2,”00.000”)＝”01.200” Format(Date,”yy.m.d”)＝”05.3.8”VB内置函数VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.语句的书写格式 一般情况下，每行一条语句 一行多条语句之间用冒号(:)作分隔符，如a=1:b=2:c=3 长语句分多行书写是，可在换行前加续行符（下划线_），例如：MsgBox“SumOf1，2，3，…，100is“_&vbcrlf&x,vbInformation 注释部分以单引号(‘)开头，止换行万博科技职业学院VisualBasic程序设计第四章程序的输入和输出万博科技职业学院VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.主要内容 利用控件输入、输出 文本框的Text属性，I/O 标签的Caption属性，Output 对话框 输入对话框函数InputBox 消息对话框函数MsgBox Print方法VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.输入对话框 InputBox(Prompt,Title,Default,Xpos,Ypos) Prompt 提示字符串 Title 对话框标题 Default 缺省输入值 Xpos,Ypos 对话框位置（左上角座标） 返回用户输入（String类型） 例：a=InputBox("n=","输入","1")VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.消息对话框 MsgBox(Prompt,Buttons,Title) Prompt 提示字符串 Buttons 按钮及图标 Title 对话框标题 返回用户所单击的按钮对应值按钮图标VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.消息对话框中的按钮 常量名称 数值 按钮 vbOKOnly 0 确定 vbOKCancel 1 确定，取消 vbAbortRetryIgnore 2 终止，重试，忽略 vbYesNoCancel 3 是，否，取消 vbYesNo 4 是，否 vbRetryCancel 5 重试，取消VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.消息对话框中的图标 常量名称 数值 图标 vbCritical 16 vbQuestion 32 vbExclamation 48 vbInformation 64VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.MsgBox函数的返回值 常量名称 数值 用户点击的按钮 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 终止 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.Print方法 格式：[对象名.]Print[<表达式表>][;|,|空格] 分号(;)表示后面内容将接着输出 逗号(,)表示后面内容将跳至下个制表站输出制表站位置：n*14+1 回车表示后面内容将从下一行开始输出 可以用问号(?)代替Print以简化输入例VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.PrivateSubCommand1_Click()Print"135791357913579"Print"ax","but","color"Picture1.Print"135791357913579"Picture1.Print"more","no","yes"EndSub制表站的位置：1,15,29,…(14n+1)VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.具有Print方法的对象 窗体（Form） 图片框（PictureBox） 立即窗口（Debug） 打印机（Printer）说明：引用所在窗体时，对象名可以省略，也可以用Me代表VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.在Print方法中常用的函数 Tab(n) 跳至第n列，输出后面内容 Spc(n) 插入n个空格 例： PrintTab(10);"学号";Tab(20);"姓名";Tab(30);"性别" Print"学号";Spc(4);"姓名";Spc(6);"性别"VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.与Print有关的属性 AutoRedraw（自动重画）属性为False（初值）时，用Print方法和绘图方法输出的内容被其他窗体遮挡后会被抹去。为此，应将该属性设置为True 改变CurrentX和CurrentY属性（当前输出位置）可以改变下个输出的位置例如：CurrentX=Width/2:CurrentY=Height/2Print0‘在窗体中心位置输出0VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.输出字体与颜色 属性 意义 类型 FontName 字体名 String FontSize 大小 Single FontBold 粗体 Boolean FontItalic 斜体 Boolean FontUnderline 下划线 Boolean ForeColor 前景色 LongVisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.与Print有关的方法 可用Cls方法清除用Print方法和绘图方法输出的内容，格式： [对象名.]Cls清除后，当前座标回到对象的左上角VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.文本框的主要属性 Text 显示的文本,缺省属性 MultiLine 为True时允许多行显示 ScrollBar 滚动条,只有在MultiLine属性为True时才有意义 PassWordChar口令字符。代替显示用户输入的字符。只当MultiLine属性为False时才起作用。 Locked 禁止用户输入，使文本框只能输出VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.关于焦点（Focus） 事件：GotFocus和LostFocus获得焦点和失去焦点。任何时刻只能有一个控件获得焦点。 方法：SetFocus 属性：TabIndexTab键序TabStop允许/禁止获得焦点 没有TabStop属性的控件当然不会获得焦点。VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.滚动条－Hscrollbar和Vscrollbar 主要属性 Max 最大值 Min 最小值 Value 当前值 LargeChange大增量 SmallChange小增量 事件 Change 值改变时 Scroll 滚动时Min=0滚动块 Max=100Value=例万博科技职业学院VisualBasic程序设计第5章选择结构设计万博科技职业学院VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.主要内容 选择结构的概念 条件表达式，比较运算和布尔运算 条件语句If… 多分支选择语句SelectCase… 标准控件 单选按钮OptionButton 复选框CheckBox 定时器TimerVisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.选择结构的概念 用于分析、比较、判断。对不同情况要进行不同的处理。 条件表达式由比较运算、布尔运算完成，表达式的值为True或False 例：1.x>=0andx<=1(0≤x≤1)2.x>yandy>0 (x>y>o)3.Notx>0orx>5VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.比较运算 比较运算:<<==>=><> 数值之间比较，例x!>0等注意：对浮点（单精度、双精度）数不要进行=（等于）比较，如x!=3.45－不可靠 字符串（可以包含汉字及其他文字、符号）之间比较按内码大小，从第1个字符开始。VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.逻辑运算 A B NotA AAndB AOrB AXorB AEquB AImpB F F T F F F T T F T T F T T F T T F F F T T F F T T F T T F T T 注：1.A、B均为逻辑表达式。如果是数值，则其值非零时看作True，值为零时看作False。 例如：表达式4>3And5>4的值为True 2.F－False，T－TrueVisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.单行If语句格式：If条件Then语句1[Else语句2]例：1.Ifa<0Thena=-a2.Ifx>=0Theny=sqr(x)Elsey=-xVisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.多行If语句格式：If<条件1>Then[语句块1][ElseIf<条件2>语句块2]…[Else语句块3]EndIfVisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.多行If语句格式：If<条件>Then[语句块][ElseIf<条件>语句块]…[Else语句块]EndIf例：d=InputBox(“请输入你的出生日期”)IfIsdate(d)ThenMsgbox“你出世已有”_&Date-cdate(d)&“天”ElseMsgbox“输入错误！”EndIfVisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.SelectCase语句 格式:SelectCase<测试表达式>[Case<取值范围表达式表><语句块>]…[CaseElse<语句块>]EndSelect 用途:多分支选择VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.SelectCase语句流程图①②③为表达式取值范围，可为： 常量或常量列表，如10，20 值1To值2 如30To50 Is<比较符>常量，如Is>50VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.例1:按得分定等级SelectCasecjCase100‘如果成绩cj=100lev=“满分”Caseis>=90‘如果cj>=90lev=“优秀”Case75to89‘如果cj在75与89之间lev=“良好”Case60to74 ‘如果cj在60与74之间lev=“及格”CaseElse ‘其他情况lev=“不及格”EndSelectVisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.例2：判断输入字符类型 程序功能：在文本框中输入一串字符，在输入同时判别输入字符的类型，并显示在一个标签中。同时统计不同类别字符的个数。 类别分：大写字母、小写字母、数字、韵母(a,e,i,o,u)、汉字、其他。例VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.输入字符类别判断SelectCasecCase"A","E","I","O","U"t="大写韵母"Case"A"To"Z"t="大写字母"Case"a","e","i","o","u"t="小写韵母"Case"a"To"z"t="小写字母"Case"0"To"9"t="数字"CaseIs>"~"t="汉字"CaseElsetp="其他字符"EndSelectText1.Text=tVisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.例3:信号灯运行PrivateSubTimer1_Timer()a=(a+1)Mod6SelectCaseaCase0,1,2P1.Picture=Image1.Picture'redCase3P1.Picture=Image2.Picture'yellowCaseIs>3P1.Picture=Image3.Picture'greenEndSelectEndSubVisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.Frame（框架）Frame（框架）是一个容器。用于把其他的控件组织在一起。当框架移动、隐藏时，其包容的控件也都跟着移动、隐藏。框架的常用属性有：Caption－设置框架标题，使用户了解框架的用途。Enabled－设置框架是否有效。Visible－设置框架是否可见。VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.OptionButton（单选按钮） 用于从多个可选项中选择其中之一。 主要属性： Caption标题 Value值，布尔量。True－选中，False－不选 Style外观： Standerd－标准方式，圆形 Graphical－图形方式，象按钮 多个选项应在同一个容器中： 窗体（Form） 框架（Frame） 图片框（PictureBox）VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.CheckBox（复选框） 主要属性： Caption：标题，用于说明。 Value：值，可取： 0－UnChecked，不选 1－Checked，全选 2－Grayed，部分选中 单击复选框时，不会选2 纠错：P.100,第7行 复选框之间无制约。实例VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.Timer（定时器） 关键属性： Enabled： True：定时器处于工作状态。 False：处于待命状态。 Interval:时间间隔周期（毫秒数)。如果Interval＝0，也不会发生Timer事件。 Timer事件：定时时间到。重新计时。 应用于：计时、动画等例VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.颜色及有关常量及函数 颜色值用长整型数表示，如： 蓝色：&H00FF0000& 绿色：&H0000FF00& 红色：&H000000FF& 内置颜色函数：RGB(red,green,blue) red,green,blue:0~255QBColor(n)n=0,1,2,…,15 颜色常量：vbRed,vbBlue,vbBlack等例万博科技职业学院VisualBasic第六章循环程序结构 For...Next语句 Do…Loop循环语句 列表框 组合框主要内容万博科技职业学院VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.For…Next循环语句 格式:For<计数器>=<初值>to<终值>[step<步长>]<语句块>Next<计数器> 注: <计数器>必须是数值型变量 步长可正可负，也可以带小数，缺省值为1 当计数器达到或超过终值时，终止循环。 可用ExitFor语句强行中止循环例VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.For…Next循环的流程图计数超过终值？计数器加上步长（Next语句）语句块(循环体)Yes如果在循环体中遇到ExitFor语句，则强行中止循环For<计数器>=<初值>to<终值>[step<步长>]<语句块>Next<计数器>VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.例1：求100以内所有奇数之和S=0 ‘S用于保存累计值，初值为0ForK=1to100step2‘K－计数器，步长2S=S+K ‘K=1，3，5，…，99NextK‘K+2（步长），再执行循环语句 ‘直到K>=100（终值）Print“100以内所有奇数之和为“;S‘输出结果计算：S=1+3+5+7+……+99VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.例2：输出图案（P110,例6-7）Fori=1To5‘对1～5行PrintTab(5+i);‘跳到第5＋i列PrintString(6-i,“★”);‘打印6-I个★‘输出6个空格，i个▲PrintSpc(6);String(i,“▲”);‘再输出6个空格，6-i个☆PrintSpc(6);String(6-i,"☆")Nexti注意Tab、Spc和String函数的用法VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.例3：二重循环实例：九九乘法表Form=1To9Forecolor=vbRedprintm;Forecolor=vbBlueForn=1TomPrintTab(n*4);m*n;NextnPrint'换行NextmVisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.ForEach...Next循环ForEach...Next循环是以对象集合中的每一个元素作为重复依据的,如果不知道一个集合有多少元素，ForEach...Next循环非常有用。语法格式：ForEach<元素>In<集合>语句块Next<元素>VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.例：移动窗体中所有控件（Controls)PrivateSubform_Click()Dimob1AsObjectForEachob1InControlsob1.Left=ob1.Left+20Nextob1EndSubVisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.Do…Loop语句DoWhile<条件><语句块>LoopDo<语句块>LoopWhile<条件>DoUntil<条件><语句块>LoopDo<语句块>LoopUntil<条件>Until<条件>相当于Whilenot<条件>可用ExitDo中止循环前测型后测型VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.前测型与后测型的比较条件语句块Loop的下条语句前测型DoWhile<条件><语句块>Loop后测型Do <语句块>LoopWhile<条件>条件语句块Loop的下条语句YesYesNoNo先测试至少执行一次VisualBASIC程序设计■万博科技职业学院WanboInst.OfSince&Tech.例:国王的奖励国王要奖励棋王，棋王要求在棋盘第1格放1粒麦子，第2格加倍，第3格再加倍，直到放到第64格。国王想一想就同意了。国王粮仓里有10万吨麦子，1粒麦子只有0.1克，请问国王的麦子可以奖励棋王到棋盘的第几格？VisualBASIC程序设计■万博科技职业学院WanboInst.