华南理工大学VB期末复习.ppt

1、2011年6月28日 15：00 17：00 课室：A2105 工业设计及重修生 A3401 会计1班 A3402 会计2班 闭卷考试 带学生证，校园卡备查。,考试题型：填空题 选择题 阅读程序写出结果 程序填空题 程序设计题,常量、变量和数据类型是程序设计语言所包含的元素。 注意vb常用的数据类型，占字节数、表示形式以及操作方式。 常量：即保持不变的数值。 变量：即可以随时在程序中改变的数值。变量在使用之前需要先说明。有3种方式：显式说明、隐式说明和强制显式说明。,例： Const B=3 B=4 Print B,例： Option Explicit Dim a as string*3 Di

2、m x%, c Tab(6); abcde; Spc(1); 123456678 Print s1=; 50, Print s2=; 30 Print 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语句的嵌套,无论分支多少,仅选其一执行,分支结构 语句,注意：单行结构与块结构写法的区别。,If name

3、 =admin Then msgbox 通过“ X=1 End if,If name =“admin” Then msgbox “通过” : X=1,ForNext 语句 While Wend 语句 DoLoop语句 Do WhileLoop 语句 Do UntilLoop 语句 DoLoop While 语句 DoLoop Until 语句 嵌套循环 不能交叉,循环体的算法，进入循环的条件，结束循环的条件。,循环结构 语句,Do while a=true loop,Do until a=false loop,While a=true Wend,Private Sub Command1_Cli

4、ck() 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 i End sub,例1：,2,2 6,2 6 24,Private 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 y = 0 End Select Print “x=”; x; “

5、y=”; y Next End 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语句的应用。学生考试，输入准考证号，能查出相应课室号码。已知考生考试课室安排如下：,Case 1111 To 1140 y = 103 End Select Print “准考证号 ; x; 考试教室; y Else

6、 Print 准考证号输入错误！ End If End Sub,第 4 章 常用控件,窗体是VB应用程序中的顶层对象，窗体上的控件是子对象，窗体是父对象。 窗体事件被触发的顺序： 开始：Initialize Load Activate 结束：QueryUnLoad UnLoad Terminate 方法：print，cls，move，show等。引用时，当前窗体可以省略窗体名。,16种控件 ：常用属性，常用事件，支持的方法,属性的设置：属性窗口设置和用赋值语句设置。每种控件用来干什么的？涉及到的重要属性有哪些。,常用事件：什么时候、什么动作会触发该事件。在什么事件中写过程代码。,控件的方法：注

7、意写法：对象的名称.方法,例：指定文本框text1接受数据输入。 Text1.SetFocus,例：在图片框输出“*”。 Picture1.Print “*”,本章的实验作业,例1：设计一个计时程序，用户单击command1按钮，计时开始，在文本框中显示秒数，单击command2按钮，则计时停止。,Option Explicit Dim i As Integer Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = False Text1.FontSize = 20 Text1.Text = End Sub,Privat

8、e Sub Command2_Click() Timer1.Enabled = False End Sub,Private Sub Command1_Click() i = 0 Timer1.Enabled = True End Sub,计时器开始工作,计时器停止工作,Private Sub Timer1_Timer() i = i + 1 Text1.Text = i End Sub,例2：模拟秒表计时程序。,Option Explicit _ Private Sub Form_Load() Command2.Enabled = False Text1.Text = : Text2.Text

9、 = : Text3.Text = End Sub Private Sub Command1_Click() time1 = Now 当前系统时间 Text1.Text = Format(time1, hh:mm:ss) Text2.Text = : Text3.Text = Command1.Enabled =_ Command2.Enabled =_ End Sub,Dim time1 As variant,False,True,Private Sub Command2_Click() Dim time2 As variant Dim time3 As Variant time2 = No

10、w 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,使用数组先说明。定义数组的名称、维数和数组元素的数据类型。元素的个数和位置由下标决定。,第 5 章 数组与记录,例：A(3) As Integer B(-1 to 2, -2 to 2) As Double,实际中通过输入数组元素的个数来确定数组的大小，就要先定义一个可调

11、数组，当确定了数组的大小后重定义数组。 例：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(“s(i,j)； Next j print 换行 Next i,应用：在一维数组中求最小值、最大值、排序、求和等等。在二维数组中求和，求平均值、判断数组元素的大小等。,Private Sub Command1_Click() Dim x(1 To 8) As Integer Dim i%, j%,

12、t%, min% Randomize 随机数列初始化 For i = 1 To 8 用随机数初始化数组，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 寻找最小元素 If x(j) i Then 交换数组元素 min = x(i) x(

13、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 3 b(i, j) = a(i * j) If j = i Then Print b(i, j),

14、 Next j Print Next i End Sub,例：写出结果。,1,a(1)=1 a(2)=2 a(9)=9,b(1,1)=1,b(1,2)=2,b(1,3)=3,b(2,1)=2,b(2,2)=4,b(2,3)=6,b(3,1)=3,b(3,2)=6,b(3,3)=9,1 2,1 24,1 24 3,1 24 36,答案： 1 24 369,2. 在过程中说明变量或数组为记录类型。 Dim x as ydy 一行数据 Dim s(1 to 10) as ydy 一张表数据,自定义记录类型,1. 定义记录类型： Private Type ydy no As Integer xy As

15、 String*5 cj As Integer End Type,运动员号 学院 成绩 理学院 12.5 理学院 12.3 化工学院 12.6 信息学院 13.1 法学院 12.5 文学院 12.1 化工学院 14.2 理学院 11.8,3. 使用记录变量或记录数组时要采用记录元素。 Print x.no，x.xy，x.cj，s(1).no，s(2).no，s(1).xy,调用：Call Are(Ch，Kw) 或者 Are x，y,第 7 章 过程,子过程：,Private Sub Are ( x！, byval y！) End Sub,Public Function fact(Byref n

16、%) As Long ： fact= End Function,函数过程：,调用 例如：Print “结果：”；fact(3)+fact(5),注意复习讲课例子及实验练习,例：在窗体上打印图案，要求用子过程实现打印一个三角形图案。 在command1_chick()事件过程中调用两次子过程来实现整个图案的打印。,分析：子过程的两个形参： 打印字符 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 每行打印字符 Pri

17、nt Str; Next J Print 换行 Next I End Sub,Private Sub Command1_Click() tr %, 3 调用子过程 tr *, 5 调用子过程 End Sub,Private Sub 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 I End Sub,Private Sub Command1_Click() tr %, 3

18、 调用子过程 tr *, 5 调用子过程 End Sub,Private Sub tr(ByVal Str$, ByVal n%) Dim I As Integer, J As Integer For I = 1 To n 打印n行 Print Tab(n + 1 - i); 定位 For J = 1 To 2 * i 1 每行打印字符 Print Str; Next J Print 换行 Next I End Sub,Private Sub Command1_Click() tr %, 3 调用子过程 tr *, 5 调用子过程 End Sub,例：程序填空题。 下面程序由一个事件过程For

19、m_click( )和一个自定义函数过程Mean( )组成。 事件过程的功能首先是产生由前N个自然数的平方所组成的数组: 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