医学]08VB复习大纲.pptVIP

Visual Basic总复习 主要内容 o基本数据类型与表达式 o程序流程控制 o常用控件 o数组与记录 o过程 o文件 第1章 程序设计语言 与程序设计 程序设计语言 基本概念 程序设计语言 o机器语言 直接与机器交互的语言,程序执行速度快 ，资源要求低 o高级语言 亦称程序设计语言, 计算机不能直接识别 源程序代码，必须翻译成二进制程序才能 在机器上运行。 翻译方式 o解释方式:由“解释程序”对源程序逐个语句 一边翻译，一边执行 特点:执行速度慢，便于观察调试程序。 o编译方式:由“编译程序”把源程序全部翻译 成二进制程序。 特点:一旦编译成功，目标程序就可以反复 高速执行。 主要概念 o对象 系统中的基本运行实体，它封装了数据和 操作。可以有相同的名称.如窗体中的命 令按钮、标签等控件。 o属性 是对象的性质或状态特征。例如， 窗体的 Caption、BackColor等都是窗体的属性。 主要概念(续) o事件 是对象之间传递的消息。例如，Click事件、 DblClick事件。 o方法 是对象在某些事件驱动下执行的特定操作。 例如窗体的Print方法、Show方法； o事件驱动程序 响应特定事件的一段程序。如 Command1_Click() 一个工程包含各种文件 o工程文件（.vbp） o窗体文件（.frm） o标准模块文件（.bas） 第2章 基本数据类型 与表达式 字符集和词汇集 基本数据类型 运算符和表达式 常用内部函数 2.1 程序设计语言单位 o字符、词汇、表达式、语句、过程、函数 等称为“语法单位”。 o字符是构成程序设计语言的最基本符号 o单词是具有语法意义的最小语法单位。 1、 字符集 o数字： o英文字母： o特殊符号： Space ! “ 我们常用的字符集是ASCII（American Standard Code for Information Interchange） 字符集。 例如Enter（回车，代码为13） 2.标识符 o用于标记用户自定义的常量、类 型、变量、控件或过程、函数等 名字 命名规则 o以字母开头，由字母、数字和下划线组成 。 o 变量名的最后一个字符可以是类型说明 符（ % 整型 , ）或空格作分隔符，则按紧凑格式输出。 如果省略，则在下一行输出下一项目。 o执行语句:Print Spc(9), “basic“ o其结果“basic“字符串在第（ ）列开始显 示。 oa) 10 b) 11c) 14 d)15 od Format函数 o格式：Format( , ) 字符作 用 #数字。不在输出串前、后 补 0 0数字。在输出串前、后补 0 .小数点 ,千位分隔符 %百分比符号 $美元符号 + 正、负号 E+ E指数符号 例 ox=12.356 oPrint Format ( x,”#.#” ) oPrint Format ( x,”000.00” ) oPrint Format ( x,”0.00%” ) oPrint Format ( x,”00.00E+00” ) oPrint Format ( x,” $0，000.00” ) o答案：1236 o 01236 o 123560% o 12.36e+00 o $0,012.36 3.2 分支结构 o单行结构条件语句 o块结构条件语句 o情况语句 一、单行结构条件语句 o格式: If Then Else o注意: 1.在一行上书写,没有Endif语句 2.else总是跟最靠近的那个then匹配 以下不正确的单行结构条件语句是( ) oa) If xy Then Print “ xy “ ob) If x Then t = t * x oc) If x Mod 3=2 Then ? x od) If x Then ElseIf Then . ElseIf Then Else End If 三、情况语句 oSelect Case Case Case Case Else oEnd Select Select Case说明： o 测试表达式可以是数值表达 式或字符串表达式； o 表达式表列中的表达式必须 与测试表达式的类型相同。 o称为域值，可以是下列形式 之一： oa. ， ob. To oc. Is 下列Case语句中正确的是( ) oa) oSelect Case x oCase 1 Or 3 Or 5 o y=x*x-1 oCase Is 10 o y=x+1 oEnd Select ob) oSelect Case x o Case 1, 3, 5 o y=2*x-1 o Case Is x 0 o y=Sqr(x)+1 o End Select od) oSelect Case x o Case x=1 And x10 o y=x*x+1 oEnd Select 例 oPrivate Sub Command1_Click() oDim x%, y% ox = InputBox(“请输入x的值：”) oSelect Case x o Case 1, 3, 5 o y = x - 1 o Case 6 To 10 o y = x + 1 o Case 2, 4 o y = 2 * x 结果: o Case Is 10 x=3 y=2 o y = x * x + 1 x=2 y=4 oEnd Select oPrint “x=“; x, “y=“; y oEnd Sub o（x 的输入值为2.53,2.5） o把一个实数赋给一个整变量，则只能获取它的整数部分了。 3.3 循环结构 oWhile Wend 语句 oDoLoop语句 oForNext语句 o嵌套循环 一、While Wend 语句 oWhile o oWend 二、DoLoop语句 o先判断条件形式 Do While | Until Loop o后判断条件形式 Do Loop While | Until 循环结构注意问题 odo、while循环体内都必须有修改循环条件的语 句 o在do、while循环语句前应对变量赋初值 一般情况，累加器赋0值，累乘器赋1值 “条件”可以是关系表达式、逻辑表达式或常数 例：s=0(s=1) k=0 while k = To Step Exit For oNext 步长 o0时，作递增循环,即应有 ； o0时，作递减循环,应有 ； o1时，可省略Step子句。 for循环结构注意问题 oFor 循环结束后，其循环控制变量的值一 定超过终值。 例： For i=1 to 5 print “*”； Next i Print i (i=6) o x=4 o for i=1 to 10 step 3 o x=x+i o next i o? x oa) 27 b) 26 c) 57 d) 38 o答案 b 有程序段(int(end- start)/step+1) oDim I As Integer oFOR I=7 TO 90 STEP 5 o PRINT I; oNEXT I o上述程序共执行（ ）次循环。 oA、17 B、16 C、15 D、14 o答案 a 四、嵌套循环 o外层循环与内层循环必须层层相套，循环 体之间不能交叉 For j = k1 To k2 Do While b Loop Next j（正确） Do While b1 For j = k1 To k2 Loop Next j （错误） 在窗体上输出以下形式的星星阵列 * * * * oPrivate Sub Command1_Click() oDim line%, i%, j% oline = Val(InputBox(“请输入行数：“) oFor i = 1 To line 外循环控制输出行数 o Print Space(20 - i); 每行前面的空格数 o For j = 1 To i * 2 - 1 内循环控制输出个数 o Print “*“; o Next j o Print换行 oNext i oEnd Sub 2.退出循环 (1) (1) Exit DoExit Do语句语句 (2) (2) Exit ForExit For语句语句 功能：功能：强制退出循环，并转到强制退出循环，并转到Do Do LoopLoop语句或语句或nextnext的的 下一个语句去执行。下一个语句去执行。 第5章 数组与记录 主要内容 o数组 是由固定数目的同类元素按一定顺序排列 而成； o记录 则由数目固定不同类型元素组成。 数组 一维数组 二维数组 5.1 一 维 数 组 o数组说明格式为： Dim ( ) As o 语法： To 和为长整型（Long）常量， 的缺省值为0。 例.在程序中,能否出现语句:Dim A(to N)? oA)不可以 oB)若在这个语句前面已经把N设置为正整 数的符号常量,就可以出现这个语句. oC)若在这个语句前面已经对N赋了为正整 数值,就可以出现这个语句. oD) B)和C)都对 o答案：B 一维数组主要内容 o数组元素的输入、输出 o数组元素的平均值、最大、最小值 o数组元素的排序 o两数组合并 数组元素的输入 o 方法一：（inputbox函数） o For i = 1 To 20 o a(i) = InputBox(“请输入第“ i; “) = “; a(i); o If i Mod 5 = 0 Then Print oNext 某班有某班有1010个学生参加计算机等级考试，求这些学生个学生参加计算机等级考试，求这些学生 的的平均成绩平均成绩。 ooPrivate Sub command1_click()Private Sub command1_click() oo Dim S(1 To 10) As Single, Sum As Single, Dim S(1 To 10) As Single, Sum As Single, i As Integer i As Integer oo For i = 1 To 10 For i = 1 To 10 oo S(iS(i) = ) = InputBox(“sInputBox(“s(“ Sum / 10 Print “Average=“; Sum / 10 ooEnd SubEnd Sub 求求1010个数中的个数中的最小值最小值 ooPrivate Sub command1_click()Private Sub command1_click() oo Dim a(1 To 10) As Dim a(1 To 10) As Single,minSingle,min As As Single,iSingle,i As Integer As Integer oo For i = 1 To 10 For i = 1 To 10 oo a(ia(i) = ) = InputBox(“aInputBox(“a(“ student.no o Print “ 姓名： “; o Print “ 数学： “; student.maths o Print “ 物理： “; student.physics o Print “ 程序设计：“; gramming o Print “ 总成绩： “; student.total oEnd Sub 2With语句 oWith 语句格式为： With End With oPrivate Sub Command1_Click() o Dim student As rec o With student o .no = InputBox(“学号：“) o .name = InputBox(“姓名：“) o .maths = InputBox(“数学成绩：“) o .physics = InputBox(“物理成绩：“) o .programming = InputBox(“程序设计成绩：“) o .total = .maths + .physics + .programming o Print “ 学号： “; .no o Print “ 姓名： “; .name o Print “ 数学： “; .maths o Print “ 物理： “; .physics o Print “ 程序设计：“; .programming o Print “ 总成绩： “; .total o End With oEnd Sub 第7章 过 程 主要内容 o过程的定义与调用 o参数传递 o过程与变量的作用域 7.1 子过程的定义 oPrivate|Public Static Sub () End Sub 函数过程的定义 oPublic|PrivateStatic Function () As = oEnd Function 过程调用 o1.子过程调用 o o或 Call () o例:Call fac(m, c1): Call fac(n, c2) o cmn = c1 / c2 o2.函数过程调用 o () o例:cmn = fac(m) / fac(n) 定义过程中参数的确定 o需要传入的数据 传值参数(ByVal) o需要传出的数据 传址参数(ByRef，或缺省) o函数传出的数据可由函数名返回 7.5 变量的作用域与生存期生存期 o过程（局部）级变量： 在过程内部用Dim或Static声明的变量， 作用域为本过程。 o文件级（模块级）变量： 在文件中各过程之外，用Dim或Private语 句声明的变量，其作用域为本文件或本模 块。 o工程级（项目级、全局）变量： 在文件中各过程之外，用Public语句定义 的变量，其作用域为整个工程或整个项目 或全局。 注意 oo在同一模块不同过程中定义的变量可以同名；在同一模块不同过程中定义的变量可以同名； 如如:form1:form1中有中有sub1sub1、sub2sub2，均可定义变量，均可定义变量 oo同一模块不同级的变量可以同名；同一模块不同级的变量可以同名； 如如:form1:form1中可定义模块级，亦可定义过程级中可定义模块级，亦可定义过程级 oo不同模块中定义的全局变量可以同名，但引用另不同模块中定义的全局变量可以同名，但引用另 一模块的全局变量时必须在变量名之前加上模块一模块的全局变量时必须在变量名之前加上模块 名。名。 如如: form1: form1中可定义全局级中可定义全局级(form1.A), (form1.A), module1module1中可定义全局级中可定义全局级A(module1.A)A(module1.A) oo过程中引用的变量，总是同名变量中作用范围最过程中引用的变量，总是同名变量中作用范围最 小的那一个变量。小的那一个变量。 变量的生存期变量的生存期 oo动态变量动态变量 oo静态变量静态变量 动态变量 o使用Dim说明 o当程序执行到动态变量所在的过程时才给 动态变量分配存储单元。 o过程执行结束后，动态变量所占用的存储 单元被系统回收。过程再次被调用时，重 新分配存储单元和初始化。 静态变量 o使用Static说明 o在整个应用程序运行期间，分配有固定存 储单元。 o过程执行结束时，变量的值仍保存，该过 程再次被调用时，变量的值为上次过程调 用结束时的值。 在以下关于变量作用域的描述中，不正确的 是（） oA)当某过程变量与全局变量同名,全局变 量在这个过程中就会被屏蔽 oB)静态变量不是模块级或工程级变量,其 作用域只限于在它所定义的过程内部 oC)在某一个过程中定义的变量的作用域只 能是这一过程 oD)在某一个模块中定义的变量的作用域只 能是这一模块 o答案 D oDim x As Integer oPublic Sub sub1( x as Integer) ox = x + 1 oEnd Sub oPublic Function fun1( ByVal x as Integer)as integer oFun1 = 2*x oEnd function oPrivate Sub Command1_Click() ostatic y As Integer ocall sub1(y) oPrint “x=”;x,”y=”;y ox=fun1(y) oPrint “x=”;x,”y=”;y oEnd Sub o运行结果: oX=0 y=1 oX=2 y=1 编写过程程序设计的步骤 o输入数据 o处理数据(调用过程) o输出数据 定义过程中参数的确定 o需要传入的数据 通常是输入的数据 o需要传出的数据 通常是处理的结果 给定求组合数公式为： ，编一程 序，输入m和n的值，求的值。 oPrivate Sub fac(ByVal k Spc(2); ; Spc(2); s.sex; Spc(2); s.math; 在已有的顺序文件后添加记录 oOpen “f:StudentFile1.dat“ For Append As #1 oWrite #1, s.no, , s.sex, s.math, 二、读顺序文件 oInput#语句 oLine Input#语句 oInput函数 Input#语句 o格式： Input #, o例 oOpen “f:StudentFile1.dat“ For Input As 1 oWhile Not EOF(1) o Input #1, s.no, , s.sex, s.math, o Wend Line Input#语句 o 格式： Line Input #, o例 oOpen “f:StudentFile2.dat“ For Input As #1 o While Not EOF(1) o Line Input #1, str o Wend Input函数 o格式： Input(, #) o例 oOpen “f:StudentFile2.dat“ For Input As #1 ostr = Input(LOF(1), #1) 8.3 随机文件 o打开随机文件 Open For Random As # Len= o例如： Open “D:TestDate.rec“ For Random As #1 Len=16 o一个文件的大小用函数Lof测试后长度为 2000，同时，打开这个文件的命令可以用 如下语句： o Open “f1.dat” For Random As #1 Len=10 o 则这个文件的记录数是（ ）。 o200 读、写随机文件 o写随机文件 Put #, , o读随机文件 Get #, , 例: Put 1, , s s.no, , s.sex, s.math 由于Put命令中没有指明记录号，因此每次都把 记录写到文件的末尾 (错) 例 修改记录。设计子过程，对一个已存在的职工工 资简表person.rec进行修改，凡是低于500元的工 资增加50元。 o职工记录定义如下：（记录必须在标准模块或窗 体模块中定义 ） oType person o no As Integer o name As String * 8 o wages As Single oEnd Type o增加工资的子过程如下 oSub increase() o Dim i%, total% o Dim p As person o Open “f:VB例程person.rec“ For Random As #1 Len = 14 o total = LOF(1) / Len(p) 计算文件的记录数 o For i = 1 To total (while not eof(1) o Get #1, , p o If p.wages max Then max=score o Wend o Print “最高分数为：“; max o Close #3 oEnd Sub o Not EOF(3) o Input #3,score 8.5 文件操作用的3个控件 o驱动器列表框 o目录列表框 o文件列表框 驱动器列表框 o属性 .Drive = o事件 当Drive属性被改变时，引发该驱动器列 表框的 Change事件。 目录列表框 o属性 .Path = o事件 当Path属性被改变时，触发该目录列表框 的Change事件。 文件列表框 oPath 属性 ofilename属性 oPattern属性 o.Pattern = 例 三列表框联动。 oPrivate Sub Dir1_Change() o File1.Path=Dir1.Path oEnd Sub oPrivate Sub Drive1_Change() o Dir1.Path=Drive1.Drive oEnd Sub 8.6 几个文件操作命令和函数 oShell 函数 o = Shell ( , ) o功能：执行由指定的文件 窗口类型命名参数可取以下这些值： o符号常量值窗口类型 ovbHide0窗口隐藏，有焦点 oVbNormalFocus1正常窗口，有焦点 oVbMinimizedFocus2 图标，有焦点 oVbMaximizedFocus3 最大化窗口 oVbNormalNoFocus4 窗口被还原，无焦点 oVbMinimizedNoFocus6图标，无焦点 其它命令 oChDrive 改变当前驱动器 例：ChDrive “d:” oChDir 改变驱动器的当前目录 例：ChDir “a:temp” oMkDir 建立指定的子目录 例：MkDir “c:test” oName 文件改名或移动 例：Name “d:mydirtt.dat“ as “d:tt.dat“ oKill 删除文件 例：Kill “d:temptest.dat“ oRmDir 删除子目录 例：RmDir “d:mydir” oCurDir ( ) o功能：返回由指定驱动器的当前 路径的字符串。若省略则返回当 前驱动器的当前路径。 o例：qDir = CurDir() 一个工程包含各种文件 o工程文件（.vbp） o窗体文件（.frm） 通常，在其下定义的类型、常量、变量、 过程仅供该窗体调用，除非使用Public 关 键字 o标准模块文件（.bas） 通常，在其下定义的类型、常量、变量、 过程可供整个工程调用，除非使用Private 关键字 程序阅读题 注意: 1.格式 o循环输出和数组输出，注意输出格式： u ，分隔，则按标准格式显示数据项 u ；或空格作分隔符，则按紧凑格式输出 u 如果省略，则在下一行输出下一项目。 u print 如果前一输出项有分隔符，则换行；否则输 出一空行 u If x Mod 4=0 Then Print 每行输出4个数据 1Private Sub Command1_Click() oDim x As Integer, y As Integer oFor x=1 To 10 Step 3 o Select Case x*2 oCase Is8 oy = x + 8 oCase 2 oy = x * 2 oCase 8 oy = x * 3 oCase Else oy = x + 10 o End Select o Print “x=“;x,”y=”; y oNext x oEnd Sub oX=1 y= 9 oX=4 y=12 oX=7 y=17 oX=10 y= 20 o1 9 o4 12 o7 17 o10 20 o(错) oX=1 y= 9 X=4 y=12 X=7 y=17 X=10 y= 20 o(错) o写出单击Command1按钮后，下列程序运行 的结果 oPrivate sub command1_click() o Print “*”;tab(9);3,tab(18);6 o For i=15 to 16 o Print I; o For j=3 to 6 step 3 o Print tab(3*j);j*I; o Next j o Print o Next i oEnd sub o* 3 6 o 15 45 90 o 16 48 96 注意2：过程 o需要传入的数据 传值参数(ByVal) o需要传出的数据 传址参数(ByRef，或缺省) 1Private Sub P(ByVal x as Integer, y As Integer) o x = x + 1 o y = y-1 oEnd Sub oPrivate Sub Command1_Click() o Dim a As Integer, b As Integer o a = 3 o b = 2 o call f(8,a) o Print “a=“;a,”b=“;b o call f(a,b) o Print “a=“;a,”b=“;b oEnd Sub o a=2 b=2 o a=2 b=1 作用域： o过程（局部）级变量： 在过程内部用Dim或Static声明的变量。 o文件级（模块级）变量： 在文件中各过程之外，用Dim或Private语 句声明的变量。 o工程级（项目级、全局）变量： 在文件中各过程之外，用Public语句定义 的变量。 oDim x as integer oPrivate sub command1_click() o X=100 o Call s1:print x o Calls2:print x oEnd sub oPrivate sub s1() o Dim x as integer o X=x+200:print oEnd sub oPrivate sub s2() o X=x+200:print x oEnd sub 200 100 300 300 变量的生存期变量的生存期 oo动态变量动态变量 o使用Dim说明 o当程序执行到动态变量所在的过程时才给 动态变量分配存储单元。 o过程执行结束后，动态变量所占用的存储 单元被系统回收。过程再次被调用时，重 新分配存储单元和初始化。 静态变量静态变量 o使用Static说明 o在整个应用程序运行期间，分配有固定存 储单元。 o过程执行结束时，变量的值仍保存，该过 程再次被调用时，变量的值为上次过程调 用结束时的值。 o设有程序段: o Private Sub Command1_Click() o Static m as integer o Static n as integer o n=3 o n=n+5 o m=5+m o Print m,n o End Sub o 程序运行时，三次单击命令按钮Command1后 ，窗体显示的结果是（ ）。 o15 8 注意3：用语言描述结果 oFor i = 1 To 10 o a(i) = Int(Rnd * 100 + 1) o Print a(i), o If i Mod 4 = 0 Then Print oNext o答案：输出10个1100之间的随机整数 ，并每行输出4个数据 oPrivate Sub HScroll1_change() o Label1.left= HScroll1.value oEnd sub o功能: o单击滚动条左箭头时，标签上的字可以左 边移动，且标签移动的范围等于滚动条的 范围。 程序填空题 o下面事件过程的功能是通过调用过程swit, 调换数组中数值的存放位置,即b(1)与b(8) 的值互换, b