VB教案(1-3章).ppt

《VB教案(1-3章).ppt》由会员分享，可在线阅读，更多相关《VB教案(1-3章).ppt（106页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第一章 VB程序设计概述程序设计基本概念:o计算机的工作是由程序来控制的。o程序是指令的集合。o指令是计算机可以识别的命令。计算机语言的发展机器语言：由计算机硬件系统可以识别的二进制指令组成的语言。例如：1011 1001 1101缺点：难懂，调试困难。计算机语言的发展汇编语言：将机器指令转换成为一些可以被人读懂的助记符，如ADD、SUB等。例如：ADD CX, DX 将DX中的数值加进CX。经过汇编后执行。 与硬件联系密切，与人类自然语言相差较大。计算机语言的发展高级语言：屏蔽了机器的细节，程序采用具有含义的数据命名和容易理解的执行语句，类似英语和数学表达式。例如：If yForm1.wid

2、th Then Label1.left=0End Sub三、标签 Label 用于显示文本(输出)信息，不能作为输入信息的界面。默认控件名Name 标题 Caption 有关属性设置 Form1 颜色、对齐、鼠标属性例 MousePointer=99,MouseIcon=Key04.ico Label1 左对齐 Alignment=0， BorderStyle =1 Label2 居中 Alignment=1，BorderStyle =1 Label3 自动 AutoSize=True， WordWarp=False， BorderStyle =1 Label4 背景白 BackColor=

3、&H00FFFFFF&， BorderStyle =0 Label5 前景红 ForeColor= &H000000FF&， BorderStyle =0 四、文本框 是一个文本编辑区域，可在该区域输入，编辑和显示正文内容。 主要属性主要属性 Text：正文内容； Maxlength：设置正文的最多字符个数，0任意长度值； MultiLine：是否为多行，默认为一行，False； ScrollBars：MultiLine为True时，该属性才有效，表示滚动条的形式 0-None、1-Horizontal、2-Vertical、3-Both； Locked：是否可被编辑属性，False，表示为可

4、编辑。 PassWord：口令字符； Text属性返回输入的数据，屏幕显示该字符； SelStart、SelLength、SelText：选中文本的起始、长度、内容。例2-4 文本编辑器程序代码：Private Sub Form_Click()Text1.SelStart = 0Text1.SelLength = 8Text2.Text = Text1.SelTextEnd Sub常用事件常用事件 Change：当改变文本框的Text属性时会引发该事件。 KeyPress(KeyAscii As Integer)：同上，并可返回一个KeyAscii参数即所按键的值存放在参数KeyAscii中。

5、例如：对回车的判断 KeyAscii=13KeyAscii=13 LostFocus：当控件失去焦点时发生。 GotFocus：当控件获得焦点时发生。常用方法常用方法 对象.SetFocus：是把光标移到指定的文本框对象中。例如：Text1.SetFoucs例2-5 文本框大小写字母转换，以Key Press为驱动事件。程序代码：Private Sub Command1_Click() Text1.Text = Text2.Text = End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Text1_KeyPress(KeyAsc

6、ii As Integer) Dim aa As String * 1 aa = Chr$(KeyAscii) 将ASCII码转换成字符 Select Case aa Case A To Z 大写转换成小写 aa = Chr$(KeyAscii + 32) Case a To z 小写转换成大写 aa = Chr$(KeyAscii - 32) Case Case Else aa = * End Select 将转换文本框已有的内容与刚输入并转换的字符连接 Text2.Text = Text2.Text & aaEnd Sub五、命令按钮五、命令按钮 主要属性主要属性oCaption：命令按钮

7、显示的内容，可设置快捷键，例 &Ok，显示 Ok。oStyle：确定显示的形式，0 只能显示文字，1 文字、图形均可 。oPicture ：按钮可显示图片文件(.bmp和.Ico)，当Style为1时有效。oToolTipText ：设置图形按钮的文字提示，和Picture结合使用。 事件事件 Click例例 2-62-6 建立一个允许剪切、复制和粘贴的简单记事本程序。 综合应用程序代码:Dim st As StringPrivate Sub Command1_Click()st = Text1.SelTextText1.SelText = End SubPrivate Sub Command

8、2_Click()st = Text1.SelTextEnd SubPrivate Sub Command3_Click()Text1.SelText = stEnd SubPrivate Sub Command4_Click()Text1.FontName = 黑体End SubPrivate Sub Command5_Click()Text1.FontSize = 20End SubPrivate Sub Command6_Click()EndEnd Sub例2-7利用文本框，实现加法运算。程序代码：Private Sub Text1_LostFocus()If Not IsNumeric

9、(Text1) ThenText1 = Text1.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then If Not IsNumeric(Text2) Then Text2 = End IfEnd IfEnd SubPrivate Sub Text3_GotFocus()Text3 = Val(Text1) + Val(Text2)End Sub本章小节q类是同种对象的集合与抽象，包含所创建对类是同种对象的集合与抽象，包含所创建对象的属性描述和行为特征的定义，是创建对

10、象的属性描述和行为特征的定义，是创建对象实例的模板。象实例的模板。q对象三要素：对象三要素：属性、事件属性、事件、方法方法q窗体窗体 是所有控件的容器是所有控件的容器q基本控件基本控件 标签、文本框、命令按钮标签、文本框、命令按钮Move方法形式：对象.Move Left ，Top，Width，Height L e ft T o p H e igW id t h 例如：Command1.Move 0,50, Command1.Width/2从右至左滚动字幕：Sub Mymove()Label1.move label1.left-200If Label1.left0 Then Label1.le

11、ft=Form1.widthEnd Sub第三章 VB语言基础o 数据类型数据类型o 变量和常量变量和常量o 运算符和表达式运算符和表达式o 程序结构和编码规则程序结构和编码规则数据类型数据类型数 据 类 型 复 合 数 据 类 型 基 本 数 据 类 型 字 符 型 逻 辑 型 日 期 型 变 体 型 对 象 型 数 值 型 整 数 浮 点 数 货 币 型 字 节 型 整 型 长 整 型 单 精 度 型 双 精 度 型 自 定 义 数 据 类 型 数 组 数值型数据数值型数据 (1)整数整数 整型：整型：Integer 占占2字节字节 类型符为类型符为% 范围：范围：-32768 32767

12、 例如：例如：123、-456、30289% 长整型：长整型：Long 占占4字节字节 类型符为类型符为& 范围：范围： -2147483648 2147483647 例如：例如：-1234567&、396& (2)浮点数浮点数 又称实数，是带有小数部分的数值，并可表示为指数形式。又称实数，是带有小数部分的数值，并可表示为指数形式。 单精度：单精度：Single 占占4字节字节 类型符为类型符为! 范围：范围： -3.410-38 3.410+38 精度达精度达7位。例如：位。例如：342.54、1.543E+8、0.453E-4 双精度：双精度：Double 占占8字节字节 类型符为类型符为

13、# 范围：范围： -1.710-308 1.710+308 精度达精度达15位。位。 例如：例如：342.54#、3.432D+67、0.453E-4#数值型数据数值型数据(3)货币类型货币类型 Currency占占8字节字节 类型符为，用于货币计算类型符为，用于货币计算 范围：小数点左边范围：小数点左边15位，小数点右边位，小数点右边4位位 例如：例如：2347、3.548(4)字节类型字节类型 Byte 占占1字节字节 无类型符范围：无类型符范围：0-255 占一个字节的无符号整数。占一个字节的无符号整数。字符型数据字符型数据字符型：字符型：String，类型符为，类型符为$，用于存放字符

14、型，用于存放字符型数据，包括所有西文字符和汉字及符号，用双数据，包括所有西文字符和汉字及符号，用双引号括起。范围：引号括起。范围：065535个字符。个字符。例如：例如：“abc”、“45gssk”、“程序设计程序设计”、“123”注意：注意：“”“”表示空字符，表示空字符，“ ”表示有一个空格的表示有一个空格的字符。字符。逻辑型数据逻辑型数据 只有只有True（真）和（真）和False（假）两个值，以两（假）两个值，以两个字节存放。用于逻辑判断和逻辑运算。个字节存放。用于逻辑判断和逻辑运算。 日期型数据日期型数据 用于表示时期、时间，占用于表示时期、时间，占8字节，用字节，用#括起来表示。括

15、起来表示。日期范围：日期范围： 01.01.100-12.31.9999时间范围：时间范围： 0:00:0023:59:59例如：例如：#2006-7-12 12:30:36 PM#、#January 15，2006#、#07/13/2006#、#05/12/2008#变体型数据变体型数据 所有未定义的变量默认为变体型数据，可以是数值型、所有未定义的变量默认为变体型数据，可以是数值型、字符型、日期型等，根据程序运行需要来处理。字符型、日期型等，根据程序运行需要来处理。 编程习惯应编程习惯应“先声明变量，后使用变量先声明变量，后使用变量”。使用变体型。使用变体型数据内存空间大，运行效率低，不易于

16、调试。数据内存空间大，运行效率低，不易于调试。对象型数据对象型数据 用于存放程序对象的地址，如控件对象，占用于存放程序对象的地址，如控件对象，占4字节。字节。如：如：Command2、Form1VB的基本数据类型的基本数据类型变量变量o在程序运行过程中，其值能够改变的量称为变量。在程序运行过程中，其值能够改变的量称为变量。变量需具有：名字、数据类型和作用域。变量需具有：名字、数据类型和作用域。通过通过Dim语句来声明变量：语句来声明变量：形式：形式：Dim 变量名变量名 As 数据类型数据类型例如：例如：Dim A As Integer Dim abc As String, sum As Si

17、ngle等价于：等价于：Dim abc$, sum!即可用即可用类型符代替类型符代替“As类型类型”。变量声明变量声明例如：例如：Dim x As Integer, y As Integer, z As Integer不能写作：不能写作：Dim x, y, z As Integer Dim m，n As Integer, x，y As Single 则创建了变体型变量则创建了变体型变量m、x，整型变量，整型变量n和单精度和单精度型变量型变量y 变量命名规则变量命名规则o必须以字母或汉字开头，由字母、汉字、数必须以字母或汉字开头，由字母、汉字、数字或下划线组成，长度小于等于字或下划线组成，长度小

18、于等于255个字符个字符o 不能使用不能使用VB中的关键字，如中的关键字，如If、Theno VB不区分变量名的大小写，一般变量名首不区分变量名的大小写，一般变量名首字母用大写，其余用小写字母表示；常量全字母用大写，其余用小写字母表示；常量全部用大写字母表示。部用大写字母表示。变量命名规则变量命名规则o合法变量名： A, x3, BOOK_1, sum5, Doc2, abco非法变量名： 3st （不能以数字开头） s*T （出现非法字符*） dw ht （变量名不能有空格） Dim Sin As Integer （Sin是函数名） x-y （ 变量名中不能出现减号）变量命名规则变量命名规则

19、练习：练习：下列变量名是否合法？下列变量名是否合法？a123 、 a 123、 a12_3、 123_a、 yhgx、 integer 、Sum、 Label1、变量名、变量名、 Avg.1 、 strName变量默认初值变量默认初值o数值型变量：0o字符串变量：“”（空）o逻辑变量：False如： Private Sub Form1_Click( ) Dim a As Integer a=a+2 Print a End Sub隐式声明隐式声明o对变量不加声明而直接使用，其类型为对变量不加声明而直接使用，其类型为Variant 类型。类型。例如：例如：Private Sub Form1_Cli

20、ck( ) a=10:b=20 Sum=a+b Print “Sum=”; Sum End Sub 建议不使用。建议不使用。注意注意: 在通用声明处加在通用声明处加 Option Explicit 语句可强制显语句可强制显式声明变量。式声明变量。常量常量o在程序运行过程中，其值不能改变的量称为常在程序运行过程中，其值不能改变的量称为常量。量。1、直接常量、直接常量 各种类型的常数值，其常数值直接反映了其类各种类型的常数值，其常数值直接反映了其类型。型。 如如: 123 、-123、123%均为整型均为整型 123& 为长整型为长整型 123.45、123.45！、！、0.12E+3 均为单精度

21、型均为单精度型 123.45#为双精度型为双精度型 123.45 为货币型为货币型 #03/12/2006#、#2008-12-31 12：30：00 PM# 均为日期型均为日期型 “12345”、“asddf234”、“程序设计程序设计” 均为字符型。均为字符型。常量常量2、用户声明的符号常量、用户声明的符号常量 由用户定义的符号来表示的常量。由用户定义的符号来表示的常量。形式：形式：Const 符号常量名符号常量名 As 类型类型 = 表达式表达式例如：例如： Const PI = 3.14159声明符号常量声明符号常量PI，代表，代表3.14159，单精度型，单精度型 Const COU

22、NTS#=45.67 COUNTS代表了双精度数代表了双精度数45.67常量常量3、系统提供的常量系统提供的常量系统提供许多内部常量，在系统提供许多内部常量，在VB中是以中是以vb为前缀。为前缀。例如：例如： vbRed 表示红色表示红色 vbNormal 表示正常表示正常Form1.WindowsState=vbNormal 窗口正常Form1.WindowsState=vbMaximized 窗口最大化运算符和表达式运算符和表达式运算符是表示实现某种运算的符号。运算符是表示实现某种运算的符号。VB中的运算符可分为：中的运算符可分为：1、算术运算符、算术运算符2、字符串运算符、字符串运算符3

23、、关系运算符、关系运算符4、逻辑运算符、逻辑运算符算术运算符算术运算符 - * / mod + 优先级别优先级别:从左向右是由高到低。从左向右是由高到低。如: 23 8 3*2 6 27(1/3) 3 10/3 3.33333333333333 103 3 10 mod 3 1 30-True 31 False+10+”4” 14 算术运算符两边应是数值型，如是字符型或逻辑型，算术运算符两边应是数值型，如是字符型或逻辑型，则自动转换成数值型再运算。则自动转换成数值型再运算。算术运算符算术运算符ia=3算术表达式算术表达式表达式中所有运算符和操作数都是并排的。表达式中所有运算符和操作数都是并排的

24、。efgabcda a* *b b* *c c* *d/e/f/g d/e/f/g 或或 a a* *b b* *c c* *d/(ed/(e* *f f* *g)g) 数学表达式数学表达式: (3x+y)-z (xy)4 VB表达式表达式: sqr(3*x+y)-z)/(x*y)4110lne45sin10yxsin(45*3.14/180)+(exp(10)+log(10)/sqr(x+y+1)算术表达式算术表达式乘号不能省略。乘号不能省略。例：2rS应为:S=3.14*r2括号必须成对出现括号必须成对出现( (均使用圆括号均使用圆括号) )。5zyx表达式：表达式：Abs (x+y)+z

25、5aacbb242表达式：表达式：(-b+ Sqr (b*b-4*a*c)/(2*a)xerln)2(5表达式：表达式：(2*3.14*r+exp(-5)*log (x)数据类型的转换数据类型的转换o算术运算中，如果操作数具有不同精度，则算术运算中，如果操作数具有不同精度，则运算结果的数据类型采用精度高的数据类型。运算结果的数据类型采用精度高的数据类型。 o转换规则：转换规则：IntegerLongSingleDouble ABCDE ABR False= bc = abcde True 233False= 23 = 3 True abc abcde True关系运算符关系运算符o比较规则比较

26、规则： 1、字符比较时是按其、字符比较时是按其ASCII码值比较大小的，码值比较大小的，并且是从左向右一个一个字符比较的。并且是从左向右一个一个字符比较的。2、汉、汉字字符是按拼音为序进行比较。并且汉字字符字字符是按拼音为序进行比较。并且汉字字符大于西文字符。大于西文字符。 3、数值型数据，直接按其大小进行比较。、数值型数据，直接按其大小进行比较。逻辑运算符逻辑运算符逻辑运算符作用是将操作数进行逻辑运算，结果是逻逻辑运算符作用是将操作数进行逻辑运算，结果是逻辑值辑值True或或False。 逻辑表达式逻辑表达式例例1：选拔优秀生的条件为：年龄：选拔优秀生的条件为：年龄(Age)小于小于19岁，

27、三门课总分岁，三门课总分(Total)高于高于285分，其中有分，其中有一门为一门为100分，其表达式写为：分，其表达式写为： Age285 And ( Mark1=100 Or Mark2 =100 Or Mark3=100 )例例2：表达：表达x是是5或者或者7的倍数。的倍数。运算符的优先级运算符的优先级算术运算符算术运算符字符运算符字符运算符关系运算符关系运算符逻辑运算符逻辑运算符例题：表示算术表达式例题：表示算术表达式： 正确的正确的VB表达式：表达式： 3=x And x =7 错误的错误的VB表达式：表达式： 3=x=7 或或 3=x Or x= 100 Or a = 0 Or I

28、nt(a) a ThenText1 = Text1.SetFocusElseText2 = Sqr(a)End IfEnd Sub常用函数常用函数oVB函数包括：内部函数和用户自定义函数内内部部函函数数数学函数数学函数转换函数转换函数字符串函数字符串函数日期函数日期函数Shell函数函数数学函数数学函数-43Int(-3.5)Int(3.5) 取小于或等于取小于或等于N的最大整数的最大整数Int(Int(NN) )2.3Log(10)自然对数自然对数Log(Log(NN) )-3 3Fix(-3.5)Fix(3.9)取整取整Fix(Fix(NN) )20.086Exp(3)enExp(Exp(

29、NN) )1Cos(0)余弦函数余弦函数Cos(Cos(NN) )3.5Abs(-3.5)取绝对值取绝对值Abs(Abs(NN) )结果结果实例实例含义含义函数名函数名数学函数数学函数0Tan(0)正切函数正切函数Tan(N)Tan(N)3Sqr(9)平方根平方根Sqr(N)Sqr(N)-1 Sgn(-3.5)符号函数符号函数Sgn(N)Sgn(N) 0Sin(0)正弦函数正弦函数Sin(N)Sin(N)-4 4Round(-3.5)Round(3.5)四舍五入取整四舍五入取整Round(N)0,1)之间的数之间的数Rnd产生随机数产生随机数Rnd(N)Rnd(N)结果结果实例实例含义含义函数

30、名函数名数学函数数学函数例：Int(3.2)=3 Int(3)=3 Int(6.8)=6 Int(-3.4)=-4Rnd函数生成0，1）的双精度随机数。例：在立即窗口通过print Rnd语句观察随机函数的运行效果。应用举例应用举例实验实验B-3B-3我国有13亿人口，年增长率0.8%，多少年后人口超过26亿。计算结果以整数形式输出。Private Sub Command1_Click()n = Int(Log(2) / Log(1.008) + 1)Label1 = n & 年后人数超过26亿End Sub应用举例应用举例生成一个0100之间的随机整数。o产生0，1）随机数：Rndo产生0，

31、100）随机数：Rnd*100o产生0，100）随机整数：Int(Rnd*100)o问题1：生成0，100范围内的随机整数。o问题2：生成100，200随机整数。问题3：生成30，50随机整数。实验实验B-5B-5o随机产生一个3位正整数，然后逆序输出，产生的随机数与其逆序数同时显示。Private Sub Command1_Click()Text1 = Int (Rnd * 900 + 100)End SubPrivate Sub Command2_Click()Dim x%, x1%, x2%, x3%x = Val(Text1)x1 = x Mod 10 x2 = (x Mod 100)

32、 10 x3 = x 100Text2 = x1 * 100 + x2 * 10 + x3End Sub转换函数转换函数ABCUcase(abc)小写字母转为大写字母小写字母转为大写字母Ucase(C)144Oct$(100)十进制转换成八进制十进制转换成八进制Oct(N)123.45Str$(123.45)数值转换为字符串数值转换为字符串Str(N)123Val(123AB)数字字符串转换为数值数字字符串转换为数值Val(C) abcLcase(ABC)大写字母转为小写字母大写字母转为小写字母Lcase$(C)64Hex(100)十进制转换成十六进制十进制转换成十六进制Hex(N)AChr(

33、65)ASCII码值转换成字符码值转换成字符Chr(N)2003-11-13CDate(2003/11/13)转换成日期型转换成日期型CDate65Asc(A)字符转换成字符转换成ASCII码值码值Asc(C)结果结果实例实例功能功能 函数名函数名字符串函数BCDMid(ABCDE,2,3)取字符子串取字符子串Mid(C,N1,N2)ABCDTrim( ABCD )去掉字符串两边空格去掉字符串两边空格Trim(C)A3AB3 Replace(ACDABCD,CD,3) 用用C2替代替代C1Replace(C,C1,C2) Space(3) 产生产生N个空格的字符串个空格的字符串 Space(N

34、)4Len(AB教育教育)字符串长度字符串长度Len(C)ABCLeft(ABCDE,3)取字符串左边取字符串左边n个字符个字符Left(C,N)6InStr(EFABCDEFG,“DE)在在C1中找中找C2，若找不到，若找不到则结果为则结果为0InStr(C1,C2)结果结果实例实例说明说明 函数名函数名日期函数日期函数Second(#1:12:56PM#)返回秒返回秒(059)Second(C|N)Time返回系统时间返回系统时间TimeYear (Now)返回年代号返回年代号(17532078)Year(C|N)Now返回系统日期和时间返回系统日期和时间NowMonth(2003,05,

35、01)返回月份代号返回月份代号(112)Month(C|N)Minute(#1:12:56PM#)返回分钟返回分钟(059)Minute(C|N)Hour(#1:12:56PM#)返回小时返回小时(024)Hour(C|N)Day(2003,05,01)返回日期代号返回日期代号(131)Day(C|N)Date返回系统日期返回系统日期Date实例实例说明说明 函数名函数名日期函数日期函数例例: 计算从当前日期到计算从当前日期到2009年年6月月30日有多日有多少天？表达式为：少天？表达式为：DateDiff(d, Now, #2009-6-30#)计算从当前日期到计算从当前日期到2009年年6

36、月月30日有多少周？日有多少周？表达式为：表达式为：DateDiff(“ww”, Now, #2009-6-30#)计算从计算从2000年年2月月14日增加两周后的日期：日增加两周后的日期：DateAdd(ww,2,#2000-2-14#)Shell函数函数 Shell函数可调用各种应用程序。格式如下：函数可调用各种应用程序。格式如下：ShellShell(命令字符串命令字符串 ，窗口类型窗口类型 ) 函数调用成功返回一个任务标识函数调用成功返回一个任务标识ID，不成功则返回，不成功则返回0。 例例 i = Shell( calc.exe”,1) j=Shell(“Mspaint.exe”,1

37、) 要执行的应用程序（扩展名为.com .exe .bat），包括路径执行时的窗口大小，范围04、6，一般取1表示正常大小。程序结构程序结构 通用声明段 本书此处书写此类语句 过程块结构，位置先后没 有关系 编码规则编码规则(1) VB代码不区分字母的大小写代码不区分字母的大小写关键字关键字 首字母自动转换成大写，其余字母转换成小写。首字母自动转换成大写，其余字母转换成小写。用户自定义的变量、过程名，以第一次定义的为准，用户自定义的变量、过程名，以第一次定义的为准，以后输入的自动向首次定义的形式转换。以后输入的自动向首次定义的形式转换。(2) 语句书写自由语句书写自由一行上可书写多句语句一行上

38、可书写多句语句(用冒号分隔用冒号分隔)，一行最多，一行最多255个字符。个字符。单行语句可分若干行书写，在本行后加入续行符单行语句可分若干行书写，在本行后加入续行符(空格空格和下划线和下划线)。综合例题综合例题模仿模仿WordWord字处理软件，实现字符串查找字处理软件，实现字符串查找替换功能。替换功能。综合例题综合例题o实现思路：v 利用替换利用替换(Replace)函数实现替换功能。函数实现替换功能。v 利用查找利用查找(InStr)、取子串、取子串(Left、Mid)等函数实现替换功能。等函数实现替换功能。v 利用利用Shell函数调用函数调用winword.exe执行执行Word程序实

39、现替换功能。程序实现替换功能。综合例题综合例题o程序代码：Private Sub Command2_Click()Text4 = Replace(Text1, Text2, Text3)End SubPrivate Sub Command1_Click() i = InStr(Text1, Text2) 在Text1中找到Text2的位置 k = i + Len(Text2) 找到替换后半部分的起始位置 ls = Left(Text1, i - 1) 取前半部分字符串Text4 = ls + Text3 + Mid(Text1, k) 拼成新字符串End Sub综合例题综合例题o程序代码：Pr

40、ivate Sub Command3_Click()i = Shell (c:program filesmicrosoft officeoffice11winword.exe, 1)End Sub例题分析例题分析例题分析例题分析Private Sub Text1_LostFocus()If Not IsNumeric(Text1) Then Text1 = Text1.SetFocus End IfEnd SubPrivate Sub Text2_LostFocus()If Not IsNumeric(Text2) Then Text2 = Text2.SetFocus End IfEnd S

41、ub例题分析例题分析Private Sub Text2_LostFocus()If Text2” And Not IsNumeric(Text2) Then Text2 = Text2.SetFocus End IfEnd Sub终止死循环的方法：Ctrl + Break本章小节o数据类型：包括数值型数据类型：包括数值型 、字符型、逻辑型、日期、字符型、逻辑型、日期型、变体型等。型、变体型等。o变量：在程序运行中其存储的值可以改变变量：在程序运行中其存储的值可以改变 变量声明变量声明 Dim 变量名变量名 As 类型类型q 运算符运算符 算术运算符、字符串运算符、关系运算符算术运算符、字符串运

42、算符、关系运算符和逻辑运算符。和逻辑运算符。o函数函数 内部函数、用户自定义函数内部函数、用户自定义函数 调用函数形式：调用函数形式：函数名函数名（参数列表）（参数列表）oShell函数函数 调用各种应用程序调用各种应用程序练习一练习一（1）产生一个1099之间的随机整数的表达式是_。（2）数学表达式 的VB表达式为_。（3）数学表达式3x211）3312）True and False13）910 or true练习三练习三（1）编写一个程序，随机生成一个三位正整数，并在窗体上打印出其个位数、十位数和百位数。（2）编写一个简易计算器程序，界面如图：练习三练习三（3）在窗体上放一个标签Label1，1个命令按钮Command1，当窗体启动时使标签显示系统的当前时间。命令按钮显示为“放大”，当单击命令按钮时，将标签中显示的文字放大13倍（随机决定），并重新显示系统当前时间。106 结束语结束语