广东药学院VB复习.pptx

复习复习考试题型单选题（单选题（30分，每题分，每题1分）分）填空题（填空题（50分，每空分，每空2分）分）编程题（编程题（20分，每题分，每题10分）分）计计算算机机系系统统主机主机外设外设运算器运算器控制器控制器内存储器内存储器ROMRAMI/O总线接口总线接口CPU外存储器外存储器输入输入/输出设备输出设备网络通信设备网络通信设备软盘驱动器软盘驱动器硬盘硬盘CD-ROM显示器显示器键盘、鼠标键盘、鼠标打印机、绘图仪打印机、绘图仪硬件硬件软件软件应用软件应用软件系统软件系统软件操作系统操作系统编译系统编译系统工具软件工具软件数据库管理系统数据库管理系统MODEM网卡网卡编码基础VB代码不区分字母的大小写一行可书写几句语句,之间用冒号分隔;一句语句可分若干行书写,用续行符（空格下划线）连接Rem开始或单撇VB常用数据类型变量和常量的命名规则命名规则变量：在程序运行中其存储的值可以改变。常量：在程序运行中其值不可以改变。以字母或汉字开头，后可跟字母、数字或下划线组成，长度小于等于40个字符；不能使用VB中的关键字；VB中不区分变量名的大小写例如：1)a bc 2)print_65 3)12bc 4)x-y5)x%y 6)abs 7)mn%8)int变量声明Dim 变量名 AS 类型 Dim iMark As integer,sTotal As single Dim iItem%注意:在通用声明处加OptionExplicit语句来强制显式声明变量常量声明Const 常量名 AS 类型=表达式例 Const MAX=100Const MIN As Integer=&H13A算术运算符例：例：求表达式求表达式5+10 mod 10 9/3+2 2值值字符串运算符字符串运算符、+字符串连接 123 +456 结果 123456 123&456 结果 123456 区别：+两边必须是字符串，&不一定 abcdef&12345 结果为 abcdef12345 abcdef +12345 出错 123&456 结果为 123456 “123”+456 结果为 579注意：123 +True 结果为 122 关系运算符关系运算符将两个操作数进行大小比较，结果为逻辑量。字符串比较,则按字符的ASCII码值从左到右一一比较，直到出现不同的字符为止.。例：ABCDEABRA结果为False逻辑运算符将操作数进行逻辑运算，结果是逻辑值表达式组成组成:变量、常量、函数、运算符和圆变量、常量、函数、运算符和圆括号括号书写规则书写规则运算符不能相邻。例a+-b是错误的。乘号不能省略。例x 乘以y 应写成：x*y。括号必须成对出现，均使用圆括号。表达式从左到右在同一基准上书写，无高低、大小。表达式书写举例 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）3=xAndx=7常用内部函数1.数学函数数学函数 Rnd函数返回函数返回0和和1（不包括（不包括0和和1）之间的双精度随）之间的双精度随机数机数.产生nm的随机整数:Int(Rnd*(m-n+1)+n 取整函数：Int Fix Round 符号函数：Sgn常用内部函数2.转换函数转换函数Chr$(Asc(G)GUcase$(abcdefg)ABCDEFG“Asc$(Chr(65)65StrVal常用内部函数3.字符串操作函数字符串操作函数 Left$(ABCDEFG,3)ABC Mid$(ABCDEFG,2,3)BCD Right$(ABCDEFG,3)EFG Len$(ABCDEFG)7 InStr(2,ABCDEFG,EF)5赋值语句形式：变量名表达式作用：将表达式的值赋值给变量名。一般用于给变量赋值或对控件设定属性值。注意：赋值号左边只能是变量，不能是常量或表达式不能在一个语句中同时给多个变量赋值数据输入函数数据输入函数InputBoxInputBox(提示信息提示信息,窗口标题窗口标题)通常用于赋值语句。产生一个对话框，通常用于赋值语句。产生一个对话框，供用户输入信息，并返回一个供用户输入信息，并返回一个字符型字符型的值，的值，赋给一个变量。赋给一个变量。MsgBox函数和函数和MsgBox过程过程函数形式：变量%=MsgBox(提示,按钮，标题)过程形式：MsgBox提示,按钮,标题选择结构1.IfThen语句(单分支结构)If Then语句块End If或 If Then 例:已知两个数x和y，比较它们的大小，使得x大于y.2.IfThenElse语句(双分支结构)IfThenElseEndIf或IfThenElse例:已知两个数x和y，求两个数中的大者.3.IfThenElseIf语句(多分支结构)IfThenElseIfThenElse语句块n+1EndIf不管有几个分支,当某条件满足,执行相应的语句块,其余分支不再执行.4.Select Case语句(情况语句)Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 Case Else 语句块n+1 End Select表达式列表的四种形式表达式列表的四种形式 a a,b,c a To b (包含包含a和和b)Is a5、条件函数（、条件函数（IIf函数）IIf(条件条件,表达式表达式1，表达式，表达式2)先求出两个表达式的值。当条件成立时，函数值为表达式1的值；条件不成立时，函数值为表达式2的值。例：求x,y中大的数，放入Tmax变量中循环结构1.For循环语句(一般用于循环次数已知)For循环变量初值to终值Step步长语句块ExitFor语句块Next循环变量循环次数=Int(终值-初值)/步长+1)步长步长 0 初值初值终值终值 =1 时时,可省略可省略 终值终值=0 死循环死循环循环结构执行循环结构 For i=30 To 10 Step 3 Print aNext i 将输出_个a。计算计算的近似值公式为的近似值公式为其其中中n n值值由由文文本本框框读读入入。阅阅读读程程序序并并填填空空，ResultResult是是标签框的名称标签框的名称 。Private Sub Command1_Click()Private Sub Command1_Click()Dim sum As Double,pi As Double Dim sum As Double,pi As Double Dim i As Integer,n As Integer Dim i As Integer,n As Integer n=Val(Text1.Text)n=Val(Text1.Text)For i=1 To n For i=1 To n sum=sum+_ sum=sum+_（1 1）1/(n2)1/(n2)Next i Next i pi=_ pi=_（2 2）Sqr(6*sum)Sqr(6*sum)_ Result.Caption=pi Result.Caption=pi近似值为近似值为:&Str(pi):&Str(pi)End SubEnd Sub2.DoLoop循环语句(用于控制循环次数未知)形式1：形式2：Do While|Until Do 语句块 语句块Exit Do Exit Do语句块 语句块Loop Loop While|Until 3.循环的嵌套 一个循环体内又包含了一个完整的循环结 构称为循环的嵌套.例：打印九九乘法表For i=1 To 9 For j=1 To 9 se=i&j&=&i*j Picture1.Print Tab(j-1)*9+1);se;Next j Picture1.PrintNext i For ii=1 To 10 For jj=1 To 20 Next ii Next jj For ii=1 To 10 For ii=1 To 20 Next ii Next ii For ii=1 To 10 For jj=1 To 20 Next jj Next ii For ii=1 To 10 Next ii For ii=1 To 10 Next ii 对于循环的嵌套，要注意以下事项：内循环变量与外循环变量不能同名；外循环必须完全包含内循环，不能交叉；不能从循环体外转向循环体内，反之则可以。正确错误Private Sub Command1_Click()Dim sum As Double,x As Doublesum=0:n=0For i=1 To 5x=n/i:n=n+1:sum=sum+xNextEnd Sub数组数组一一.静态数组及声明静态数组及声明形式形式:Dim 数组名数组名(下标下标1,下标下标2)As 类型类型声明了数组的维数、大小、类型声明了数组的维数、大小、类型维数：几个下标为几维数组维数：几个下标为几维数组下标下标:下界下界 To 上界上界;省略下界为省略下界为0,必须为常数必须为常数每一维大小每一维大小:上界下界上界下界+1数组大小数组大小:每一维大小的乘积每一维大小的乘积例：例：Dim mark(1 to 100)As IntegerDim a(0 To 3，0 To 4)As Long 共有共有 45个元素个元素等价于等价于:Dim a(3，4)As Long注意：1.下界缺省为0,也可在重新定义数组的下界。例如：Option Base 12.在数组声明中的下标说明了数组的整体,即每一维的大小；而在程序其他地方出现的下标表示数组中的一个元素。两者写法形式相同，但意义不同。例如：Dim x(10)As Integer 声明了x数组有11个元素x(10)=100 对x(10)这个数组元素赋值动态数组及声明在程序执行时分配存储空间。方法：(1)在过程外使用Dim、Private或Public语句声明括号内为空的数组(2)在过程中用ReDim语句指明该数组的大小DimsArray()AsSingleSubForm_Load()ReDimsArray(4，8)EndSub注意：(1)ReDim中的下标可以是常量,也可以是有确定值的变量.(2)在过程中可多次使用ReDim改变数组的大小，或维数.(3)每次用ReDim会使原数组的值丢失，可以在ReDim语句后加Preserve参数来保留数组中的数据.数组元素的输入、输出数组元素的输入、输出(1)用循环 For i =1 To 10 iA(i)=0：Print iA(i);Next i (2)Array函数 Dim ib As Variant ib=Array(abc,def,67)For i=0 To UBound(ib)Print ib(i);Next i注意注意：利用Array对数组各元素赋值，声明的数组是可调数组或连圆括号都可省，并且其类并且其类型只能是型只能是Variant。数组的下阶为零，上界由Array函数括号内的参数个数可决定，也可通过函数Ubound获得。数组的应用求最大值最小值求最大值最小值数组的查找、插入和删除数组的查找、插入和删除排序：冒泡排序和选择排序排序：冒泡排序和选择排序过程过程 三种三种自定义过程自定义过程子过程子过程（Sub Procedure）Sub过程没有返回值过程没有返回值函数过程函数过程（Function Procedure）Function过程返回一个值过程返回一个值属性过程属性过程（Property Procedure）自定义函数过程定义自定义函数过程定义 Function 函数名函数名(参数列表参数列表)As 数据类数据类型型 函数名函数名=表达式表达式 End Function 特点：特点：函数名有值，有类型，在过程函数名有值，有类型，在过程体内体内至少赋值一次。至少赋值一次。函数名函数名（实际（实际参数列表参数列表）注意：注意：函数在定义和使用时，无论是函数在定义和使用时，无论是否有参数，圆括号一定不能省。否有参数，圆括号一定不能省。特点：特点：不能独立存在，必须参加表达不能独立存在，必须参加表达式的运算式的运算Function过程调用过程调用自定义子过程的定义自定义子过程的定义格式：格式：Sub 子过程名子过程名(形式参数表形式参数表)过程体过程体 End Sub特点：特点：子过程名无值，无类型子过程名无值，无类型自定义子过程的调用自定义子过程的调用格式格式1 1 子过程名子过程名 实际参数列表实际参数列表 格式格式2 2 Call 子过程名子过程名(实际实际参数列参数列表表)特点：特点：一句独立的语句一句独立的语句注意：注意：格式格式1 1中的实际参数列表无需圆括号中的实际参数列表无需圆括号注意：(1)参数列表称为实参或实元，它必须与形参保持个数相同，位置与类型一一对应。(2)当参数是数组时，形参与实参在参数声明时应省略其维数，但括号不能省。(3)调用子过程的形式有两种，用Call关键字时，实参必须加圆括号括起，反之则全无。参数传递参数传递 指主调过程的实参传递给被调过程的形参。传址：形参得到的是实参的地址，当形参值的改变同时也改变实参的值。其形式参数前加其形式参数前加ByRef关键关键字界定或缺省。字界定或缺省。传值：形参得到的是实参的值，形参值的改变不会影响实参的值。其形式参数前加其形式参数前加ByVal关键字界定关键字界定实参为数组时为传址，实参为表达式时为传值。实参为数组时为传址，实参为表达式时为传值。Sub Add(x%,y%)x=x+2 y=y+3 Print x=;x,y=;yEnd SubPrivate Sub Command1_Click()a%=10:b%=20 Call Add(a+1,b)Print a=;a,b=;bEnd Sub1.1.递归的概念递归的概念 用自身的结构来描述自身就称为用自身的结构来描述自身就称为“递归递归”。例如对阶乘的定义：。例如对阶乘的定义：2.递归过程递归过程 过程在自身定义的内部调用自己。过程在自身定义的内部调用自己。编编fac(n)=n!的递归函数的递归函数 Function fac(n As Integer)As Integer If n=1 Then fac=1 Elsefac=n*fac(n-1)End If End Function控件基本的属性Name名称:所有控件对象都具有的属性Enabled：控件是否可操作.当设置为false时,呈暗淡色,禁止用户进行操作.Visible属性：控件是否可见.当设置为false时,用户看不到，但控件本身存在 Height、Width、Top和Left属性Caption 标题属性该属性决定了控件上显示的内容常用控件标签 Label 用于显示文本(输出)信息，不能作为输入信息的界面。标签是没有焦点的。文本框 TextBox 是一个文本编辑区域，可在该区域输入，编辑和显示正文内容。命令按钮CommandButton 接受用户输入的命令文本框（TextBox）基本属性Text:正文内容Maxlength:设置正文的最多字符个数MultiLine:是否为多行,默认一行.FALSEScrollBars:当MultiLine为True时,该属性才有效,表示滚动条的形式PassWord:口令字符；Text属性返回输入的数据，屏幕显示该字符SelStart，SelLength，SelText:选中文本的起始、长度、内容Locked：指定文本控件是否可被编辑常用事件Change:当改变文本框的Text属性时会引发该事件.KeyPress(KeyAscii As Integer):文本框的按键事件，常用于判断是否按了回车键（KeyAscii 为13,按回车键）常用方法 对象.SetFocus:是把光标移到指定的文本框对象中.单选钮和检查框属性Caption：文本标题。Alignment0：控件钮在左边，标题显示在右边。1：控件钮在右边，标题显示在左边。Value检查框 单选钮0-Unchecked：未被选定True：选定1-Checked：选定False：未选定2-Grayed：灰色，禁止选择框架框架(Frame)框架内控件的创建方法：框架内控件的创建方法：方法1：单击工具箱上的工具，然后用出现的“+”指针，在框架中适当位置拖拉出适当大小的控件。不能使用双击工具箱上图标的自动方式。方法2：将控件“剪切”到剪贴板，然后粘贴到框架。框架设Caption为 字体列表框列表框List1列表框各主要属性的值：List1.ListIndex=3 (下标从0开始的)List1.ListCount=5 List1.Selected(3)=True，其余为False。List1.Sorted=False，没有排序。List1.Text 为“cox”，与List1.List(List1.ListIndex)相等1.基本属性基本属性(P：可在程序中设置或引用，：可在程序中设置或引用，D：可在设计状态设置。：可在设计状态设置。)List：P D 字符型数组，存放列表框的项目，下标是从字符型数组，存放列表框的项目，下标是从0开始。开始。ListIndex：P 选中的项目的序号，没有项目被选定时为选中的项目的序号，没有项目被选定时为-1ListCount：P 项目的数量，项目的数量，ListCount-1是最后一项的下标。是最后一项的下标。Sorted：D True：按字母顺序排列。：按字母顺序排列。False：按加入先后顺序排列。：按加入先后顺序排列。Text：P 列表项中被选定的内容，列表项中被选定的内容，List 1.List(List 1.ListIndex)=List1.Text。2.列表框的特有属性列表框的特有属性Selected：P 逻辑数组。Selected(i)的值为True表示第i+1项被选中。MultiSelect 0-None：禁止多项选择。1-Simple：简单多项选择。2-Extended：扩展多项选择。3.方法方法AddItem 对象.AddItem item,indexRemoveItem 对象.RemoveItem indexClear 对象.Clear 4.事件事件Click、DblClick。一般不需要编写Click事件过程。通常在单击命令按钮或发生DblClick事件时才读取Text属性。列表框各主要属性的值：List1.ListIndex=0 List1.ListCount=8 List1.Selected(3)=True其余为False。List1.Sorted=False List1.Text 为“李宁”组合框组合框 下拉式组合框 下拉式列表框 简单组合框2.组合框的特有属性组合框的特有属性 Style类型类型Style输入输入下拉式组合框0能简单组合框1能下拉式列表框2不能滚动条控件滚动条控件（HScrollBar和和 VScrollBar）属性 Value：滑块所处位置代表的值 Max：滑块处于最右（下）端时的值 Min：滑块处于最左（上）端时的值 LargeChange：单击滚动条空白处，滑块移动的增量。SmallChange：单击滚动条两端箭头时，滑块移动的增量。MinMaxMinMaxLargeChangeSmallChangeValue滚动条控件滚动条控件菜单项名称必须是唯一的菜单项名称必须是唯一的分隔条及热键的设置分隔条及热键的设置菜单菜单文件及其种类文件及其种类 文件是记录的集合。文件是记录的集合。VB按读写方式的三类文件：按读写方式的三类文件：顺序文件顺序文件随机文件随机文件二进制文件二进制文件顺序文件顺序文件 从第一条到最后一条记录顺序读写从第一条到最后一条记录顺序读写 文本文件每一行为一条记录文本文件每一行为一条记录 写文件的三步骤：打开写文件的三步骤：打开写入写入关关闭闭 读文件的三步骤：打开读文件的三步骤：打开读出读出关关闭闭打开文件打开文件Open “文件名文件名”For 模式模式 As#文件号文件号 Len=记录长度记录长度说明：说明：(1)三种三种“模式模式”：Output 重写重写 Append 追加记录追加记录 Input 读读（外存（外存内存）内存）(2)文件号是文件号是1511之间的整数之间的整数写文件写文件格式格式1 Print#文件号文件号，输出列表，输出列表格式格式2 Write#文件号，输出列表文件号，输出列表 Write为紧凑格式，数据项间自动加为紧凑格式，数据项间自动加“，”，字符串加双引号，字符串加双引号读文件读文件格式格式1 Input#文件号，变量列表文件号，变量列表 读取读取 Write 格式的文件数据，并格式的文件数据，并将数据按序赋值给指定变量将数据按序赋值给指定变量读文件读文件格式格式2 Line Input#文件号，字符串变量文件号，字符串变量 读取文件中的一行数据并将其赋值读取文件中的一行数据并将其赋值给一个字符串变量给一个字符串变量读文件读文件格式格式3 Input$(读取字符数，读取字符数，#文件号文件号)读取指定数目的字符读取指定数目的字符关闭文件关闭文件Close#文件号，文件号，#文件号文件号 与读文件有关的两个函数与读文件有关的两个函数 LOF（文件号）（文件号）返回文件的字节数，即文件长度。返回文件的字节数，即文件长度。若值为若值为0，说明是空文件，说明是空文件 EOF（文件号）（文件号）返回逻辑值，表示文件指针是否达返回逻辑值，表示文件指针是否达到文件末尾到文件末尾