VB语言程序设计(第二章)[详版课资]

《VB语言程序设计(第二章)[详版课资]》由会员分享，可在线阅读，更多相关《VB语言程序设计(第二章)[详版课资]（90页珍藏版）》请在装配图网上搜索。

1、 常量、变量、运算符和表达式常量、变量、运算符和表达式 赋值与注释语句和一句多行与一行多句赋值与注释语句和一句多行与一行多句 基本控制结构基本控制结构 常用内部函数常用内部函数 输入与输出输入与输出 数组数组 算法举例算法举例1课堂优质2.1.1 常量常量类型：数值型、字符型、逻辑型、日期型类型：数值型、字符型、逻辑型、日期型1. 一般常量一般常量123,-456.8,“ABC”， “水产学院水产学院”，true,false,#1/3/2004#1 MAR 2004# , #MARCH 1, 2004# ,&O123，-&HA22. 符号常量符号常量语法：语法：Public|Private|G

2、lobal Const 常数名常数名 AS 数据类型数据类型=表达表达式式表达式可以是结果为数或字符串的表达式或先前定义过的常量表达式可以是结果为数或字符串的表达式或先前定义过的常量Public或或Global说明可在整个应用程序中使用，说明可在整个应用程序中使用，Private 说明只说明只能在该过程中使用。（全局常量）能在该过程中使用。（全局常量）常量名必须以字母开头，不包含句号或类型说明符，不能超过常量名必须以字母开头，不包含句号或类型说明符，不能超过255个字符。个字符。例：例：Const PI=3.14 Const E as double =2.718 const N%=782.1常

3、量、变量、运算符和表达式2课堂优质2.1.2 变量变量1. 变量名变量名字母开头字母开头由字母、数字和下划线组成由字母、数字和下划线组成不能包含空格、句号、类型说明符不能包含空格、句号、类型说明符长度不超过长度不超过255不能与关键字重名不能与关键字重名3课堂优质2. 变量类型LLL4课堂优质说明说明1：字符串类型有定长和变长，定长字符串的存储空间为串长；：字符串类型有定长和变长，定长字符串的存储空间为串长；变长字符串的存储空间为变长字符串的存储空间为10+串长。串长。RETURN说明说明2：variant有数字类型和字符类型之分。数字类型存储空间为有数字类型和字符类型之分。数字类型存储空间为

4、16；字符串类型为；字符串类型为22+串长。串长。说明说明3：variant包含包含3种特定值：种特定值：Empty,NULL,ErrorEmpty：不同于不同于0、零长度字符串、零长度字符串、Null的特定值。的特定值。Null：未知的数据或丢失的数据，一般用于数据库未知的数据或丢失的数据，一般用于数据库Error：已发生的过程中的错误状态。已发生的过程中的错误状态。Variant变量赋值之前具有值变量赋值之前具有值Empty。包含包含NULL的表达式，计算结果总是的表达式，计算结果总是NULL5课堂优质Variant用于在用户不能确定变量的数据类型时声明变量，用于在用户不能确定变量的数据类

5、型时声明变量，以便计算机为该变量留内存空间。变体根据实际需要可以为以便计算机为该变量留内存空间。变体根据实际需要可以为10种任何数据类型中的任何一种。种任何数据类型中的任何一种。Private Sub Form_Activate() Dim a as variant a = 1 Print a a = this Print aEnd Sub输出结果为：输出结果为：1thisPrivate Sub Form_Activate() Dim a As Integer a = 1 Print a a = this Print aEnd Sub将出现编译错误6课堂优质在变量名后加上在变量名后加上“%”或

6、在或在-3276832767之间的整数后加上之间的整数后加上%都表都表示示该变量为整型，例：该变量为整型，例： Private Sub Form_Activate() a% = 234.567 c = 234.567 b = 234% Print a, b, cEnd Sub将打印出将打印出235 234 234.567整型和长整型的区别：整型和长整型的区别：(1)占内存空间不同占内存空间不同 (2)表示数的范围不同表示数的范围不同7课堂优质单精度最多能保留到小数点后单精度最多能保留到小数点后6位有效数字，双精度可保留到小数位有效数字，双精度可保留到小数点后点后14位位(单精度为单精度为7位有

7、效数字，双精度为位有效数字，双精度为15位有效数字位有效数字)。单精。单精度的类型说明符为！，双精度的类型说明符为度的类型说明符为！，双精度的类型说明符为#。货币类型的必要性：为精确表示财务帐目。类型说明符为货币类型的必要性：为精确表示财务帐目。类型说明符为，它，它的精度高，规定精确到小数点后的精度高，规定精确到小数点后4位，一般的数值型数据在计算机位，一般的数值型数据在计算机中是以二进制进行计算的，计算有误差，而货币类型是以十进制中是以二进制进行计算的，计算有误差，而货币类型是以十进制进行计算的，精确度高。另外，单精度只有进行计算的，精确度高。另外，单精度只有7位有效数字，双精度位有效数字，

8、双精度只有只有15位有效数字，表示大数额的货币时不精确，如：位有效数字，表示大数额的货币时不精确，如：$223 555 868 999 234.65，用单精度数表示为：，用单精度数表示为：$2.235559E14，用双精度数表示为：用双精度数表示为：223 555 868 999 235，用货币类型表示为：，用货币类型表示为：$223 555 868 999 234.65 RETURN8课堂优质3. 变量说明变量说明（1）显式说明）显式说明Dim 变量名变量名 As 数据类型数据类型，变量名，变量名 As 数据类型数据类型Static 变量名变量名 As 数据类型数据类型，变量名，变量名 As

9、 数据类型数据类型Public 变量名变量名 As 数据类型数据类型，变量名，变量名 As 数据类型数据类型Private 变量名变量名 As 数据类型数据类型，变量名，变量名 As 数据类型数据类型例：例：Dim Myname as string Dim YourName as String*50 Dim objDb as object set objDb=OpenDatabase(“C:vbtest.mdb”)9课堂优质说明：说明：Static 定义静态变量定义静态变量Public 定义的变量可以在其他对象的过程中使用定义的变量可以在其他对象的过程中使用Private 定义的是局部变量定义

10、的是局部变量10课堂优质（2）隐式说明）隐式说明.用类型说明符声明变量用类型说明符声明变量例：例：no%声明声明no为一个整型变量为一个整型变量 s$声明声明s为一个字符串变量为一个字符串变量 d#声明声明d为一个双精度型变量为一个双精度型变量例：例：no%=90s$=“hello” d#=3.1415926511课堂优质（3）Option Explicit作用：为避免写错变量名而引起麻烦，可以使作用：为避免写错变量名而引起麻烦，可以使VB只要遇到未声明只要遇到未声明的变量就发出错误警告。使用方法：的变量就发出错误警告。使用方法：在代码窗口中加入在代码窗口中加入Option Explicit语

11、句（代码窗口的对象语句（代码窗口的对象列表中选列表中选“通用通用”，事件列表中选，事件列表中选“声明声明”）“工具工具”/“选项选项”/“编辑器编辑器”/选中选中“要求声明变量要求声明变量”复选框，会自动在任何新模块中插入复选框，会自动在任何新模块中插入“Option Explicit”语句语句12课堂优质2.1.3 运算符和表达式运算符和表达式1. 运算符运算符算术运算符：算术运算符：+，-，*，/，Mod，关系运算符：关系运算符：,=,=,=,IS,Like连接运算符：连接运算符：&,+（字符串连接）（字符串连接）逻辑运算符：逻辑运算符：and（与）与）,or（或）或）,not（非）非）,

12、Xor(异异或或),Imp（包含）包含）,Eqv（等价）等价）13课堂优质整除运算（整除运算（）结果是商的整数部分，结果是商的整数部分，72结果为结果为3.5的整数部分的整数部分Mod求两个整数相除以后的余数。在这两种运算中，求两个整数相除以后的余数。在这两种运算中，如果参加运算的是如果参加运算的是实数，则先按四舍五入原则将他们变成整数，然后进行计算。实数，则先按四舍五入原则将他们变成整数，然后进行计算。 除法运算（除法运算（/）：）：两个整型常量或变量进行除法运算的结果如果两个整型常量或变量进行除法运算的结果如果赋给一个整型量结果为整型，运算结果与整除运算结果一样；如果赋给一个整型量结果为整

13、型，运算结果与整除运算结果一样；如果赋给实型量，结果为实型。赋给实型量，结果为实型。Is比较两个对象的引用变量比较两个对象的引用变量Like进行字符串匹配比较，进行字符串匹配比较，*匹配多个字符；匹配多个字符；?匹配单个字符，匹配单个字符，#匹匹配单个数字，配单个数字，列表列表匹配列表内的单个字符，！匹配列表内的单个字符，！列表列表匹配列表外匹配列表外的单个字符，例：的单个字符，例：s*, s?,s#,a-f,!a-f例：例：s$=“123” s like “12#” s like “12?” s like “12*”S$=“111” s like “1*” s not like “1?” s

14、 not like “1#”14课堂优质逻辑运算符的运算结果：逻辑运算符的运算结果：ABA And BA Or BA Xor BA Equ BA Imp BFFFFFTTFTFTTFTTFFTTFFTTTTFTT15课堂优质2. 运算符的优先级：运算符的优先级：其中优先级由高到低运算，同级由左到右其中优先级由高到低运算，同级由左到右有括号先算括号内。有括号先算括号内。运 算 符 * M od + & Not And Or Xor Equ Im p/ - = = = Like Is优 先 级高 低16课堂优质2.2.1 赋值语句赋值语句格式：变量名或对象格式：变量名或对象.属性名属性名=表达式表

15、达式表达式可以是常量、变量、对象表达式可以是常量、变量、对象.属性名、属性名、表达式表达式左右两边类型必须一致，否则强制类型转换左右两边类型必须一致，否则强制类型转换字符与数值不能互相赋值字符与数值不能互相赋值例：例：Text1.text=“Hello!”Dim Myname as stringMyname=“Helen”Dim MyAge as integerMyAge=Myage+12.2赋值与注释语句和一句多行与一行多句赋值与注释语句和一句多行与一行多句17课堂优质2.2.2 注释语句注释语句1.REM注释注释格式：格式：REM 注释内容注释内容2.单引号单引号注释注释格式：格式： 注释

16、内容注释内容两种格式都可以占一整行或半行（写在语句后边对语句两种格式都可以占一整行或半行（写在语句后边对语句注释）前者占半行时需在语句后加上冒号注释）前者占半行时需在语句后加上冒号编程技巧：程序调试过程中经常把暂时不用的语句加上编程技巧：程序调试过程中经常把暂时不用的语句加上注释而不是删除。注释而不是删除。18课堂优质2.2.3 一句多行与一行多句一句多行与一行多句1.一句多行一句多行在行尾加上在行尾加上 “_”表示续行，即：该行还没完，此时不表示续行，即：该行还没完，此时不能在后边加注释能在后边加注释例：例：Text1.text=text1.text+”hello,”_+”大连水产学院大连水

17、产学院”2. 一行多句一行多句语句之间用冒号分隔。语句之间用冒号分隔。例如：例如：A=8:b=9:c=1019课堂优质2.3.1 分支结构分支结构2.3基本控制结构基本控制结构1.If Then 结构结构语法：语法：If 条件条件 Then 语句语句组组End If或或写作写作:if 条件条件 then 语句（必须是单个语句的情况）语句（必须是单个语句的情况）例：例：If a 0 Then b = a Else b = -a 20课堂优质.If Then else结构语法：If A Then 或 If A1 Then BB1Else Else If A2 Then CB2End If Else

18、 If A3 ThenB3 ElseBn End If21课堂优质If a0 thenprint aEnd IfIf a 0 Then b = aElse b = -aEnd If If Score 60 Then print “Fail” ElseIf Score70 Then print “Pass” ElseIf Score80 Then print “Middle” ElseIf Score90 Then print “Good” Else print “Excellent” End If22课堂优质Select Case语句语句语法：语法：Select Case 表达式表达式Case

19、 Case Case Case ElseEnd Select例：例：Select Case scoreCase 5print “Best”Case 4print “Better”Case 3print “Good”Case Else print “Fail”End Select23课堂优质说明：说明：（1）值的形式可以是：）值的形式可以是：具体常数：具体常数：1，2，3，“A”等等连续的数据范围：连续的数据范围：1 to 100， A to Z满足某个条件的表达式：满足某个条件的表达式：10多个不同范围，用逗号阁开：多个不同范围，用逗号阁开：1,3 to 5,9(2)SELECT Case 结

20、构在开始处计算表达式的值，结构在开始处计算表达式的值，IFTHENELSE结构在每个结构在每个elseif处计算表达式的值处计算表达式的值(3)如果不止一个如果不止一个case子句与表达式的结果相同则只执行第一个子句子句与表达式的结果相同则只执行第一个子句(4)case else放在放在select case结构的最后结构的最后24课堂优质4.嵌套嵌套嵌套的嵌套的if语句中，语句中，endif语句自动与最靠近的前一个语句自动与最靠近的前一个if语句配对语句配对尽量用缩进的方式书写结构语句和循环语句尽量用缩进的方式书写结构语句和循环语句25课堂优质1 Do循环循环无条件循环：无条件循环：Do语句

21、组语句组exit do语句组语句组Loop有条件循环：条件为有条件循环：条件为True时执行循环体，时执行循环体，条件为条件为False时退出循环体。时退出循环体。Do While 语句组语句组exit do语句组语句组Loop条件条件为为False时执行循环体，条件为时执行循环体，条件为True时退出循环体。时退出循环体。Do Until 语句组语句组exit do语句组语句组Loop2.3.2 循环结构循环结构26课堂优质Do语句组语句组exit do语句组语句组Loop Until 当满足条件时执行循环体。当满足条件时执行循环体。While 循环体循环体WendDo语句组语句组exit

22、do语句组语句组Loop While 在循环终止时测试循环条件，循环无条件执行一次：在循环终止时测试循环条件，循环无条件执行一次：Do循环的循环体中必须有使循环条件变为循环的循环体中必须有使循环条件变为false的语句，否则，循环的语句，否则，循环会永远进行下去。即：产生死循环。会永远进行下去。即：产生死循环。27课堂优质例：例： c = 1 Do While c 5 Print c, c = c + 1 Loop Print c = 1 Do Print c, c = c + 1 Loop While c 25 Print c, c = c * 3 Loop Print c = 1 Do P

23、rint c, c = c * 3 Loop Until c 25 Print29课堂优质 a = 1 While a 5 Print a, a = a + 1 Wend Print30课堂优质2. For循环循环语法：语法：For =ToStep 循环体循环体Exit ForNext For语句的执行步骤：语句的执行步骤：Step 1：设置循环控制变量为循环初值设置循环控制变量为循环初值Step2：如果步长为正，判断循环控制变量是否大于循环终值，如果如果步长为正，判断循环控制变量是否大于循环终值，如果步长为负，判断循环控制变量的值是否小于循环终值，如果是，退出步长为负，判断循环控制变量的值是

24、否小于循环终值，如果是，退出循环，否则，执行循环体。循环，否则，执行循环体。Step3：循环控制变量循环控制变量=循环控制变量循环控制变量+步长步长Step4：goto step2注：步长可以为负，步长缺省时为注：步长可以为负，步长缺省时为131课堂优质For i = 1 To 5 Print this is the , i, executeNext iPrintFor i = 1 To 5 Step 2 Print this is the , i, executeNext iPrintFor i = 1 To 5 Print this is the , i, execute If i = 3

25、 Then Exit For End IfNext i32课堂优质Sum=0For i = 1 To 100 sum=sum+iNext ISum=0For I=100 to 1 step 1Sum=sum+INext I33课堂优质设计一个摇奖程序，随机生成一个设计一个摇奖程序，随机生成一个N位的中奖号码。位的中奖号码。34课堂优质Const N = 5Private Sub cmdStart_Click() Dim i, j As Integer Dim a As Single Dim StrPrize As String For i = 1 To N j = Int(10 * Rnd)

26、StrPrize = StrPrize & j For a = 1 To 10000 Step 0.01 Next a Number.Text = StrPrize Number.Refresh Next iEnd Sub35课堂优质3. 退出退出循环循环语法：语法：Exit ForExit Do说明：说明：Exit语句几乎总是出现在循环体内的嵌套的语句几乎总是出现在循环体内的嵌套的if语句语句例：例：Dim I,sum as integerSum=0For I=1 to 10000SUM=SUM+1IF sum5000 then exit forNext i36课堂优质内部函数：内部函数：V

27、B提供的函数提供的函数函数调用：函数名（参数函数调用：函数名（参数1，参数，参数2）2.4.1 算术函数算术函数VB提供的进行算术运算的函数。提供的进行算术运算的函数。2.4常用内部函数常用内部函数37课堂优质2.4.2 字符串函数字符串函数VB提供的进行字符串处理的函数。提供的进行字符串处理的函数。2.4常用内部函数38课堂优质例例:s$ = 大连水产学院大连水产学院AbCd信息工程学院信息工程学院 Print LTrim(s) Print RTrim(s) Print Trim(s) Print Left(s, 5) Print Right(s, 6) Print Mid(s, 6, 4)

28、 Print Len(s) Print LCase(s) Print UCase(s) Print String(8, X) Print Len(Space(5)39课堂优质例例:设计一个将输入的字符串反向显示的程序设计一个将输入的字符串反向显示的程序40课堂优质Private Sub cmdStart_Click() Dim str, strReverse As String Dim I,n As Integer str = txtInput.Text: n = Len(str) For i = 1 To n strReverse = strReverse & Right(str, 1) s

29、tr = Left(str, Len(str) - 1) Next i txtOutput.Text = strReverseEnd Sub41课堂优质例例:译电文译电文,为了保密为了保密,在电文传输过程中往往将电文加密在电文传输过程中往往将电文加密,收电文时再转换回来。比如收电文时再转换回来。比如:按下列规律译：按下列规律译：A变成变成E，B变成变成F， W变成变成A， X变成变成B， Y变成变成C， Z变成变成D。42课堂优质Private Sub cmdStart_Click() Dim SourceStr, SecretStr As String Dim i As Integer Se

30、cretStr = SourceStr = txtInput.Text43课堂优质For i = 1 To Len(SourceStr) c = Mid(SourceStr, i, 1) If c = a And c = A And c = W And c = w And c = z Then c = Chr(Asc(c) + 4 - 26) Else c = Chr(Asc(c) + 4) End If End If SecretStr = SecretStr & c Next ItxtOutput.Text = SecretStrEnd Sub44课堂优质2.4. 3日期与时间函数日期与时

31、间函数作用：用于对日期和时间进行处理的函数。作用：用于对日期和时间进行处理的函数。45课堂优质2.4. 4类型转换函数类型转换函数作用：用于进行不同数据类型之间转换的函数。作用：用于进行不同数据类型之间转换的函数。ASCII码与字符串之间的转换码与字符串之间的转换 ASCII码转换成字符串：码转换成字符串：chr 如：如：chr$(13)将将ASCII码码13转换成转换成“回车回车”， chr$(10)将将ASCII码码10转换成转换成“换行换行”。字符串转换成字符串转换成ASCII码：码：Asc。例：例：Private Sub Form_Click()Cls 清除窗体清除窗体Dim I As

32、 Integer 声明声明I为整型变量为整型变量For I=Asc(“h”) to Asc(“z”)Print I 打印相应的打印相应的ASC值值Next IEnd Sub分析执行结果，然后上机看执行结果。分析执行结果，然后上机看执行结果。46课堂优质（2）数与字符串之间的转换）数与字符串之间的转换Str$，Format$,Val将数转换成字符串：将数转换成字符串：Str$ ，这些数包括实数、货币、整数。这些数包括实数、货币、整数。将数据进行格式化：将数据进行格式化：Format$，将数、日期、时间、字符串按指定将数、日期、时间、字符串按指定 格式进行格式化。例如：格式进行格式化。例如：a=5

33、1.8375 b=Format(a,”00.000”)，则则b=51.838将字符型数转化为数值型数：将字符型数转化为数值型数：Val注：文本框的内容、标签上的数为字符串类型，不能直接计算。注：文本框的内容、标签上的数为字符串类型，不能直接计算。（3）一种数据类型转换成另一种数据类型：）一种数据类型转换成另一种数据类型：Fix：实数转换成整数，取整。实数转换成整数，取整。Int：实数转换成整数，四舍五入。实数转换成整数，四舍五入。Ccur：将任何有效的表达式转换成将任何有效的表达式转换成Curency型型Cdbl：将任何有效的表达式转换成将任何有效的表达式转换成Double型型Cint：将任何

34、有效的表达式转换成将任何有效的表达式转换成Integer型型47课堂优质CLng：将任何有效的表达式转换成将任何有效的表达式转换成Long型型CSng：将任何有效的表达式转换成将任何有效的表达式转换成Single型型CStr：将任何有效的表达式转换成将任何有效的表达式转换成String型型CByte：将任何有效的表达式转换成将任何有效的表达式转换成Byte 型型CDate：将任何有效的表达式转换成将任何有效的表达式转换成Date 型型CVar：将任何有效的表达式转换成将任何有效的表达式转换成Variant型型说明：说明：1. 函数的参数值必须对目标数据类型有效，否则发生错误，例如：函数的参数值

35、必须对目标数据类型有效，否则发生错误，例如：long变成变成integer必须在必须在integer范围内范围内2. 浮点变成整型是按照四舍五入的原则浮点变成整型是按照四舍五入的原则3. 其他类型变成其他类型变成boolean，0变成变成 false，非零变成非零变成true；boolean变成其他类型，变成其他类型，false变成变成0，true变成变成-14. 转换成转换成date，小数点前部分表示日期，小数点后部分表示时间小数点前部分表示日期，小数点后部分表示时间48课堂优质inputBox函数一般用于输入，函数一般用于输入，MessageBox用于输出：用于输出：2.5.1 Input

36、Box函数函数作用：接受用户从键盘输入的内容作用：接受用户从键盘输入的内容格式：格式：InputBox（提示信息，（提示信息，标题，标题，缺省值，缺省值，Xpos,Ypos，帮助帮助文件文件名，帮助主题号名，帮助主题号）说明：说明：1. 当按当按“确定确定”按钮时函数的返回值是输入的文本内容，按按钮时函数的返回值是输入的文本内容，按“取取消消”按钮时返回空串。按钮时返回空串。2. 提示信息提示信息为在输入对话框中显示的提示信息，长度不超过为在输入对话框中显示的提示信息，长度不超过10243. 标题为输入对话框的标题拦显示的信息，缺省为应用程序名标题为输入对话框的标题拦显示的信息，缺省为应用程序

37、名4. 缺省值为缺省的输入内容缺省值为缺省的输入内容5. Xpos,Ypos对话框在屏幕上的起始位置对话框在屏幕上的起始位置2.5输入与输出输入与输出49课堂优质例：例：Thefile = InputBox(“请输入文件名：请输入文件名：”, “输入对话框举输入对话框举例例”,“file1”)产生的对话框为：产生的对话框为：Private Sub Form_Click() Text1.Text = InputBox(hello)End Sub50课堂优质2.5.2 MsgBox函数函数作用：消息框是作用：消息框是VB用用MsgBox函数或语句提供的一种对话框，函数或语句提供的一种对话框，它本身

38、不是用控件实现的。当用函数实现时有返回值，通过返回值它本身不是用控件实现的。当用函数实现时有返回值，通过返回值可以继续下一步的工作。主要作用是向用户发布提示信息，要求用可以继续下一步的工作。主要作用是向用户发布提示信息，要求用户做出相应的响应。户做出相应的响应。格式：格式：MsgBox（提示信息（提示信息，按钮类型，按钮类型，标题，标题， ，帮助帮助文件文件名，帮助主题号名，帮助主题号 ）说明：说明：1. 提示信息和标题均为字符串常量或字符串变量提示信息和标题均为字符串常量或字符串变量2. 提示信息是在消息框中显示的信息提示信息是在消息框中显示的信息3. 标题为消息框的标题显示的信息。标题为消

39、息框的标题显示的信息。4. 按钮类型可以用符号常量，也可以用数字，当为数字时为按钮类型可以用符号常量，也可以用数字，当为数字时为C1+c2+c3+c4的和例的和例1：例例2：5. MsgBox函数也有返回值，返回值是由所按的按钮确定的，含义函数也有返回值，返回值是由所按的按钮确定的，含义51课堂优质例：例： result = MsgBox(“数据正确吗？数据正确吗？”, 65, “消息框举例消息框举例”) return缺省按钮及其对应的值52课堂优质符号常量值缺省的活动按钮VbDefaultButton10第一个按钮为缺省的活动按钮VbDefaultButton2256第二个按钮为缺省的活动按

40、钮VbDefaultButton3512第三个按钮为缺省的活动按钮指定缺省按钮的符号常量和相应数值指定缺省按钮的符号常量和相应数值return53课堂优质按钮的类型及其对应的值符号常量值在消息框上显示出来的按钮VbOkOnly0“确定”按钮VbOkCancel1“确定”和“取消”按钮VbAbortRetryIgnore2“终止（A） ” 、 “重试（R） ”和“忽略（I） ”按钮VbYesNoCancel3“是（Y） ” 、 “否（N） ”和“取消”按钮VbYesNo4“是（Y） ” 、 “否（N） ”按钮VbRetryCancel5“重试（R） ”和“取消”按钮54课堂优质return55课

41、堂优质图标的类型及其对应的值符号常量值在消息框上显示出来的图标VbCritical16见图 1VbQuestion32见图 2VbExclamation48见图 3VbInformation64见图 4return56课堂优质消息框的强制返回性消息框的强制返回性return57课堂优质例：想让消息框的按钮为例：想让消息框的按钮为VbYesNoCancel类型、第二个按钮为缺省类型、第二个按钮为缺省 按钮而且图标为感叹号则第二个参数值设为：按钮而且图标为感叹号则第二个参数值设为： 307=3+256+48语句为：语句为： Text2.Text = MsgBox(“hello”, 307, “te

42、st”)或或 Text2.Text = MsgBox(hello, vbYesNoCancel + vbDefaultButton2 _+ vbExclamation, test)return58课堂优质MsgBox 函数返回值符号常量值所对应的按钮VbOK1“确定”VbCancel2“取消”VbAbort3“终止”VbRetry4“重试”VbIgnore5“忽略”VbYes6“是”VbNo7“否”59课堂优质例：注册窗口的设计：例：注册窗口的设计：60课堂优质Private Sub Command1_Click() If Text1.Text = DL Then If Text2.Text

43、= dz Then Form2.Show Form1.Hide Else If MsgBox(口令错误！重新输入吗？, 52, 错误信息) = 6 Then Text2.Text = Text2.SetFocus Else End End If End If61课堂优质Else If MsgBox(“用户名错误！重新输入吗？”, 65, “用户名错误信息”) = 1 Then Text1.SetFocus Text1.Text = Else End End If End If End Sub62课堂优质63课堂优质2.5.3 Print方法方法作用：在窗体、图片框或打印机上输出文本作用：在窗体

44、、图片框或打印机上输出文本格式：格式：对象对象.print 表达式列表表达式列表说明：说明：1. 表达式列表中间的分隔符可以是逗号或分号，分号表示按紧凑表达式列表中间的分隔符可以是逗号或分号，分号表示按紧凑格式输出，逗号表示按标准位置输出。例：格式输出，逗号表示按标准位置输出。例：2. 表达式列表缺省时输出一空行例：表达式列表缺省时输出一空行例：3. 行尾可以有逗号、分号和回车，逗号、分号的含义同行尾可以有逗号、分号和回车，逗号、分号的含义同1，表示，表示下一个下一个print语句的输出内容与当前语句的输出内容与当前print语句的最后一个输出语句的最后一个输出项的位置关系，回车表示换行。例：

45、项的位置关系，回车表示换行。例：4. 可以用格式函数控制输出格式，这些格式函数包括：可以用格式函数控制输出格式，这些格式函数包括：format、spc、tab例例64课堂优质Private Sub Command1_Click() Dim a, b, c As Integer a = 9: b = 8: c = 7 Print a, b, c Print a; b; cEnd Subreturn65课堂优质Private Sub Command1_Click() Dim a, b, c As Integer a = 9: b = 8: c = 7 Print a, b, c Print Pri

46、nt a; b; cEnd Subreturn66课堂优质Private Sub Command3_Click() Dim a, b, c As Integer a = 9: b = 8: c = 7 Print a, Print b; Print c Print a; b; cEnd Subreturn67课堂优质(1)format 格式：format(表达式，格式串)Private Sub Command1_Click() Dim myTime, MyDate As String Dim MySalary, yourSalary As String Dim a As Single a =

47、5158.3 myTime = Format(Now, hh:mm:ss) MyDate = Format(Now, yyyy/mm/dd) MySalary = Format(a, #,#.00) yourSalary = Format(a, #.00) Print MyDate, myTime, MySalary, yourSalaryEnd Sub68课堂优质(2)spc 格式：格式：spc(n)功能：输出功能：输出n个空格个空格(3)tab 格式：格式：tab（n）功能：将光标移到第功能：将光标移到第n列列说明：如果当前位置在第说明：如果当前位置在第n列之后则移到下一行的第列之后则移到

48、下一行的第n列列69课堂优质2.6数组数组2.6.1 数组声明数组声明1.数组定义：数组定义：格式：格式：Dim |Global 数组名（数组元素上下界，数组名（数组元素上下界，） As 类型类型说明：说明：（1）数组元素上下界可以表示为：下界）数组元素上下界可以表示为：下界 to 上界，缺省时数组下上界，缺省时数组下界时序号从界时序号从0开始编号。开始编号。（2）数组元素上下界的个数表示数组的维数）数组元素上下界的个数表示数组的维数（3）数组为变体类型时不同数组元素可以赋不同类型的值。）数组为变体类型时不同数组元素可以赋不同类型的值。（4）数组不同于普通变量，使用前必须先声明。）数组不同于普

49、通变量，使用前必须先声明。70课堂优质例：例：Dim a(3 To 5) As String Dim b(10) As String Dim i As Integer For i = 0 To 10 b(i) = test + Str(i) Next i Print a(3); a(4); a(5) For i = 0 To 10 Print b(i), Next i Print71课堂优质2.Option Base语句语句格式：格式：Option Base 0|1功能：声明数组的缺省下标功能：声明数组的缺省下标说明：说明：（1）数组的默认缺省下标为）数组的默认缺省下标为0，可以用该语句将其改

50、为，可以用该语句将其改为1（2）一个模块中只能出现一次该语句，且必须放在数组声明语句）一个模块中只能出现一次该语句，且必须放在数组声明语句 之前。之前。3.Lbound和和Ubound函数函数格式：格式：Ubound(数组名数组名，维维)，Lbound(数组名数组名，维维)功能：用于确定数组的指定维的最小和最大下标功能：用于确定数组的指定维的最小和最大下标说明：说明：维指定要返回的是哪一维的下标维指定要返回的是哪一维的下标72课堂优质2.6.2 静态数组和动态数组静态数组和动态数组1.静态数组：固定大小的数组，维数和大小不能改变。静态数组：固定大小的数组，维数和大小不能改变。 动态数组：运行时

51、可以改变其大小的数组，事前可以不指定数组动态数组：运行时可以改变其大小的数组，事前可以不指定数组的大小，在需要时指定。的大小，在需要时指定。格式：格式：ReDim Preserve 数组名（数组元素上下界，数组名（数组元素上下界，） As 类型类型说明：说明：（1）ReDim 用于为动态数组重新分配存储空间，只能改变每一维用于为动态数组重新分配存储空间，只能改变每一维的数组元素的个数，不能改变数组的维数。的数组元素的个数，不能改变数组的维数。（2）当改变数组元素最末维的大小时用）当改变数组元素最末维的大小时用preserve可以保留数组中原可以保留数组中原来的数据。来的数据。（3）不能改变数组

52、元素的类型）不能改变数组元素的类型（4）如果将数组元素改小，被删元素的数据就会丢失）如果将数组元素改小，被删元素的数据就会丢失73课堂优质Private Sub Command1_Click() Dim a() As Integer Dim x, y As Integer x = 5 y = 9 ReDim a(5, 9) ReDim a(x + 1, y + 1) ReDim Preserve a(x + 3, y + 6)End Sub74课堂优质例：点击按钮时，用输入对话框输入一个整数例：点击按钮时，用输入对话框输入一个整数N，然后求然后求Fabonacci数列：数列：1，1，2，3，5

53、，8，13，21，到第到第N项，并把结果输出项，并把结果输出到窗体上到窗体上Fabonacci数列的关系：数列的关系：F1=1F2=1Fn=Fn-1+Fn-275课堂优质Private Sub Command1_Click() Dim i, f() As Integer Dim n As Integer n = Val(InputBox(please Input A Integer:, Fabonacci, 10) If n 0 Then ReDim f(n) f(0) = 1: f(1) = 1 For i = 2 To n f(i) = f(i - 1) + f(i - 2) Next i

54、 For i = 0 To n Print f(i), If I+1 Mod 5 = 0 Then Print End If Next i End If PrintEnd Sub76课堂优质2.6.3 多维数组：多维数组：1.定义：定义：Dim |Global 数组名（最大长度，最大长度，数组名（最大长度，最大长度，.） As 类型类型2.使用：使用：用多重循环来使用。例用多重循环来使用。例For I=1 to nfor j=1 to ma(I,j)=0next jNext I77课堂优质1.牛顿迭代法解方程牛顿迭代法解方程用牛顿迭代法解方程用牛顿迭代法解方程2x3-4x2+3x-6=0在在x

55、0附近的根附近的根,已知已知一个初始点一个初始点x0,公式为公式为:xn+1=xn-f(xn)/f(xn) n=0,1,2.步骤步骤:先计算先计算f(xn) = 6x2-4x+3根据公式依次计算根据公式依次计算x1, x2 , x3 当当| xn+1-xn |= epslon X.Text = xn1End Sub80课堂优质2.折半查找法折半查找法在一组已经排好序的数中查找某个数。折半查找是通过在一组已经排好序的数中查找某个数。折半查找是通过每次得到被查数据范围的中间数据，然后与被查数据进每次得到被查数据范围的中间数据，然后与被查数据进行比较，如果该中间数据大于被查数据，则查找前半部行比较，

56、如果该中间数据大于被查数据，则查找前半部分，否则查找后半部分，依此进行排查。分，否则查找后半部分，依此进行排查。例：某物的价钱在例：某物的价钱在11024之间一般的猜法为：之间一般的猜法为：高了512？256？低了320？高了高了384？288？恭喜！答对了！81课堂优质当点击窗体时，用输入对话框输入要查找的数，被查找的范围事先指定，并在窗体被激活时显示在窗体上。82课堂优质Const N = 10Dim a(N) As IntegerPrivate Sub Form_Activate() Dim i, j As Integer a(1) = 1: a(2) = 5: a(3) = 8: a(

57、4) = 16: a(5) = 23 a(6) = 31: a(7) = 59: a(8) = 88: a(9) = 96: a(10) = 123 Print the array is: For i = 1 To N Print a(i), Next i PrintEnd Sub83课堂优质Private Sub Form_Click() Dim findNum, curLocation, top, bott As Integer Dim found As Boolean found = False findNum = Val(InputBox(please input a number,

58、the number) top = N: bott = 1 Do curLocation = bott + Int(top - bott) / 2) If findNum = a(curLocation) Then found = True Exit Do84课堂优质Else If findNum a(curLocation) Then bott = curLocation + 1 Else top = curLocation - 1 End If End If Loop While Not found And bott a(j + 1) Then temp = a(j) a(j) = a(j + 1) a(j + 1) = temp End If Next j Next i89课堂优质Print Print Print the Array Before Sorted: For i = 1 To n Print a(i), Next i PrintEnd Sub90课堂优质