VB应用

nullnull第二章 对象第二章 对象第二章 对象2.1 对象及其属性设置12.2 窗体22.3 控件32.4 控件的画法和基本操作4教学 要求 对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗 教学要求？什么是对象？什么是对象VB程序的核心由对象以及相应各种事件的代码组成。颜色、型号等特征一个按钮、一个文本框等属性对象是具有某些特征的具体事物的抽象VB的两种预定义对象：窗体、控件？对象的三要素？对象的三要素？对象的三要素？对象的三要素1.对象的属性（对象的性质）1.对象的属性（对象的性质）属性是用来描述和反映对象外部特征的参数。null (1)  在属性窗口中设置 (2)  在程序运行中更改对象的属性(动态修改)对象名.属性名称 = 属性值Cammand1.Caption="你好"只读属性不可2.对象的事件（对象的响应）2.对象的事件（对象的响应）由系统预先设置好的、能被对象识别的动作。 鼠标的移动(MouseMove) 单击(Click) 双击(Dblclick) 窗体的装载(Load)等。VB编程的核心就是为每一个要处理的事件编写响应事 件的程序代码，这样的一段程序代码叫做事件过程。 Sub 对象名_事件名() 处理事件的程序代码 End Sub3.对象的方法（对象的动作）3.对象的方法（对象的动作）方法是对象能够执行的动作。 格式： [对象.]方法[参数名 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf ]2.2 窗体(Form)2.2 窗体(Form)窗体是设计VB应用程序的基本平台。 窗体本身是一个对象，又是其他对象的载体。 多数应用程序是从窗体开始执行的。 一个程序可以有多个窗体。窗体的结构与属性窗体的结构与属性 1. Height、width、top和left属性 1 twip（缇）=1/1440英寸=1/567cm 所有可视化的对象都具有。 决定对象的大小和位置。2. 字体Font属性组3. 外观3. 外观 BackColor属性设置窗体的背景颜色 ForeColor 属性设置窗体的前景颜色BorderStyle属性设置窗体边框的类型Picture属性设置窗体中要显示的图片Caption属性决定控件上显示内容 Name属性是对象的标识Name，BorderStyle属性只能在设计阶段 设置，不能在运行阶段改变。(只读属性)4.行为4.行为AutoRedraw属性（自动重画） Form_load( )事件使用Print方法的时候设置为True.Enabled属性 （决定控件是否可操作） True ：允许用户进行操作（缺省值） False：禁止用户进行操作。Visible属性（决定控件是否可见） True ：运行时控件可见（缺省值）。 False：运行时控件隐藏但控件本身 是存在的。一旦窗体的Enable属性设置为False，该窗体内的 所以控件包括窗体本身都不响应用户的任何事件 窗体事件窗体事件Load事件：是在窗体被装入工作区时触发的事件。当应用程序启动时，自动执行该事件。 UnLoad事件：是卸载事件，当从内存中清除一个窗体时触发该事件。Load事件和UnLoad事件Activate(活动)事件 Deactivate(非活动）事件 Paint(绘画)事件 Click(单击)事件 DblClick(双击)事件窗体的方法窗体的方法[对象.] Print 作用：在指定的对象（窗体、图片框）中输出值 [对象.] Cls 作用：清除运行时在窗体或图形框中显示的文本或图形 [对象.] Move 左边距离[,上边距离[,宽度[,高度]]] 作用：移动窗体或控件，并可改变其大小 [对象.] Show和[对象.] Hide 作用：Show方法用来显示窗体，Hide方法用来隐藏窗体2.3 控件2.3 控件 （Visual Basic提供的与用户交互的可视化部件。）内部控件实例：看图工具中打开、保存对话框等考要求：通用对话框控件 Microsoft Common Dialog Control 6.0怎么建立控件怎么建立控件方法： 选取控件，在窗体合适位置拖动 双击控件（窗体正中创建） 按下Ctrl键，选取控件（创建多个相同对象）控件的命名和控件值 控件的命名和控件值 控件的命名 使用默认名称 用3个小写字母作为对象名称的前缀（P25） 2.3.2 控件的命名和控件值 2.3.2 控件的命名和控件值 控件值 VB中把反映某个控件最重要的属性称为该控件属性的值或默认属性。例如： Text1.Text = “欢迎” Text1 = “欢迎”True,flase0,1,2小结小结知识点： 1.对象、对象的属性、事件和方法 2.窗体 3.控件操作点： 1.控件的绘制及属性设置 2.编写一简单的VB程序第三章 建立简单的VB应用程序第三章 建立简单的VB应用程序第三章 建立简单的VB应用程序第三章 建立简单的VB应用程序3.2 编写简单的VB应用程序23.4 VB应用程序的结构与工作方式43.3 程序的保存、装入和运行33.1 语句1▲▲3.1 Visual Basic 基本语句3.1 Visual Basic 基本语句语句由Visual Basic关键字、变量、常量、运算符等组成 语句的功能是使计算机执行具体的操作。 同一语句行中输入多条语句，语句之间用冒号“ : ”分隔。 一条语句在多行显示，使用续行符“ _”。3.1.1 语句 Private Sub Form_Click() Dim a %, b%, x As double a=3 : b=6 x=( -b + sqr (b^2 – 4 * a * c) ) / _ (2 * a) Form1.Print x End Sub赋值语句赋值语句 [LET]变量/属性名＝表达式/属性值Dim Str1 As String Dim Num As Integer Str1 = "Visual Basic 6.0" Num = 2 Text1.Text = Str11.赋值号左边只能是变量，不能是常量、常数符号或表达式 sin(x) = x + y 5 = sqr(s) + x + y x + y = 3 2.不能在一句赋值语句中给多个变量赋值 Dim x%,y%,z% x=y=z=1思考：赋值语句中：a=b与 b=a相同吗?注释语句注释语句 语法格式： Rem 注释内容 ´ 注释内容注释有利于程序的维护和调试(1)使用关键字Rem，在Rem和注释内容之间要加一个以上空格 (2)在其他语句后使用Rem关键字，必须使用冒号(:)与前面的 语句隔开。注释符(单引号’)可以直接写在其他语句后面。暂停语句暂停语句(Stop语句)在程序代码中设置断点(相当 于中断），暂停程序的执行。Private Sub Form_click() Dim i%, s% Debug.Print i , s s = s + i Form1.Print s End Substop‘每一次的执行都会在此暂停结束语句(End语句)结束语句(End语句)用于结束一个程序的运行 Sub Command1_Click() End ‘结束程序 End SubEnd If、End Select、End With、End Type、 End Function、End Sub等.输出语句输出语句Print[对象.]Print [表达式列表][,|;](在指定的对象中输出表达式的值)注意：Print方法在Form _Load事件过程中起作用， 必须设置窗体的AutoRedraw为True。[对象.]? [表达式列表][,|;]3.2 编写简单的VB应用程序3.2 编写简单的VB应用程序编写第一个应用程序新建 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 添加文本框添加命令按钮设置属性编写事件过程代码运行应用程序保存应用程序VB应用程序的一般步骤VB应用程序的一般步骤新建工程（打开新的窗体） 建立用户界面 设置属性（根据需要对对象的属性加以修改） 编写程序代码（为每个对象_事件编写过程） 调试程序（设计、运行、调试） 保存程序（.FRM .VBP ） 生成可执行文件（用 SETUP的安装盘）3.3 程序的保存、装入和运行3.3 程序的保存、装入和运行VB应用程序两种运行模式： 编译生成 .EXE文件。 解释运行模式：F5键或“启动”按钮应用程序至少有两种文件必须要保存 窗体文件（.frm） 工程文件（.vbp）[真题]假定一个Visual Basic应用程序由一个窗体模块和一个标 准模块构成。为了保存该应用程序，以下正确的操作是： A）只保存窗体模块文件 B）分别保存窗体模块、标准模块和工程文件 C）只保存窗体模块和标准模块文件 D）只保存工程文件 3.3.2 程序的装入 3.3.2 程序的装入 只要装入工程文件，就可以自动把与该工程有关的其他几类文件装入内存 [真题]以下叙述中错误的是 A）打开一个工程文件时，系统自动装入与该工程有 关的窗体、标准模块等文件。 B）当程序运行时，双击一个窗体，则触发该窗体的 DblClick事件。 C）Visual Basic应用程序只能以解释方式执行。 D）事件可以由用户引发，也可以由系统引发。 3.4 VB应用程序的工作方式 3.4 VB应用程序的工作方式 VB程序执行： 启动应用程序，加载并显示窗体 接收事件（用户、系统触发） 执行事件代码 等待下一次事件——事件驱动小结小结知识点： 1.语句 2.VB程序的基本编写方法操作点： 1.理解例3.1程序的基本运行机理 2.模仿例程，应用基本语句编写一简单VB程序课后任务课后任务复习第2、3章 做习题 3.8 预习第4章，做习题4.1，4.2题 Visual Basic Visual Basic程序设计语言第四章 数据类型、运算符与表达式第四章 数据类型、运算符与表达式4.1 基本数据类型4.1 基本数据类型4.2 常量和变量4.2 常量和变量4.2.1 常量4.2.1 常量当程序运行时，存储单元中内容保持不变的称为常量。 1 文字常量(直接常量) (1)字符串常量 "China" "95.3%" "计算机软件"4.2.1 常量4.2.1 常量(2)数值常量4.2.1 常量4.2.1 常量2 符号常量 Const 常量名 [As 类型] = 表达式 例 Const PI = 3.14, COUNTRY$ = "China" 符号常量一经定义，其值就不 能在程序中的其他位置进行改变4.2.1 常量4.2.1 常量3 系统常量 VB中提供了大量预定义的常量，可以在程序中直接使用； 以小写字母vb开头 如：vbCrLf-回车换行符4.2.2 变量4.2.2 变量数据信息还可以暂时存放在计算机的存储单元中。当程序运行时，存储单元中内容有改变称为变量。 例 X=5 X=8 Print X4.2.2 变量4.2.2 变量1 命名规则 必须以字母或汉字开头，最后一个字符可以是类型符 如：abc$ 程序设计# 只能由字母、数字和下划线(或汉字)组成，长度不能多于255个字符 如：abc_12 变量名不能使用VB中的保留字 如：Sub是不能做为变量名4.2.2 变量4.2.2 变量2 变量的类型和定义 （1）用类型说明符来标识：x% （2）在定义变量时指定其类型： Declare 变量名 As 类型 其中Declare可以是Dim、Static、Public Private之一。4.2.2 变量4.2.2 变量举例 用Dim定义多个变量 Dim Var1, Var2 As Double 定长字符串和不定长字符串的定义 Dim Namevar As String Dim MyName As String * 104.3 变量的作用域4.3 变量的作用域应用程序窗体模块标准模块声明部分通用部分事件过程声明部分通用过程VB应用程序的构成4.2.2 变量的作用域4.2.2 变量的作用域1. 局部变量1. 局部变量局部变量在过程内用Dim、Static定义 Sub Command1_Click() Dim Tempnum As Integer Static Total As Double …… End Sub上述代码定义了两个局部变量，整型变量Tempnum 和双精度静态变量Total2. 模块变量2. 模块变量窗体变量 可用于该窗体内所有过程，定义的位置在窗体的通用声明段。 定义的关键字为Dim或Private 模块变量 与窗体变量相仿，用于该模块内所有过程。3.全局变量3.全局变量作用域：工程中的每个模块，每个过程 定义的位置：窗体或标准模块的通用声明段 定义的关键字：Public或Globalnull4.默认声明nullOption Explicit4.4 常用内部函数4.4 常用内部函数1. 转换函数1. 转换函数取整函数 Fix(x)、Int(x)、CInt(x)、Round(x) 数值和字符串转换函数 val(str)、str$(n) 字符和ASCII码的转换函数 Asc(str)、Chr$(n) 转换八进制和十六进制数函数 Oct$(n)、Hex$(n)1.5+2.5+3.5+4.5=12=round(1.5)+round(2.5)+round(3.5)+ round(4.5)[四舍六入五留双]2. 数学 数学高考答题卡模板高考数学答题卡模板三年级数学混合运算测试卷数学作业设计案例新人教版八年级上数学教学计划 函数2.数学函数三角函数 Sin(x)、Cos(x)、Tan(x) 随机函数 Rnd产生[0,1)之间的随机数 Randomize语句 其它数学函数 Abs(x)、Sgn(x)、Exp(x)、Log(x)、Sqr(x)注意参数x 为弧度值产生300~500的随机整数产生300~500的随机整数Int(Rnd*201+300) Fix(Rnd*201+300)产生-500~-300的随机整数Int(Rnd*201-500) Fix(Rnd*200-500)问题:如何产生0到1之间的随机数,保留两位有效数字?Int(Rnd*100+0.5)/1003.日期/时间函数3.日期/时间函数Time：返回当前时间 Date：返回当前日期 Now：返回系统日期/时间4.4.2 字符串函数4.4.2 字符串函数求字符串大小函数 Len(str)、LenB(str) 取子串函数 Left (str,n)、Right (str,n)、Mid (str,p,n) Ltrim (str)、Rtrim (str)、Trim (str) 找子串函数 InStr(str1, str2) 大小写转换函数 Lcase (str)、Ucase (str)4.4.2 字符串函数4.4.2 字符串函数其他字符串函数 String$(n,字符串) Space$(n) Mid$(字符串,p[,n])=子字符串 举例： str1 = “ABCDEFGHIJK" Mid(str1, 3, 4) = “CDEF" 注意这里的字符串必须为变量，不可以为常量4.5 运算符与表达式4.5 运算符与表达式1、算术运算符1、算术运算符例： 5 * 4 + 10 mod 10 \ 9 / 3 + 2 ^ 2=?整除运算与取模运算整除运算与取模运算例 37.77 \ 5.88 和 37.77 Mod 5.8837.775.88\386=6商+2余数2、字符串运算符 + , &2、字符串运算符 + , & " 123 " + " 456 " 结果 " 123456 " " 123 " & " 456 " 结果 " 123456 " 区别：+ 两边必须是字符串，& 不一定 例如： "abcdef" & 12345 ' 结果为 "abcdef12345 " "abcdef" + 12345 ' 出错 "123" & 456 ' 结果为" 123456 " "123" + 456 ' 结果为 579 "123" + True ‘ 结果为 122 书写时，操作数与&之间要加空格3、关系运算符3、关系运算符 将两个操作数进行大小比较,结果为逻辑量。 字符串比较,则按字符的ASCII码值从左到右一一比较,直到出现不同的字符为止。 例： " ABCDE " > " ABRA " 结果为 False null 将操作数进行逻辑运算，结果是逻辑值 条件表达式1 And 条件表达式2 条件表达式均为T, 结果为T 条件表达式1 Or 条件表达式2 条件表达式有一个T, 结果为T4、逻辑运算符null 1.组成 变量、常量、函数、运算符和圆括号 2.书写规则 (1) 运算符不能相邻。例a+ -b是错误的。 (2) 乘号不能省略。例 x 乘以y 应写成：x*y (3) 括号必须成对出现，均使用圆括号。 (4) 表达式从左到右在同一基准上书写，无高低、大小。 3. 不同数据类型的转换 运算结果的数据类型向精度高的数据类型靠. Integer=字符运算符>关系运算符>逻辑运算二. 表达式表达式书写举例表达式书写举例 sin(45*3.14/180)+(exp(10)+log(10))/sqr(x+y+1)a*b*c*d/e/f/g 或 a*b *c*d/（e*f*g） a*b *c*d/e*f*gnull例：用人单位招聘秘书：年龄小于40岁的女性，学历专科或本科 年龄<40 性别=“女” (学历=“专科” 学历=“本科”) 比a小，比b大 用 Ora 小数b 大数a 小数b 大数比a大，比b小 用 And例：表示算术表达式： 正确的VB表达式： 3<=x And x <=7 错误的VB表达式： 3<=x<=7 或 3<=x Or x<=7 考虑：若分别写成： 年龄<40 And 性别=“女” And (学历=“专科” And 学历=“本科”) 年龄<40 Or 性别=“女” Or (学历=“专科” Or 学历=“本科”)ANDANDOR5. 表达式执行顺序5. 表达式执行顺序表达式由变量、常量、运算符、函数和圆括号按一定的规则组成 表达式 (1) 乘号不能省略：X乘以Y  X * Y (2) 圆括号必须成对出现 (3) 注意运算符的优先级和圆括号的使用运算符的优先级 算术运算符>字符运算符>关系运算符>逻辑运算符null1. 使用中文标点符号 系统产生“无效字符”,以红色显示 2. 字母和数字形状相似 小写字母“l”和数字“1”形式相同、小写字母“o”与数字“0”。 3. 对象名称(Name)属性写错 Text1、Text2、Command1 txtInput、txtOutput、cmdOk 4. 对象的属性名、方法名、标准函数名写错 尽量使用自动列出成员功能。正确的系统按规定的大小写表示。 5. 无意形成控件数组 建立控件时小心使用“复制”、“粘贴”按钮 6. 打开工程时找不到对应的文件 保存文件时先保存窗体.frm文件、再保存.vbp文件，注意路径。常见错误(1) 常见错误(2) 常见错误(2)1.逻辑表达式书写错，在VB没有造成语法错而形成逻辑错 例如数学表达式 3≤x＜10 VB表达式写为 3<=x<10 问题在于VB中的逻辑量与数值量可互转 2.同时给多个变量赋值，在VB没有造成语法错而形成逻辑错 例如Dim x%,y%,z% x=y=z=1 3.标准函数名写错 4.变量名写错 检查方法：在通用声明段加Option Explicit 5.语句书写位置错 在通用声明段只能有Dim语句，不能有赋值等其它语句第四章 小结第四章 小结4.2.2 变量的作用域4.2.2 变量的作用域1. 局部变量1. 局部变量局部变量在过程内用Dim、Static定义 2. 模块变量2. 模块变量窗体变量 模块变量3.全局变量3.全局变量1. 转换函数1. 转换函数取整函数 Fix(x)、Int(x)、CInt(x)、Round(x) 数值和字符串转换函数 val(str)、str$(n) 字符和ASCII码的转换函数 Asc(str)、Chr$(n) 转换八进制和十六进制数函数 Oct$(n)、Hex$(n)[四舍六入五留双]2.数学函数2.数学函数三角函数 Sin(x)、Cos(x)、Tan(x) 随机函数 Rnd产生[0,1)之间的随机数 Randomize语句 其它数学函数 Abs(x)、Sgn(x)、Exp(x)、Log(x)、Sqr(x)注意参数x 为弧度值3.日期/时间函数3.日期/时间函数Time：返回当前时间 Date：返回当前日期 Now：返回系统日期/时间4.4.2 字符串函数4.4.2 字符串函数求字符串大小函数 Len(str)、LenB(str) 取子串函数 Left (str,n)、Right (str,n)、Mid (str,p,n) Ltrim (str)、Rtrim (str)、Trim (str) 找子串函数 InStr(str1, str2) 大小写转换函数 Lcase (str)、Ucase (str)4.4.2 字符串函数4.4.2 字符串函数其他字符串函数 String$(n,字符串) Space$(n) Mid$(字符串,p[,n])=子字符串 举例： str1 = “ABCDEFGHIJK" Mid(str1, 3, 4) = “CDEF" 注意这里的字符串必须为变量，不可以为常量4.5 运算符与表达式4.5 运算符与表达式2、字符串运算符 2、字符串运算符 3、关系运算符1、算术运算符第5章 数据输入输出第5章 数据输入输出5.1 数据输出－Print方法5.1 数据输出－Print方法[对象名.] Print [表达式] 在指定的对象中输出表达式的值，用于在窗体、图片框或打印机上输出数据。Form, PictureBox, PrinterPrint方法Print方法说明 Print方法前的“对象名”可省略，省略对象名就在当前窗体上打印出数据。 表达式可以省略，则在对象上打印空行。 Print方法后可跟多个表达式，当输出多个表达式时，各表达式用逗号|分号隔开。[对象名.] Print [表达式]null例 Private Sub Form_Click() Dim A1 As Integer, A2 As Integer, Temp% A1 = 5: A2 = 10 ‘使用逗号分隔三个表达式 Form1.Print "交换", A1, A2 Temp = A1: A1 = A2: A2 = Temp Form1.Print "得", A1, A2 End SubPrint方法Print方法用“;”（或空格）隔开数据项，打印时以紧凑格式输出 字符串数据的紧凑格式输出时把各表达式连接起来输出 数值数据的紧凑格式输出时,数据前有一个符号位，后有一个空格 Print方法Print方法用“,”隔开，以标准格式输出（分区输出格式），以14个字符宽度划分为一个区段。 判断下面语句的输出结果？ Print 2,-4Print方法Print方法具有计算与输出双重功能 X=5 : y=10 Print (x+y)/3 (对) 但不具有赋值功能 Print z = (x+y)/3 (错)Print方法Print方法，与；的妙用 同一行作显示，必须用，或者； 例：print “30+50=”; print 30+50null Print "AB"; "CDE" Print 2; -4, 6  Print "AB"; "CDE", ‘末尾出现了逗号 Print 2; -4, 6  Print "AB"; "CDE"; ‘末尾出现了分号 Print 2; -4, 6 与Print方法有关的函数与Print方法有关的函数Tab函数 Tab(n) 功能是在指定的位置显示输出信息。参数n为数值表达式，其值为一整数，它是下一个输出位置的列号。 例：print “姓名”;Tab(8);”年龄”;_ Tab(16);”职务”例5.1例5.1Private Sub Form_Click() Print: Print FontName = "魏碑" ' 字体类型为"魏碑" FontSize = 16 ' 字体大小为16 Print " 姓名"; Tab(8); "年龄"; Tab(16); "职务"; Print Tab(24); "单位"; Tab(32); "籍贯" Print Print "张得功"; Tab(8); 25; Tab(16); "科长"; Tab(24); _ "劳动科"; Tab(32); "北京" Print "李得胜"; Tab(8); 32; Tab(16); "处长"; Tab(24); _ "科研处"; Tab(32); "上海" End Subnull运行结果：与Print方法有关的函数与Print方法有关的函数 Spc函数 Spc(n) 功能是在两个输出表达式之间空n个空格。参数n为数值表达式，其值为一整数，它是两个表达式之间的空格数。 例：print “abc”;spc(8);”def” 注意：该函数仅用于输出，不可用于表达式Space$(n)函数Space$(n)函数用于返回n个空格，与spc() 函数功能相同，但它可用于表达式中，也可用于输出。 例如：a$ = “a”+space(4)+”b” print a$ 结果：a b比较比较Tab函数需要从对象的左端开始计数 Spc函数只表示两个输出项之间的间隔null Form1.Print “**********” ‘共10个* Form1.Print Tab(2); "*"; Spc(8); "*" Form1.Print Tab(3); "*"; Spc(8); "*" Form1.Print Tab(4); "*"; Spc(8); "*" Form1.Print Tab(5); "*"; Spc(8); "*" Form1.Print Tab(6); "*"; Spc(8); "*" Form1.Print Tab(7); "**********" nullFormat函数 将数值或日期按指定格式输出。 Format$(表达式，格式字符串) 表5.2 常用格式字符串表 表5.2 常用格式字符串表nullFormat函数 将数值或日期按指定格式输出。 Format$(表达式，格式字符串) 真题 填空真题 填空Print Format(Int(12345.6789*100+0.5)/100, ”0000,0.00”)12,345.68例5.3 编写程序,试验数值的格式化输出例5.3 编写程序,试验数值的格式化输出 Sub Form_Click() Print Format$(12345.6, "000,000.00") Print Format$(12345.678, "###,###.##") Print Format$(12345.6, "###,##0.00") Print Format$(12345.6, "$###,#0.00") Print Format$(12345.6, "-###,##0.00") Print Format$(0.123, "0.00%") Print Format$(12345.6, "0.00E+00") Print Format$(0.1234567, "0.00E-00") End Sub5.2 InputBox函数5.2 InputBox函数执行InputBox函数时程序被暂停，并产生一个对话框，等待用户在输入框输入数据，并返回所输入的内容。变量名=InputBox(提示[,标题][,默认][,x坐标][,y坐标])R = Val(InputBox$("输入球半径", "计算面积体积", 0, 100, 100))InputBox函数的返回值为字符串，可用Val转换为数值例5.4 编写程序,试验InputBox函数的功能例5.4 编写程序,试验InputBox函数的功能Private Sub Form_Click() c1$ = Chr$(13) + Chr$(10) msg1$ = "输入雇客名字:　" msg2$ = "输入后按回车键" msg3$ = "或单击'确定'按钮" msg$ = msg1$ + c1$ + msg2$ + c1$ + msg3$ custname$ = InputBox(msg$, "InputBox_ Function demo", "王大力") Print custname$ End Sub vbcrlf鸡兔同笼问题鸡兔同笼问题P99求解一元二次方程求解一元二次方程要求: （1）参数a,b,c用inputbox函数输入 （2）显示定义方程的根x1,和x2为双精度浮点数 （3）按格式“方程的一个解=？ 方程的另一个解=？” 在窗体上输出。注意注意默认情况下，inputbox的返回值是字符串，可用Val函数转换为数值。 Inputbox一次只能输入一个值，要输入多个值时需多次调用该函数真题真题在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click() x= Inputbox(“请输入一个数”) print x+text1.text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容：5.3 MsgBox函数和MsgBox语句5.3 MsgBox函数和MsgBox语句MsgBox函数 执行MsgBox函数时程序被暂停，并产生一个对话框，对话框中包含提示信息和命令按钮，等待用户单击某个命令按钮， MsgBox函数返回所选按钮的整数值，并以此作为程序继续进行的依据。函数形式: MsgBox(msg[,type][,Title][,helpfile,context])x = MsgBox("参数错误",18)345type：整型表达式,决定信息框按钮的数目和类型及出 现在信息框上的图标类型null 按钮值如下: 函数返回所选按钮整数值:例5.6 编写程序,试验MsgBox函数的功能例5.6 编写程序,试验MsgBox函数的功能 Private Sub Form_Click() msg1$ = "要继续吗?" msg2$ = "Operation Dialog Box" r = MsgBox(msg1$, 34, msg2$) Print r End Sub 34=2+32+0 49=1+48+0例5.7 编写程序,用MsgBox函数判断是否执行例5.7 编写程序,用MsgBox函数判断是否执行 Private Sub Form_Click() msg$ = "请确认此数据是否正确" Title$ = "数据检查对话框" x = MsgBox(msg$, 19, Title$) If x = 6 Then Print x * x ElseIf x = 7 Then Print "请重新输入" End If End SubMsgBox语句MsgBox语句MsgBox()返回所选按钮的整数值,若不需返回值,则可作为MsgBox过程使用。函数形式：变量[%]=MsgBox(提示[,按钮][，标题]) 语句形式： MsgBox 提示[,按钮][,标题]函数形式：x=MsgBox(“参数错误”,18) 语句形式：MsgBox "参数错误",18 null[真题]以下关于MsgBox的叙述中，错误的是( ) A) MsgBox函数返回一个整数。 B) 通过MsgBox函数可以设置信息框中图标和按钮 的类型。 C) MsgBox语句没有返回值。 D) MsgBox函数的第一个参数是一个整数，该参数 只能确定对话框中显示的按钮数量。D [真题] [真题] Private Sub Command1_Click( ) a$ = “software and hardware” b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, , b$, c$, 1 End Sub 单击命令按钮，在弹出的信息框的标题栏中显示的是 A）software and hardware B）software C）hardware D）1 (c)5.4 字形 5.4 字形 5.4.1　字体类型和大小 字体类型：通过FontName属性设置： [窗体.][控件.]|Printer.FontName[=“字体类型”] 例如： FontName="System" 字体大小：通过Fontsize属性设置： Fontsize[=点数] 例如：Text1.FontSize = 12 5.4.2　其他属性 5.4.2　其他属性 FontBold属性（粗体字） FontItalic属性（斜体字） Fontstrikethru属性（加删除线） Fontunderline属性（加下划线） FontTransParent属性（重叠显示） 例5.8 示例例5.8 示例 Private Sub Form_Click() sample1$ = "Microsoft Visual Basic 6.0" sample2$ = "程序设计技巧" FontSize = 20 FontName = "system" Print "system --->"; sample1$ FontName = "modern" Print "modern --->"; sample1$ FontSize = 24 FontName = "宋体" FontBold = True Print "宋体--->"; sample2$ FontName = "隶书" FontItalic = True Print "隶书--->"; sample2$ FontName = "黑体" FontUnderline = True Print "黑体--->"; sample2$ End Sub等考考点 等考考点 考点1 数据输出 考点2 InputBox函数 考点3 MsgBox函数 考点4 MsgBox语句 考点5 Print方法 考点6 Format函数作业作业P-74 4.1-4.8 P98 5.1，5.2 5.4，5.6，5.9 补充：写出打印下面图案的源程序 Visual Basic Visual Basic程序设计语言6 常用标准控件第六章 常用标准控件第六章 常用标准控件文本控件文本控件标签（Lable) 文本框（text)只用于显示文本(输出)信息，不能作为输入信息的界面。即显示正文内容，也可在该区域输入、编辑或者复制文本。标签的属性 标签的属性 Caption：用来改变Label控件中显示的文本 Alignment：设置Caption属性中文本的对齐方式 （0，1，2) BorderStyle：有无边框 0-None：无边框； 1-Fixed Single：有边框； Autosize （True,False) Backstyle: 是否透明(0,1) 文本框的属性 文本框的属性 Text:显示文本内容 Multiline：是否允许输入多行（默认一行false） Alignment：设置文本框中文本的对齐方式 PasswordChar：设置文本框中显示口令字符 Locked：设置是否锁定文本框中的文本 MaxLength: 最大字符数 文本框没有Caption属性文本框事件文本框事件 Change( ) GotFocus LostFocus SetFocus应用举例应用举例例6.1 用change事件改变文本框的Text属性 Private Sub Command1_Click() Text1.Text = "Microsoft Visual Basic 6.0" End Sub Private Sub Text1_Change() Text2.Text = LCase(Text1.Text) Text3.Text = UCase(Text1.Text) End Subnull例6.2 数据过滤 Dim total Sub Score_LostFocus() x = Val(Score.Text) If x < 0 Or x > 100 Then Beep Score.Text = "" Score.SetFocus Print "请重新输入" Else total = x End If End Sub Sub Command1_Click() Print total End Subnull例6.3 设置密码 Private Sub Command1_Click() If Text1.Text = "123456" Then Text2.Text = "密码正确, 继续" Else Text2.Text = "密码错误, 重新输入" End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub 图形控件图形控件图片框 图像框 直线 形状图片框和图像框图片框和图像框图片框和图像框用于在窗体的指定位置显示图形信息。图片框图像框图片框和图像框的属性图片框和图像框的属性与窗体相同的属性 Enabled, Name, Visible, AutoRedraw, Height, Width, Left, Top CurrentX和CurrentY Picture属性 Stretch属性图片框和图像框的区别图片框和图像框的区别 图片框可作父控件，而图像框不能作为父控件。 图片框可以通过Print方法接收文本，而图像框不能接收Print方法输出的信息。 图像框比图片框占用内存少，显示速度快。装入图形装入图形用属性窗口中的Picture属性装入 复制、粘贴到图片框或图像框中 用LoadPicture函数装入图形如何在图片框或图像框中装入图形?" "null 例6.5 交换两个图片框中的图形。 Private Sub Form_Load( ) Picture1.Picture = LoadPicture _ ("d:\temp\pica.jpg") Picture2.Picture = LoadPicture _ ("d:\temp\picb.jpg") End Sub Private Sub Form_Click( ) Form1.Picture = Picture1.Picture Picture1.Picture = Picture2.Picture Picture2.Picture = Form1.Picture Form1.Picture = LoadPicture( ) End Sub程序示例程序示例交换两张图片直线和形状直线和形状直线控件(Line) 在窗体、图片框和框架中画各种直线段。通过使用Line控件在窗体上可视化地安排直线的位置、长度、宽度、颜色等。 常用属性： X1、X2、Y1和Y2 (x1,y1),(x2,y2) BorderStyle（边框风格）属性 BorderWidth（线宽）属性 形状控件形状控件Shape控件预定义了6种形状， 通过设置Shape属性来实现所需形状。表 Shape属性设置值及对应的形状vvvvvvvvvv 例6.6 在窗体上显示6种可以使用的形状 Private Sub Form_Click() FontSize = 12 CurrentX = 350 Print "0"; For i = 1 To 5 Shape1(i).Left = Shape1(i - 1).Left + 1050 Shape1(i).Shape = i Shape1(i).Visible = True CurrentX = CurrentX + 750 Print i; Next i End Sub在窗体上显示6种形状在窗体上显示6种形状6.3 按钮控件6.3 按钮控件1.命令按钮的属性 Caption:标题属性——命令按钮显示的内容 Default:确认属性。设置为True时，按Enter键相 当于用鼠标器单击了该按钮。 Enabled:设置按钮是否为激活状态。 Style : 确定显示的形式 0只能显示文字,1文字、 图形均可。 Picture：给命令按钮指定一个图片。2.命令按钮的事件2.命令按钮的事件事件Click null例6.7 编写程序,模拟交通信号灯的切换null Private Sub Form_Load() Image2.Visible = False Image3.Visible = False End Sub Private Sub Command1_Click() If Image1.Visible = True Then Image1.Visible = False Image2.Visible = True ElseIf Image2.Visible = True Then Image2.Visible = False Image3.Visible = True Else Image3.Visible = False Image1.Visible = True End If End Sub Private Sub Command2_Click() End End Subnull选择控件 单选按钮(Option)、复选框(Check)选择控件 单选按钮(Option)、复选框(Check)1. 单选按钮的属性及事件 属性 Caption Enabled Value 事件 Click2. 复选框的属性及事件 2. 复选框的属性及事件 属性 Value Alignment 事件 ClicknullList xCombo x6.5 列表框和组合框列表框 List x列表框 List x属性 List 属性 Colunms: 确定列数 ListCount: 列表框的列表项数 ListIndex: 当前选中的列表项的索引 Text: 得到当前列表框的内容 MultiSelect: 设置一次可以选择的表项数S$=List1.list(6)列表框 List x列表框 List x事件 Click DbClick 方法 AddItem: 在