vb第8章 全部教案.doc

《vb第8章 全部教案.doc》由会员分享，可在线阅读，更多相关《vb第8章 全部教案.doc（22页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、第八章 数组一、 引入课题例输入100个学生的成绩，一起正序输出显示，换行后再一起反序输出。思路：为了将输入的100个学生的成绩，先一起正序输出显示，换行后再一起反序输出显示。就必须将这100个成绩一个一个保存起来，显示完一次后，才能再显示一次。不保存起来，就无法再显示。问题：如何将这100个成绩一个一个保存起来？基本方法：可以设立一个一个的变量，将这些成绩按顺序赋值给这些变量，就等于保存起来了。只要保存起来，就可以随意正序、反序输出显示了。问题：要设立几个变量才够呢？100个成绩就需要100个变量，如何设立100个变量呢？容易想到：用x1, x2, x3, , x100？但是如何对x1, x

2、2, x3, , x100输入、输出呢？输入100个变量，重复输入100次，必须用循环！循环体如何写呢？是否可以写成：For i=1 To 100 xi=InputBox( 请输入成绩X ) Next i不可以！ xi只能代表一个变量，它不会随着I的变化，自动变成x1, x2, x3, , x100，即xi不可能代表100个变量。即使输入100个成绩，最后xi只留下一个。那么应该怎么办呢？能不能将x与i分离，而且实现x不动，但i确实会随着 For i 的变化而变化呢？可以！方法：VB的分离方法是x ( i )象x ( i ) 这样的变量称为“数组”（即一组数）。当 i = 1100变化时，x

3、( i ) 也跟着一起变化为 x(1)、x(2)、x(3)、x(100)，产生100个变量。于是，输入100个成绩可以这样解决：For i=1 To 100 X ( i ) = InputBox( 请输入成绩X ) Next iVB中象x ( i ) 这样的变量称为“数组”。前面学的Integer、Long、Single、Double、String、Date、Boolean等都是VB的基本数据类型，可以处理少量的单个数据，称为简单变量。但无法处理大批量的数据。为了处理大批量的数据，VB提供了数组。 1. 数组的作用 数组通常和循环一起使用可以大大减少编程的复杂性，有些算法不用数组就无法实现。例

4、1：输入10名学生的成绩，并将它们的成绩打印到窗体上。Private Sub Form_click()For i=1 To 10 x(i) = InputBox( 请输入成绩X ) Next iFor i=1 To 10 print x(i) ;Next i End Sub2. 数组的概念 数组是一批数据或控件的集合。 数组：由一定数目的同类元素按一定顺序排列而成的结构类型数据，是一组具有同一名字、不同下标的下标变量。 一般格式： s(n) 其中：s称为数组名，n是下标 一个数组可以含有若干个下标变量（或称数组元素），下标用来指出某个数组元素在数组中的位置。如s(3)代表s数组中的下标为3的元

5、素。例如，定义一个integer型数组a(10)，它包含11个同类型的变量：a(0),a(1),a(10) Variant型数组则可以存放不同类型的数据3.数组元素和数组的维数 数组的成员称为数组元素，其名称与数组名相同，其下标表示该元素在数组中的位置。因此，数组元素也称下标变量。 数组的维数表示数组元素需要几个下标才能正确表示其在数组中的位置，它代表数组的逻辑结构，最多60维。 一维数组的逻辑结构是线性的，只用一个下标表示各个元素在数组中的位置 例 a(10):含11个元素的一维数组 a(0),a(1),a(2),a(3),a(4),a(5),a(6),a(7),a(8),a(9),a(10

6、) 二维数组的逻辑结构是一个二维表，用两个下标表示各个元素在数组中的位置：第一个下标表示行，第二个下标表示列。 例 b(2,3):含三行四列共12个元素的二维数组 b(0,0) b(0,1) b(0,2) b(0,3) b(1,0) b(1,1) b(1,2) b(1,3) b(2,0) b(2,1) b(2,2) b(2,3) 4.数组的存储结构 数组在内存中占用一片连续的存储单元。 一维数组的存储结构与逻辑结构相同，即各个元素按下标顺序依次存放； 二维数组的存储结构是按行的顺序存储各个元素。例如，数组b(2,3)的存储形式为： b(0,0) b(0,1) b(0,2) b(0,3) b(1

7、,0) b(1,1) b(1,2) b(1,3) b(2,0) b(2,1) b(2,2) b(2,3) 三维数组是由若干个二维数组组成的，其存储结构是按顺序存储各个二维数组。例如，数组c(1,2,1)的存储形式为： c(0,0,0) c(0,1,0) c(0,2,0) c(1,0,0) c(1,1,0) c(1,2,0) c(0,0,1) c(0,1,1) c(0,2,1) c(1,0, 1) c(1,1,1) c(1,2,1)说明：（1）数组是一些具有相同类型的数据的有序集合。所谓“有序”是指数组中的每个元素按照一定的顺序排列在一起。如：x(1)、x(2)、x(3)、x(100) 就是数组

8、x的100个元素，按1100的编号顺序排列。（2）同一数组中的每个元素有统一的名称（变量名）。同一数组中的元素一般都是同一类型的数据。VB允许同一数组中的元素包含不同类型的数据。如：x(1)、x(2)、x(3)、x(100) 都是Single型，它们统一的变量名是x，x也叫数组名。（3）数组用不同的序号来区别各个不同的元素。数组的序号称为“下标”。下标用来指出某个元素在数组中的排列位置。如：x(8) 中的8就是下标，x(8) 代表数组x中的第8个元素。x(8) 不能写成x8或x8。（4）下标的形式可以是常量、变量、计算式。如：x(99)、y(i)、Sum (a+b)。（5）数组可以拥有多个下标

9、。具有一个下标的数组叫一维数组，具有两个下标的数组叫二维数组。如：x ( I ) 是一维数组，s ( x , y ) 是二维数组。（6）数组的操作一般与循环同时使用。如上例。（7）数组必须先定义，后使用。如上例。一、引入 要使用数组，应当先定义数组。定义数组的作用：通知计算机为数组留出所需的内存空间，准备存放数据。数组的定义方式； Dim：用在窗体模块或标准模块及过程中，定义窗体或标准模块级数组； ReDim：用来重新定义动态数组； Static：用来说明该数组为静态数组； Global(Public)：用在全局模块中(标准模块)中，说明数组为全局的；在这里我们可以和前面第4章的变量的作用域进

10、行比较学习。名称作用域声明位置使用语句局部变量过程过程中Dim或Static模块变量窗体模块或标准模块模块的声明部分Dim或Pravite全局变量整个应用程序标准模块的声明部分Public或Global 二、新课这里先介绍最常用的Dim方法。有2种格式：1格式一一维数组 Dim 数组名(下标上界) As 类型下标上界为常数、已有值的表达式或变量。下标下界为0。一维数组的大小为：下标上界+1。例：Dim mark(99) As Integer mark(i)mark(1)mark(2)mark(99)mark(100)声明了一维定长整型数组mark ，共有100个元素，下标范围为0 To 99；

11、mark数组的各元素是mark(0)，mark(1)，mark(99)；mark(i)表示由下标i的值决定是哪一个元素。mark数组内存分配如下：每个数组元素有一个唯一的顺序号，下标不能超出数组声明时的上、下界范围，否则会产生“索引超出了数组界限”错误 。数组元素的使用规则与同类型的简单变量相同二维数组声明 Dim 数组名(下标1，下标2) As 类型下标数决定了数组的维数，每一维的大小=上界+1；数组的大小为每一维大小的乘积。例 Dim x(2,4) As Long声明了一个长整型的二维数组 x；共占据35个长整型变量的空间例如：Dim Age(20) As Integer定义一维数组Age

12、，最大下标20Dim Test(2, 3) As Double定义二维数组Test，2个下标最大分别为2、3注意：（1） 问题：数组定义后下标是从什么开始的？如Age(20) 的元素有几个：Age(?), Age(?),Age(?)。问题：能不能使用元素Age(-1)、Age(21) ?Test(2, 3) 的元素有几个？是哪几个？（2）定义数组时As后可以是任何的基本类型。（初值：数值0；字符空串；布尔False）问题：能不能省略“As类型”。如： Dim Sum(50) 此时定义的数组Sum(50)是什么类型？（3）演示程序Private Sub Form_click()Dim s(10)

13、 As IntegerFor i = 0 To 10 S(i)=2*iPrint s(; i ;)= ; s(i)Next iEnd Sub问题：l 程序中的Dim s(10)，它有哪几个元素？l 下标能否改成从1开始（以符合使用习惯）？l 要改怎么改？这个语句放在哪里？（用Option base 语句设置 ，且只能出现在窗体层或模块层，不能出现在过程中，并且必须放在数组定义之前。）l 改成从1开始后Dim s(10) 的元素有哪几个？还有没有s(0) 这个元素？l 不改行不行？比如Dim s(10)，不改下标从1开始，仍然从0开始，直接使用s(1)s(10)，会不会有问题？l 数组S(10)

14、 的下标能不能改成从2开始？用第一种定义格式不行，第二种定义格式可以：2格式二一维数组 一个数组若只有一个下标就能确定一个数组元素的数组中的位置，则称为一维数组； 定义形式： Dim 数组名(下标下界 To 下标上界 ) As 类型名称如：Dim a(1 to10) as integer Dim s(2 To 10) 下标从2开始到10 Dim x(-2 To 3) 此时有哪几个元素？ Dim P(1990 To 2002) 此时有哪几个元素？二维数组 由具有两个或多个下标变量所组成的数组称为二维或多维数组。定义形式： Dim 数组名(第一维下标下界 To 第一维下标上界， 第二维下标下界 T

15、o 第二维下标界 ) As 类型名称 如：Dim a(1 to10，3 To 20 ) as String第二种格式比较灵活。定义数组的讨论：（1）定义数组Dim x(10) 时，括号内一般是常数，能不能是变量？不行！即使变量是有数值的也不行。即：x(n)、Sum(a To b) 这样定义对不对？问题：数组定义后，使用时下标可否用变量？演示：上面的程序改为：n=10Dim s(n) As Integer运行后提示s(n)“要求常数表达式”，即使改为s(5+5) 都可以，就是不能用变量。注意：数组定义后，程序后面可以使用s(i)=2*I。讨论：定义数组时Dim s(10) 非要用变量Dim s(

16、n) 行不行？可以！但Dim必须改成ReDim（重定义）或将数组定义成“动态数组”。演示：上面的程序改为：n=10ReDim s(n) As Integer运行后是正常的。（2）Dim x(10) 后省略As Integer，但又要把x(10)定义为整数，能不能用类型符号代替？类型符号应该放在Dim x(10) 的什么位置？A) Dim x(10)% B) Dim x(10%)C) Dim x%(10) D) Dim% x(10)说明： 格式中的数组名的命名与简单变量名相同，可以是任意合法的变量名 类型名称可以是任何VB所定义的合法类型，包括基本类型和用户自 定义类型； 格式 中部分为可选部分

17、，若省略，则下标下界默认为0，或通过下 面方式定义下标下界的默认值：Option Base n 其中：n只能为0或1；Option只能出现在窗体层或模块层，且该定 义必须在数组定义之前完成，若是多维数组则对每一维都有效。例如： Option Base 1 设置下标默认为1 Dim a(5) as integer a数组的各元素下标取值为：15 Dim x(3,2) as single x数组的第一维下标取值：13，第二 维下标取值：12 数组必须先定义后使用，未定义不能使用，下标为整型常量； 当用Dim语句定义数组时，该语句把数组元素初始化为0或空字符串； 同一过程中，数组名不能与其他数组名或

18、变量名相同； 数组声明中的下标不能是变量，只能是常量；确定数组的上下界值的函数： LBound函数和UBound函数LBound函数返回数组某维的下界（最小下标）。用法：LBound(数组名，维值)UBound函数返回数组某维的上界（最大下标）。用法：UBound(数组名，维值)（1）对于一维数组，在使用这两个函数时，可以省略维值。例如：Dim r(10) As IntegerPrint LBound(r), Ubound(r) 运行的结果会输出0和10两个数（2）对于多维数组，在使用这两个函数时，要指定维值从而说明是要获取哪一维的下界或上界。例如：Option Base 1Dim a(0 T

19、o 9,5)Private Sub Form_Click()Print UBound(a,2) 打印第二维的上界，5Print LBound(a,1) 打印第一维的下界，0Print LBound(a,2) 打印第二维的下界，1End Sub（3）也可以通过使用这两个函数获得数组某一维的大小。例如：Dim b(9,1 To 5)m = UBound(b,1) Lbound(b,1) + 1 获得第一维的大小：10n = UBound(b,2) Lbound(b,2) + 1 获得第二维的大小：5s = m * n 计算数组的大小：50例：随机产生20个10100之间的整数，求它们的积。Dim

20、a(1 to 20) as Integersum=1For i=1 to 20a(i)=int(RND*(100-10+1)+10)next iFor i=1 to 20sum=sum*a(i)next Iprint “sum=”;sum一、引入若我们用Dim x(10000) 定义数组以后，即使程序不运行，计算机也要为数组x(10000) 保留10000个元素的内存空间。这会造成内存资源的极大浪费。讨论：能不能实现程序不运行，数组x(10000) 就不占用内存？程序运行时才为数组开辟内存空间？可以！但需把数组定义成“动态数组”！什么是“动态数组”？一般数组又叫什么？这就是我们这一次所要学习的

21、内容。二、新课1、静态数组与动态数组的区别在VB中，根据数组元素的个数能否变化，数组分为静态数组和动态数组。静态数组：数组元素的个数固定不变。动态数组：数组元素的个数在运行时可以改变。 使用动态数组就可以在任何时候改变其大小，并且可以在不需要时清除动态数组所占的存储空间。因此，使用动态数组更加灵活、方便，并有助于高效管理内存。动态数组：程序在运行时才为它开辟内存空间的数组就叫“动态数组”。静态数组：程序在编译时（未运行）就为它开辟内存空间的数组就叫“静态数组”。前面定义的都是“静态数组”。2、动态数组的定义（1）静态数组：在声明时就确定其大小的数组。静态数组是用数值常量或符号常量作为下标定维的

22、。 静态数组在计算机内存中运行： 静态数组在编译阶段给数组分配内存空间，即静态数组没有运行时已有了相应的内存区间，故在定义静态数组时要求在编译阶段就知道该数组的元素个数。 静态数组元素的值在定义该数组的运行后，该数组所拥有的内存空间不释放，变量的值仍在内存中，再次运行时，将上次运行的结果作为该变量的初始值，只有当整个应用程序退出后，所占内存才会被释放。 静态数组定义方法： 在全局模块中使用Global语句定义； 在窗体或模块级用Dim定义； 静态定义：在过程中用Static语句定义；或用Static定义过程，而在过 程中使用Dim语句定义数组。 例1静态数组与非静态数组的对比Static a(

23、4) As Integer 定义静态数组a Static start As Integer 定义静态变量 Dim b(4) As Integer 定义非静态数组b Dim i As Integer If start = 0 Then Print 静态数组：, , 非静态数组： End If For i = 0 To 4 a(i) = a(i) + i 赋值给静态数组a b(i) = b(i) + i 赋值给非静态数组b Next For i = 0 To 4 Print a(i); Next Print , For i = 0 To 4 Print b(i); Next Print start

24、 = 1（2）动态数组动态数组在定义时并不知道数组的大小，要在运行期确定，并根据需要在运行期可改变数组的大小。 动态数组的定义过程： 在窗体、标准模块和过程中用Dim或Public声明一个没有下标的数组 (括号不能省略)； 如：dim a( ) as integer 数组重定义。在过程中需要使用该数组前，用Redim语句定义数组的 大小(数组元素个数)，下标可为常量、变量或表达式，但变量或 表达式此时必须有值。 如：Redim a(4) 动态数组定义格式： Dim 数组名( ) As 类型名 定义数组名 Redim Preserve 变量名 (下标) 重定义数组大小 在重定义时，按下标说明的上

25、、下界重新分配内存存储单元。当重新定义 动态数组时，数组的内容将被清除； 若在Redim语句中使用了Preserve选项，则不清除数组中的内容，但使 用“Preserve”只能改变最后一维的大小， 前面几维的大小不能改变。 使用动态数组时应注意以下几点： 使用动态数组可重新定义数组的大小和维数，但不能改变数组的类型： Dim a( ) as integer Redim a(4) Redim a(3,2) Redim a(6) a(1)=“Visual Basic” 此句有错误，试图改变数组的类型 建立局部动态数组时，可省略Dim语句，由Redim语句直接定义数组。 使用Dim时，所定义数组的维

26、数不超过8维，直接使用Redim定义数组， 维数可达到60维。 在同一过程中，可多次使用Redim语句定义同一个数组，以改变数组的 大小和维数；3、数组的清除和重定义要清除数组的内容或对数组重新定义，这可以用Erase语句来实现。其格式如下：Erase ,， 注意，在Erase语句中，只给出要刷新的数组名，不带括号和下标。例如： Erase Test几点说明：(1)当把Erase语句用于静态数组时，则清空数组元素的值(2)当把Erase语句用于动态数组时，则删除数组(3)当把Erase语句用于变体数组时，则每个元素重置为空(4) Erase释放动态数组所使用的内存。例2：ReDim语句应用示例

27、Private Sub Form_Load() Dim a() As Integer 声明一个整型动态数组 Show ReDim a(800) 用ReDim语句重新定义 k = 0 For x = 100 To 600 Step 7 If x Mod 8 = 0 Then k = k + 1 a(k) = x End If Next x ReDim Preserve a(k) Preserve 能保留数组中原有的数据 For i = 1 To k Print a(i) Next iEnd Sub例3：请编程，输出杨辉三角形，其一般形式如下：11 11 2 11 3 3 11 4 6 4 11

28、5 10 10 5 1为了输出杨辉三角形，首先找到形成上述矩阵的规律：对角线和每行的第1列均为1，其余各项是它的上一行中前一个元素和上一行的同一列元素之和；从而可以得出形成矩阵数据的一般规律：a(i,j)=a(i-1,j-1)+a(i-1,j)。1. 控件及属性表 表8-2控件及属性表控件名称(Name)属性文本框Label1Caption=”杨辉三角形”图片框Picture1按钮Command1Caption=”显示”2设计界面 3代码Option Base 1Dim a%()显示按钮代码Private Sub Command1_Click() Dim m% m = Val(InputBox

29、(请输入要显示杨辉三角形的级数m(小于等于14的正整数), 获取显示级数, 6) If (m 14) Then MsgBox 请输入大于等于3小于等于14的整数,64,”杨辉三角形” Exit Sub End If ReDim a(m, m) Picture1.Cls For i = 1 To m a(i, 1) = 1: a(i, i) = 1 Next i For i = 3 To m For j = 2 To i - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j Next i Dim n%, k% n = 42 For i = 1 To

30、 m Picture1.Print Tab(n); k = n For j = 1 To i Picture1.Print Tab(k); Picture1.Print a(i, j); k = k + 6 Next j Picture1.Print n = n - 3 Next iEnd Sub一、引入建立一个数组之后，可以对数组或数组元素进行操作。数组的基本操作包括输入、输出及复制，这些操作都是对数组元素进行的。二、新课1.数组的引用数组的引用通常是指对数组元素的引用，其方法是，在数组后面的括号中指定下标，例如： x(8)，y(2,3)，z%(3)要注意区分数组定义和数组元素！在引用数组时

31、，应注意以下几点：（1）在引用数组元素时，数组名、类型和维数必须与定义数组时一致。（2）如果建立的是二维或多维数组，则在引用时必须给出两个或多个下标。（3）引用数组元素时，其下标值应在建立数组时所指定的范围内。 2、数组元素的赋值(1)静态数组只能对数组元素逐一赋值，不能用数组名整体赋值 Dim a(4) As Integer For i = 0 To 4 a(i)=10 a数组的每个元素值为10 Next I是允许的。 a=(1,2,3,4,5) 是不允许的。(2)变体型动态数组可以用Array函数定界和整体赋值 Dim a As Variant, b() As variant, i% a=

32、Array(1,2,3,4,5) b=Array(“abc”,”derf”,67，True) For i=Lbound(a) To Ubound(a) Picture1.Print a(i) Next i For i=Lbound(b) To Ubound(b) Picture1.Print b(i) Next I 其中，Lbound()和Ubound()用来确定数组的下界和上界(3)动态数组也可以用同类型的静态数组整体赋值 Dim a(4) As Integer, b() As Integer a(0)=1:a(1)=3:a(2)=5:a(3)=-8:a(4)=7 b=a 将数组a整体赋给数

33、组b，b为动态数组 其中， b=a相当于 For i=Lbound(a) To Ubound(a) b(i)=a(i) Next i3.数组元素的输入a) 对于数组元素较少的数组，可通过单个赋值语句进行输入操作；b) 对于数组元素较多的数组，一般通过For语句和InputBox函数输入。 Option Base 1 默认下标下界为1 dim b(2,3) as single for i=1 to 2 for i=1 to 3 b(i,j)=inputbox(“输入b(” & i & “,” & j & ”)的值”) next next c) 对数组元素的的赋值和使用，可将数组看作简单变量，任何

34、简单变量能使用和出现的地方，数组元素均可出现。使用数组时要注意下标不能出界；使用多维数组时，下标之间用逗号隔开； Dim a(10) as integer，b(2,4) as long a(16)=100 错误，下标出界 b(1,4)=a(6)*5 使用b数组的一个元素 4、数组元素的输出数组的输出同样是以数组元素为操作对象，可通过Print方法来实现。例1：从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第1个元素与第10个元素互换，第2个元素与第9个元素互换第5个元素与第6个元素互换。分别输出数组原来各元素的值和对换后各元素的值。 OptionBase

35、1 PrivateSubForm_Click() arr=Array(1,2,3,4,5,6,7,8,9,10) Print原来数组： Fori=1To10 Printarr(i); Nexti Print Fori=1To5 Forj=6To10 t=arr(i) ：arr(i)=arr(j) ：arr(j)=t Nextj Nexti Print对换后数组： Fori=1To10 Printarr(i); Nexti EndSub 5、数组元素的复制 单个数组可以像简单变量一样，从一个数组复制到另一个数组。 Dim b(4,8),a(6,5) 数组定义 b(2,3)=a(3,2) 数组复制

36、 二维数组中的元素也可以复制给另一个二维数组中的某个元素，也可以复制给一个一维数组中的某个元素，并且反之亦然。 Dim a(8),b(3,2) a(3)=b(1,2): b(3,2)=a(7) 为了复制整个数组，仍要使用For循环语句。 option base 1 dim name1( ),name2( ) redim name1(10),name2(10) for i=1 to10 给name1的10个元素赋值 name1(i)=inputbox(“请输入姓名：”) next for i=1 to 10 利用For循环将name1的数据复制给name2 name2(i)=name1(i) n

37、ext例2： 设有如下两组数据。 （1）2，8，7，6，4，28，70，25 （2）79，27，32，41，57，66，78，80 编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即2+79，8+27，2580，并把相应的结果放入第三个数组中，最后输出第三个数组的值。 程序如下：Option Base 1 Private Sub Form_Click() Dim A, B, C(8) As Integer A = Array(2, 8, 7, 6, 4, 28, 70, 25) B = Array(79, 27, 32, 41, 57, 66, 78, 80

38、) For i = 1 To 8 C(i) = A(i) + B(i) Next i Print 第一个数组为：; For i = 1 To 8 Print A(i); Next i Print Print 第二个数组为：; For i = 1 To 8 Print B(i); Next i Print Print 第三个数组为：; For i = 1 To 8 Print C(i); Next i Print End Sub例3：随机产生10个70-99之间的整数，输出其中的最大数和最小数。提示：1、先定义一个有10数组元素的整型数组。2、运用for循环给每一个数组元素赋上70-99之间的随

39、机数。程序代码：Dim max%,min%Max=a(1)Min=a(1)For i=2 to 10 If maxa(i) thenMin=a(I) End if Next IPrint “最大数”;max，”最小数”;min例4：用随机函数产生100个0，99范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。提示：用数组a(1 to 100)存放产生的确100个随机整数，数组x(1 to 10)来存放个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数。即个位是1的个数存放在x(1)中，个位是2的个数存放在x(2)中，个位是0的个数存放在x(10)。将程序代码如下：Public Sub Form_Click()