VB期末复习课件.ppt

1、 2011年年6月月28日日 15：00 17：00课室：课室：A2105 工业设计及重修生工业设计及重修生 A3401 会计会计1班班 A3402 会计会计2班班 闭卷考试闭卷考试 带学生证，校园卡备查。带学生证，校园卡备查。考试题型：填空题考试题型：填空题 选择题选择题 阅读程序写出结果阅读程序写出结果 程序填空题程序填空题 程序设计题程序设计题常量、变量和数据类型是程序设计语言所包含的元素。常量、变量和数据类型是程序设计语言所包含的元素。注意注意vbvb常用的数据类型，占字节数常用的数据类型，占字节数、表示形式以及、表示形式以及操作方式操作方式。常量：即保持不变的数值。常量：即保持不变的

2、数值。变量：变量：即可以随时在程序中改变的数值。变量在使用之前需即可以随时在程序中改变的数值。变量在使用之前需要先说明。有要先说明。有3种方式：显式说明、隐式说明和强制显式说明。种方式：显式说明、隐式说明和强制显式说明。例：例：Const B=3 B=4 Print B例：例：Option Explicit Dim a as string*3 Dim x%,c&,d!,y#,e$Static num as long dim name1 as variant 出错提示出错提示运算符与表达式。运算符与表达式。一个表达式可能含有多种运算，一个表达式可能含有多种运算，表达式的运算顺序：表达式的运算顺序

3、：函数运算函数运算 算术运算算术运算 关系运算关系运算 逻辑运算逻辑运算括号优先，同级将从左到右进行运算。括号优先，同级将从左到右进行运算。逻辑运算：逻辑运算：not and or xor eqv imp 给出表达式后求值或者根据描述写出表达式给出表达式后求值或者根据描述写出表达式 例：例：已知已知x=2,y=4,z=6x=2,y=4,z=6求表达式：求表达式：not(xy)or x+y+z50 and 100/zy 的值。的值。x mod 3=0 and x mod 4=0例：例：设设x 即能被即能被3整除，也能被整除，也能被4整除，写出表达式。整除，写出表达式。TrueX=B例例：设：设x

4、 小于等于小于等于a，或者大于等于，或者大于等于b，写出表达式。，写出表达式。例例：把数学式子：把数学式子 写成写成vb表达式。表达式。Sin(15*3.14159/180)/Sqr(x+y)常用内部函数可以通过分类来记忆：常用内部函数可以通过分类来记忆：转换函数、数学函数、转换函数、数学函数、字符串函数、时间字符串函数、时间/日期函数和随机函数。日期函数和随机函数。了解函数的功能、参数的格式以及函数值的数据类型。了解函数的功能、参数的格式以及函数值的数据类型。例：例：生成某个范围内的随机整数生成某个范围内的随机整数Int(99-10+1)*Rnd+10)Int(90*Rnd+10)10到到9

5、9Int(9-0+1)*Rnd+0)Int(10*Rnd)0到到9,1位随机整数位随机整数Int(9-1+1)*Rnd+1)Int(9*Rnd+1)1到到9Int(100-0+1)*Rnd+0)Int(101*Rnd)0到到100例：例：Combo1.List(0)=王中强王中强&学生学生Text1.fontsize=hscroll1.valueX=InputBox(输入半径输入半径,输入信息输入信息,10,2000,3000)Y=MsgBox(继续吗？继续吗？,vbYesNo,提示信息提示信息)Y=MsgBox(继续吗？继续吗？,4,提示信息提示信息)MsgBox 输入完成输入完成!顺序顺序

6、结构结构 赋值语句、数据输入、数据输出、赋值语句、数据输入、数据输出、对象的方法语句、注释、结束、暂停语句等对象的方法语句、注释、结束、暂停语句等。输出语句：输出语句：Print注意注意:输出对象、输出某控件对象的属性值。输出对象、输出某控件对象的属性值。Picture1.Print“学生：学生：,list1.list(3)Print label1.captionPrint text1.textPrint combo1.textPrint combo1.list(4)Print 注意数据项的分隔符、语句末尾符号。格式化函数。注意数据项的分隔符、语句末尾符号。格式化函数。Form1.Print

7、汉字汉字;Tab(6);abcde;Spc(1);123456678Print s1=;50,Print s2=;30Print Format(1234.5,$#,#.#)+元元 Print Format(1234.5,$000,000.00)+元元 Print Format(1234.5,$#,#0.00元元)单分支单分支 IF Then语句语句 双分支双分支 IF ThenElse语句语句 多分支多分支 IF ThenElseif语句语句多分支情况多分支情况 Select Case语句语句IF语句的嵌套语句的嵌套无论分支多少无论分支多少,仅选其一执行仅选其一执行分支结构分支结构 语句语句注

8、意：单行结构与块结构写法的区别。注意：单行结构与块结构写法的区别。If name=admin Then msgbox 通过通过“X=1End ifIf name=“admin”Then msgbox“通过通过”:X=1ForNext 语句语句While Wend 语句语句DoLoop语句语句 Do WhileLoop 语句语句 Do UntilLoop 语句语句 DoLoop While 语句语句 DoLoop Until 语句语句嵌套循环嵌套循环 不能交叉不能交叉循环体的算法，循环体的算法，进入循环的条件，进入循环的条件，结束循环的条件。结束循环的条件。循环结构循环结构 Do while a

9、=trueloopDo until a=falseloopWhile a=true WendPrivate Sub Command1_Click()Dim i%,j%,s%for i=1 to 3 s=1 for j=1 to i s=s+s*j next j print s next iEnd sub例例1：2 262624Private Sub Form_Click()Dim i%,x!,y!For i=1 To 4 x=i*i+2 Select Case x Case 6,18 y=x/2+6 Case 10 To 15 y=x*x Case is 18 y=x*2 Case Else

10、y=0 End Select Print“x=”;x;“y=”;y NextEnd Sub例例2：Private Sub Form_Click()Dim x%,y%X=inputbox(输入准考证号：输入准考证号：)If x=1001 and x=1140 then Select Case x Case 1001 to 1052 y=101 Case 1053 to 1110 y=102 例例3：多分支情况：多分支情况 Select Case语句的应用。学生考试，输入准语句的应用。学生考试，输入准考证号，能查出相应课室号码。已知考生考试课室安排如下：考证号，能查出相应课室号码。已知考生考试课室

11、安排如下：准考证号准考证号10011052 1053111011111140教室号码教室号码101102103 Case 1111 To 1140 y=103 End Select Print“准考证号准考证号;x;考试教室考试教室;yElse Print 准考证号输入错误准考证号输入错误！End IfEnd Sub窗体是窗体是VBVB应用程序中的顶层对象，窗体上的控件是子对象，应用程序中的顶层对象，窗体上的控件是子对象，窗体是父对象。窗体是父对象。窗体窗体事件被触发的顺序：事件被触发的顺序：开始：开始：Initialize Load Activate结束：结束：QueryUnLoad UnL

12、oad Terminate方法：方法：print，cls，move，show等等。引用时，当前窗体可引用时，当前窗体可以省略窗体名。以省略窗体名。16种控件种控件：常用属性，常用事件，支持的方法：常用属性，常用事件，支持的方法属性的设置属性的设置：属性窗口设置和用赋值语句设置。：属性窗口设置和用赋值语句设置。每种控件用来干什么的？涉及到的重要属性有每种控件用来干什么的？涉及到的重要属性有哪些。哪些。常用事件：常用事件：什么时候、什么动作会触发该事件。什么时候、什么动作会触发该事件。在什么事件中写过程代码。在什么事件中写过程代码。控件的方法：控件的方法：注意写法：对象的名称注意写法：对象的名称.

13、方法方法例：例：指定文本框指定文本框text1接受数据输入。接受数据输入。Text1.SetFocus例：例：在图片框输出在图片框输出“*”。Picture1.Print “*”本章的实验作业本章的实验作业例例1：设计一个计时程序，用户单击设计一个计时程序，用户单击command1按钮，计时开按钮，计时开始，在文本框中显示秒数，单击始，在文本框中显示秒数，单击command2按钮，则计时停止。按钮，则计时停止。Option ExplicitDim i As IntegerPrivate Sub Form_Load()Timer1.Interval=1000 Timer1.Enabled=Fal

14、se Text1.FontSize=20 Text1.Text=End SubPrivate Sub Command2_Click()Timer1.Enabled=FalseEnd SubPrivate Sub Command1_Click()i=0 Timer1.Enabled=TrueEnd Sub计时器开始工作计时器开始工作计时器停止工作计时器停止工作Private Sub Timer1_Timer()i=i+1 Text1.Text=iEnd Sub例例2：模拟秒表计时程序。模拟秒表计时程序。Option Explicit_Private Sub Form_Load()Command2

15、.Enabled=False Text1.Text=:Text2.Text=:Text3.Text=End SubPrivate Sub Command1_Click()time1=Now 当前系统时间当前系统时间Text1.Text=Format(time1,hh:mm:ss)Text2.Text=:Text3.Text=Command1.Enabled=_ Command2.Enabled=_End SubDim time1 As variantFalseTruePrivate Sub Command2_Click()Dim time2 As variant Dim time3 As Va

16、riant time2=Now time3=time2-time1 Text2.Text=Format(time2,hh:mm:ss)Text3.Text=Format(time3,hh:mm:ss)Command1.Enabled=True Command2.Enabled=False 单击后按钮不可用单击后按钮不可用End Sub使用数组先说明。定义数组的名称、维数和数组元素的数使用数组先说明。定义数组的名称、维数和数组元素的数据类型。元素的个数和位置由下标决定。据类型。元素的个数和位置由下标决定。例：例：A(3)As Integer B(-1 to 2,-2 to 2)As Double

17、实际中通过输入数组元素的个数来确定数组的大小，就要实际中通过输入数组元素的个数来确定数组的大小，就要先定义一个先定义一个可调数组可调数组，当确定了数组的大小后重定义数组。，当确定了数组的大小后重定义数组。例：例：Dim s()as integer n=inputbox(“输入输入n=”)Redim s(1 to n)2维数组维数组M N元素的元素的输入：输入：For i=1 To m 外层循环：行外层循环：行 For j=1 To n 内层循环：列内层循环：列 s(i,j)=InputBox(“s(“&Str(i)&”,”&str(j)&”)=”)Next jNext i2维数组维数组M N元

18、素的元素的输出：输出：For i=1 To m For j=1 To n Print“s(“;i;”,”;j;”)=”;s(i,j)；Next j print 换行换行 Next i应用：在一维数组中求最小值、最大值、排序、求和等等。应用：在一维数组中求最小值、最大值、排序、求和等等。在二维数组中求和，求平均值、判断数组元素的大小等。在二维数组中求和，求平均值、判断数组元素的大小等。Private Sub Command1_Click()Dim x(1 To 8)As Integer Dim i%,j%,t%,min%Randomize 随机数列初始化随机数列初始化 For i=1 To 8

19、用随机数初始化数组，用随机数初始化数组，10至至99 x(i)=Int(90*Rnd)+10 Next i For i=1 To 8 Print x(i);输出一行原始序列输出一行原始序列 Next I Print 换行换行例：例：编写一个事件过程，使用随机函数产生编写一个事件过程，使用随机函数产生8个两位整数放个两位整数放在一维数组在一维数组X中，输出原始序列，对数组中的数据用选择排中，输出原始序列，对数组中的数据用选择排序法从小到大顺序排列并输出结果。序法从小到大顺序排列并输出结果。For i=1 To 7 对数组排序对数组排序 t=i For j=i+1 To 8 寻找最小元素寻找最小元

20、素 If x(j)x(t)Then t=j Next j If t i Then 交换数组元素交换数组元素 min=x(i)x(i)=x(t)x(t)=min End If Next i For i=1 To 8 输出排序后序列输出排序后序列 Print x(i);Next I Print 换行换行End Sub Private Sub Command1_Click()Dim a(1 To 9)As Integer Dim b(1 To 3,1 To 3)As Integer Dim i%,j%For i=1 To 9 a(i)=i Next i For i=1 To 3 For j=1 To

21、 3 b(i,j)=a(i*j)If j=i Then Print b(i,j),Next j Print Next i End Sub例：例：写出结果。写出结果。1a(1)=1a(2)=2a(9)=9b(1,1)=1b(1,2)=2b(1,3)=3b(2,1)=2b(2,2)=4b(2,3)=6b(3,1)=3b(3,2)=6b(3,3)=912124124312436 答案：答案：1243692.在过程中说明变量或数组为记录类型。在过程中说明变量或数组为记录类型。Dim x as ydy 一行数据一行数据Dim s(1 to 10)as ydy 一张表数据一张表数据自定义记录类型自定义记录

22、类型1.定义记录类型：定义记录类型：Private Type ydy no As Integer xy As String*5 cj As IntegerEnd Type运动员号 学院 成绩1423 理学院 12.51428 理学院 12.31476 化工学院 12.61455 信息学院 13.11333 法学院 12.51346 文学院 12.11379 化工学院 14.21328 理学院 11.83.使用记录变量或记录数组时要采用记录元素。使用记录变量或记录数组时要采用记录元素。Print x.no，x.xy，x.cj，s(1).no，s(2).no，s(1).xy调用：调用：Call A

23、re(Ch，Kw)或者或者 Are x，y 子过程：子过程：Private Sub Are(x！,byval y！)End SubPublic Function fact(Byref n%)As Long ：fact=End Function函数过程：函数过程：调用调用 例如：例如：Print “结果：结果：”；fact(3)+fact(5)注意复习讲课例子及实验练习注意复习讲课例子及实验练习例：在窗体上打印图案，要求用子过例：在窗体上打印图案，要求用子过程实现打印一个三角形图案。程实现打印一个三角形图案。在在command1_chick()事件过程中调用事件过程中调用两次子过程来实现整个图案

24、的打印。两次子过程来实现整个图案的打印。分析：子过程的两个形参：分析：子过程的两个形参：打印字符打印字符 str 打印行数打印行数 n。Private Sub tr(ByVal Str$,ByVal n%)Dim I As Integer,J As Integer For I=1 To n 打印打印n行行 For J=1 To I 每行打印字符每行打印字符 Print Str;Next J Print 换行换行 Next IEnd SubPrivate Sub Command1_Click()tr%,3 调用子过程调用子过程 tr *,5 调用子过程调用子过程End SubPrivate Su

25、b tr(ByVal Str$,ByVal n%)Dim I As Integer,J As Integer For I=1 To n 打印打印n行行 For J=1 To n+1-i 每行打印字符每行打印字符 Print Str;Next j Print 换行换行 Next IEnd SubPrivate Sub Command1_Click()tr%,3 调用子过程调用子过程 tr *,5 调用子过程调用子过程End SubPrivate Sub tr(ByVal Str$,ByVal n%)Dim I As Integer,J As Integer For I=1 To n 打印打印n行

26、行 Print Tab(n+1-i);定位定位 For J=1 To 2*i 1 每行打印字符每行打印字符 Print Str;Next J Print 换行换行 Next IEnd SubPrivate Sub Command1_Click()tr%,3 调用子过程调用子过程 tr *,5 调用子过程调用子过程End Sub例：例：程序填空题。程序填空题。下面程序由一个事件过程下面程序由一个事件过程Form_click()和一个自和一个自定义函数过程定义函数过程Mean()组成。组成。事件过程的功能首先是产生由前事件过程的功能首先是产生由前N个自然数的平方所个自然数的平方所组成的数组组成的数

27、组:D(1)=1*1 D(2)=2*2 D(2)=2*2 D(N)=N*N 并求出数组元素的算术平均值，在窗体上输出。并求出数组元素的算术平均值，在窗体上输出。求平均值由自定义函数过程求平均值由自定义函数过程Mean()完成。完成。该函数的参数为数组该函数的参数为数组D()，Private Sub Form_Click()Dim d()As Single Dim i As Integer,n As Integer n=InputBox(N=)_ Print 所产生的所产生的;n;个数是个数是:For i=1 To n d(i)=i*i Print d(i)Next i Print Print

28、他们的平均值是他们的平均值是:Print _End SubPrivate Function _mean(d()As Single)_ Dim i%,n%,x%n=_ For i=1 To n x=x+d(i)Next i mean=x/nEnd FunctionAs SingleReDim d(1 To n)mean(d()求数组下标范围的函数求数组下标范围的函数LBound(d)下界下界 UBound(d)上界上界UBound(d)说明变量语句的位置决定了变量的作用域：说明变量语句的位置决定了变量的作用域：过程级过程级(局部局部)、文件级、文件级(模块模块)、工程级、工程级(全局全局)Dim

29、 x As IntegerPrivate Sub Form_Click()x=100Call s1:Print xCall s2:Print xEnd SubPrivate Sub s1()Dim x As Integer x=x+200:Print xEnd SubPrivate Sub s2()x=x+200:Print xEnd Sub例：例：注意：不同注意：不同作用域的作用域的同名变量。同名变量。顺序文件的读写、随机文件的读写顺序文件的读写、随机文件的读写打开文件打开文件读读/写文件写文件关闭文件关闭文件Open 语句语句读（磁盘读（磁盘内存）内存）写（内存写（内存磁盘）磁盘）Close 语句语句顺序写：顺序写：Write#语句、语句、Print#语句语句顺序读：顺序读：Input#语句、语句、Line Input#语句语句随机写：随机写：Put#语句语句随机读：随机读：Get#语句语句