全国计算机等级考试VB复习课件4.pptx

1、2010年NCRE二级（VB）考前串讲,百度文库共享版 原作者：邵山欢 Email :,学习策略,NCRE对数组和过程的考察都非常浅。 在此部分，教材与NCRE严重脱节。看懂本PPT的所有内容即可，不要去钻研教材上更深的内容以及尝试去完成教材上高难度的习题。 珍爱生命，远离江苏。 需要你做适量的题目。 数组和过程伴随着选择、循环等进行考察，其自身并没有过多的知识点可言。需要里做适量的题目，提高遍历代码的正确率。,a1 = InputBox(请输入第1个成绩, 成绩录入) a2 = InputBox(请输入第2个成绩, 成绩录入) a3 = InputBox(请输入第3个成绩, 成绩录入) a2

2、9 = InputBox(请输入第29个成绩, 成绩录入) a30 = InputBox(请输入第30个成绩, 成绩录入),为提高效率而生,For i = 1 To 30 a(i) = InputBox(请输入第 Next j Print Next i,For i = 1 To 3 For j = 1 To 2 Print a(j,i); Next j Print Next i,数组必须先声明,Dim A(-2 To 2) As Integer,数组和普通变量不一样，必须先声明，后使用。 我们把确定长度的数组称为“定长数组”。下列对定长数组的声明合法：,Dim A%(-2 To 2),Dim

3、A(5) As String,Dim A$(5),a(-2) a(-1) a(0) a(1) a(2),a(-2) a(-1) a(0) a(1) a(2),a(0) a(1) a(2) a(3) a(4) a(5),a(0) a(1) a(2) a(3) a(4) a(5),数组必须先声明,Dim A(1 To 3, -2 to 1) As Integer,Dim A%(2 , 2 To 5),Dim A(2 , 3) As String,a(1,-2) a(1,-1) a(1,0) a(1,1) a(2,-2) a(2,-1) a(2,0) a(2,1) a(2,-2) a(2,-1) a

4、(2,0) a(2,1),a(0,2) a(0,3) a(0,4) a(0,5) a(1,2) a(1,3) a(1,4) a(1,5) a(2,2) a(2,3) a(2,4) a(2,5),a(0,0) a(0,1) a(0,2) a(0,3) a(1,0) a(1,1) a(1,2) a(1,3) a(2,0) a(2,1) a(2,2) a(2,3),Option Base 语句,Option Base 0,Option Base 1,当不采用 Dim a(X , Y , Z) 的形式定义数组时，决定一个维的下标是从0开始还是1开始(默认是0)。Option Base只有0、1两种参数

5、，写在窗体模块的通用声明区域。,UBound和LBound函数,Option Base 0,200,LBound(数组名,维数),UBound(数组名,维数),Dim b( 3 to 8 , 200 to 300 ,2 to 6),Print LBound(b,2),Print UBound(b,3),6,Array函数,Option Base 1,等价于,Dim b(1 to 6) b(1) = 1 b(2) = 2 b(3) = 3 b(4) = 4 b(5) = 5 b(6) = 6,b = Array(1, 2, 3, 4, 5, 6),Array函数用于对数组整体赋值。需要注意的是，

6、Array函数有定义数组的功能，只能对非数组变量进行Array函数赋值，Array函数将此变量依据参数个数定长的变为一维数组。,For Each In Next 语句,Option Base 1,For Each x In b Print x Next,b = Array(1, 2, 3, 4, 5, 6),For Each 成员 In 数组名 循环体 Next 成员,用来读取数组中的全部元素,For Each In Next 语句,Option Base 1,For Each x In b x=x+1 Print x Next,b = Array(1, 2, 3, 4, 5, 6),但是此时

7、，数组中的元素的值并没有改变。也就是a(1)=1,a(2)=2没变,动态数组,有些时候我们需要的数组的长度可能在程序当中发生变化，此时使用动态数组。,Option Base 1,Dim a(),ReDim a(4) For i = 1 To 4 a(i) = i 2 Next i,a(1)=1,a(2)=4,a(3)=9,a(4)=16,ReDim a(5),a(1)=0,a(2)=0,a(3)=0,a(4)=0,a(5)=0,ReDim函数归零所有元素,Preserve关键字,使用Preserve关键字后，Redim语句改变数组大小时保留数组中原有的数据。,Option Base 1,Dim

8、 a(),ReDim a(4) For i = 1 To 4 a(i) = i 2 Next i,a(1)=1,a(2)=4,a(3)=9,a(4)=16,ReDim Preserve a(5),a(1)=0,a(2)=0,a(3)=0,a(4)=0,a(5)=0,Preserve关键字使数组改变长度的时候原数据不归零,控件数组,Label1.Caption = 1 Label2.Caption = 2 Label9.Caption = 9,For i = 1 to 9 Label(i).Caption = i Next i,过程,每一个事件就叫做一个“事件过程”。,事件过程可以调用,Priv

9、ate Sub Form_Load() Text1.Text = 请在此输入姓名 Text2.Text = 请在此输入语文成绩 Text3.Text = 请在此输入数学成绩 Text4.Text = 请在此输入英语成绩 End Sub,Private Sub Command1_Click() Open App.Path & cj.txt For Append As #1 Write #1, Text1.Text, text12.Text, Text3.Text, Text4.Text Close Text1.Text = 请在此输入姓名 Text2.Text = 请在此输入语文成绩 Text3

10、.Text = 请在此输入数学成绩 Text4.Text = 请在此输入英语成绩 End Sub,Private Sub Command1_Click() Open App.Path & cj.txt For Append As #1 Write #1, Text1.Text, text12.Text, Text3.Text, Text4.Text Close Call Form_Load() End Sub,Sub子程序过程,记录断点,带值进入sub子过程,进行运算,返回断点之后,形参、实参及形实结合,实参,形参,要进行变量传递的参数必须先声明,形参、实参必须类型一样，数量一样多,Optio

11、nal关键字,实参,形参,要进行变量传递的参数必须先声明,形参、实参必须类型一样，数量一样多,Optional关键字,Private Sub proc1(a As Integer , b As String , Optional x As Boolean) End Sub,Call proc1(54 , “ABC” ),Sub子过程的调用,Private Sub proc1(a As Integer , b As String , Optional x As Boolean) End Sub,Call proc1(54 , “ABC” ),proc1 54 , “ABC”,子过程名 参数,Call 子过程名(参数),Sub子过程的调用,Private Sub proc1(a As Integer , b As String , Optional x As Boolean) End Sub,Call proc1(54 , “ABC” ),proc1 54 , “ABC”,子过程名 参数,Call 子过程名(参数),按值传递与按值传递,x、y的数值改变，使a、b的值也改变了。也就是说，a与x，b与y在共用同一个存储结点。按址传递,Private Sub Swap(ByRef X As Integer，ByRef Y As Integer),按值传递与按值