广东药学院-VB复习.ppt

复习复习 考试题型 单选题（单选题（30分，每题分，每题1分）分）填空题（填空题（50分，每空分，每空2分）分）编程题（编程题（20分，每题分，每题10分）分）计计算算机机系系统统 主机主机 外设外设 运算器运算器 控制器控制器 内存储器内存储器 ROM RAM I/O总线接口总线接口 CPU 外存储器外存储器 输入输入/输出设备输出设备 网络通信设备网络通信设备 软盘驱动器软盘驱动器 硬盘硬盘 CD-ROM 显示器显示器 键盘键盘、鼠标鼠标 打印机打印机、绘图仪绘图仪 硬件硬件 软件软件 应用软件应用软件 系统软件系统软件 操作系统操作系统 编译系统编译系统 工具软件工具软件 数据库管理系统数据库管理系统 MODEM 网卡网卡 编码基础 VB代码不区分字母的大小写 一行可书写几句语句,之间用冒号分隔;一句语句可分若干行书写,用续行符（空格下划线）连接 Rem开始 或 单撇 VB常用数据类型 变量和常量的命名规则命名规则 变量：在程序运行中其存储的值可以改变。常量：在程序运行中其值不可以改变。以字母或汉字开头，后可跟字母、数字或下划线组成，长度小于等于40个字符；不能使用VB中的关键字；VB中不区分变量名的大小写 例如：1)a bc 2)print_65 3)12bc 4)x-y 5)x%y 6)abs 7)mn%8)int 变量声明 Dim 变量名 AS 类型 Dim iMark As integer,sTotal As single Dim iItem%注意:在通用声明处加 Option Explicit 语句来强制显式声明变量 常量声明 Const 常量名 AS 类型=表达式 例 Const MAX=100 Const 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码值从左到右一一比较，直到出现不同的字符为止.。例：ABCDE ABRA 结果为 False 逻辑运算符 将操作数进行逻辑运算，结果是逻辑值 表达式 组成组成:变量、常量、函数、运算符和圆变量、常量、函数、运算符和圆括号括号 书写规则书写规则 运算符不能相邻。例a+-b是错误的。乘号不能省略。例x 乘以y 应写成：x*y。括号必须成对出现，均使用圆括号。表达式从左到右在同一基准上书写，无高低、大小。表达式书写举例 sin(45*3.14/180)+(exp(10)+log(10)/sqr(x+y+1)110e4510yxlnsinefgabcda*b*c*d/e/f/g 或 a*b*c*d/（e*f*g）73 x3=x And x=7 常用内部函数 1.数学函数数学函数 Rnd函数返回函数返回0和和1（不包括（不包括0和和1）之间的双精度）之间的双精度随机数随机数.产生nm的随机整数:Int(Rnd*(m-n+1)+n 取整函数：Int Fix Round 符号函数：Sgn 常用内部函数 2.转换函数转换函数 Chr$(Asc(G)G Ucase$(abcdefg)ABCDEFG“Asc$(Chr(65)65 Str Val 常用内部函数 3.字符串操作函数字符串操作函数 Left$(ABCDEFG,3)ABC Mid$(ABCDEFG,2,3)BCD Right$(ABCDEFG,3)EFG Len$(ABCDEFG)7 InStr(2,ABCDEFG,EF)5 赋值语句 形式：变量名表达式 作用：将表达式的值赋值给变量名。一般用于给变量赋值或对控件设定属性值。注意：赋值号左边只能是变量，不能是常量或表达式 不能在一个语句中同时给多个变量赋值 数据输入函数数据输入函数InputBox InputBox(提示信息提示信息,窗口标题窗口标题)通常用于赋值语句。产生一个对话框，通常用于赋值语句。产生一个对话框，供用户输入信息，并返回一个供用户输入信息，并返回一个字符型字符型的值，的值，赋给一个变量。赋给一个变量。MsgBox函数和函数和MsgBox过程过程 函数形式：变量%=MsgBox(提示,按钮，标题)过程形式：MsgBox 提示,按钮,标题 选择结构 1.IfThen语句(单分支结构)If Then 语句块 End If 或 If Then 例:已知两个数x和y，比较它们的大小，使得x大于y.2.IfThenElse语句(双分支结构)If Then Else End If 或 If Then Else 例:已知两个数x和y，求两个数中的大者.3.IfThenElseIf语句(多分支结构)If Then ElseIf Then Else 语句块 n+1 End If 不管有几个分支,当某条件满足,执行相应的语句块,其余分支不再执行.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 a 5、条件函数（、条件函数（IIf函数）IIf(条件条件,表达式表达式1，表达式，表达式2)先求出两个表达式的值。当条件成立时，函数值为表达式1的值；条件不成立时，函数值为表达式2的值。例：求x,y中大的数，放入Tmax变量中 循环结构 1.For循环语句(一般用于循环次数已知)For 循环变量初值 to 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量 循环次数=Int(终值-初值)/步长+1)步长步长 0 初值初值终值终值 =1 时时,可省略可省略 终值终值=0 死循环死循环 循环结构 执行循环结构 For i=30 To 10 Step 3 Print a Next i 将输出_个a。计算计算 的近似值公式为的近似值公式为 其中其中n n值由文本框读入值由文本框读入。阅读程序并填空阅读程序并填空，ResultResult是是标签框的名称标签框的名称 。PrivatePrivate SubSub CommandCommand1 1_Click()_Click()DimDim sumsum AsAs Double,Double,pipi AsAs DoubleDouble DimDim i i AsAs Integer,Integer,n n AsAs IntegerInteger n n =Val(TextVal(Text1 1.Text)Text)ForFor i i =1 1 ToTo n n sumsum =sumsum +_（1 1）1 1/(n/(n2 2)NextNext i i pipi =_（2 2）Sqr(Sqr(6 6*sum)*sum)_ ResultResult.Caption=Caption=pipi近似值为近似值为:&Str(pi)Str(pi)EndEnd SubSub 2222213121116n2.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.Print Next 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 Double sum=0:n=0 For i=1 To 5 x=n/i:n=n+1:sum=sum+x Next End Sub 数组数组 一一.静态数组及声明静态数组及声明 形式形式:Dim 数组名数组名(下标下标1,下标下标2)As 类型类型 声明了数组的维数、大小、类型声明了数组的维数、大小、类型 维数：几个下标为几维数组维数：几个下标为几维数组 下标下标:下界下界 To 上界上界;省略下界为省略下界为0,必须为常数必须为常数 每一维大小每一维大小:上界下界上界下界+1 数组大小数组大小:每一维大小的乘积每一维大小的乘积 例：例：Dim mark(1 to 100)As Integer Dim a(0 To 3，0 To 4)As Long 共有共有 45个元素个元素 等价于等价于:Dim a(3，4)As Long 注意：1.下界缺省为0,也可在重新定义数组的下界。例如：Option Base 1 2.在数组声明中的下标说明了数组的整体,即每一维的大小；而在程序其他地方出现的下标表示数组中的一个元素。两者写法形式相同，但意义不同。例如：Dim x(10)As Integer 声明了x数组有11个元素 x(10)=100 对x(10)这个数组元素赋值 动态数组及声明 在程序执行时分配存储空间。方法：(1)在过程外使用Dim、Private或Public语句声明括号内为空的数组(2)在过程中用ReDim语句指明该数组的大小 Dim sArray()As Single Sub Form_Load()ReDim sArray(4，8)End Sub 注意：(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）自定义函数过程定义自定义函数过程定义