VisualBasic语言基础

《VisualBasic语言基础》由会员分享，可在线阅读，更多相关《VisualBasic语言基础（69页珍藏版）》请在金锄头文库上搜索。

1、第2章 Visual Basic语言基础q2.1 Visual Basic的基本数据类型q2.2 常量与变量q2.3 Visual Basic中的运算符和运算表达式q2.4 Visual Basic程序书写规则q2.5 Visual Basic的常用内部函数q2.6 Visual Basic的基本输入输出语句q2.7 Visual Basic的基本控制结构q2.8 数组q2.9 程序举例XiaoBo in 2005, Department of Computer Science se;Next jPicture1.PrintNext i思考：打印上三角或下三角程序如何改 动？要打印下三角?Xi

2、aoBo in 2005, Department of Computer Science & Technology of AUST. 例8：求100以内素数。素数是一个大于2，且不能被1和本身以外的整数 整除的整数。 判别某数m是否为素数最简单的方法是:对于m 从 i=2，3，m-1判别m能否被i整除， 只要有一个能整除，m不是素数，否则m是素数。For m = 2 To 100 For i = 2 To m - 1If(m Mod i)=0 Then GoTo N1Next iPrint m N1: Next m思考： 此例用Go To语句对非素 数不作判断，若不用 GoTo语句，如何修改程

3、 序？ XiaoBo in 2005, Department of Computer Science & Technology of AUST. 几种循环语句比较:XiaoBo in 2005, Department of Computer Science & Technology of AUST. 其他辅助控制语句: 1.Go To 语句形式:Go To 标号|行号作用:无条件地转移到标号或行号指定的 那行语句，标号是一个字符序列,行号是 一个数字序列.2.Exit语句形式:Exit For、Exit Do、Exit Sub、 Exit Function等。 作用:退出某种控制结构的执行。X

4、iaoBo in 2005, Department of Computer Science & Technology of AUST. 3.End语句形式：End 功能：结束一个程序的运行。 在Visual Basic中还有多种形式的End语句，用 于结束一个程序块或过程。 其形式有： End IfEnd SelectEnd TypeEnd WithEnd SubEnd Function等 它们与对应的语句配对使用。XiaoBo in 2005, Department of Computer Science & Technology of AUST. 常见错误1.不循环或死循环的问题：主要是循

5、环条件、 循环初值、循环终值、循环步长的设置有问题 。2.循环结构中缺少配对的结束语句：For缺少配 对的Next。 3.循环嵌套时,内外循环交叉。4.累加、连乘时，存放累加、连乘结果的变量 赋初值问题：在一重循环中,存放累加、连乘结 果的变量初值设置应在循环语句前；在多重循 环中要视具体问题分别对待。XiaoBo in 2005, Department of Computer Science & Technology of AUST. 2.8 数组2.8.1 数组的基本概念（1）数组、数组元素n数组是用一个统一的名字，不同下标表 示的、顺序排列的一组变量。n数组中的成员（变量）称为数组元素。

6、 数组元素通过不同的下标区分。因此， 数组元素又称为下标变量。XiaoBo in 2005, Department of Computer Science & Technology of AUST. （2）数组的类型n可以声明任何基本数据类型的数组，一 般数组的所有元素应是相同数据类型。nVariant数组的元素数据类型可不同。 （3）数组的维数：就是数组中的下标个数 。（4）数组的形式：静态数组和动态数组。n静态数组中的数组元素个数一旦定义好 后，在程序运行过程中不再会发生变化n动态数组的元素个数则是可变的。XiaoBo in 2005, Department of Computer Sci

7、ence & Technology of AUST. 2.8.2 静态数组1. 数组的声明n一般，数组使用前应先声明，就是指明数 组名、维数、类型和数组元素的个数。数 组的维数最多可以是60维。n语法格式是：Dim 数组名( ) As n指定维数和各维的范围，形 式： To , To XiaoBo in 2005, Department of Computer Science & Technology of AUST. 2.8.2 静态数组n如果不指定，则数组的下界由 Option Base语句控制。 Option Base语句的 参数只能是0或1，必须放在数组说明语句之前 ，且一个模块只能出

8、现一次该语句。如： Option Base 1 Dim B(10) As Integern如果没有使用Option Base语句，则数据的默 认下界是0。如：Dim A(10) As Integern用关键字To来显式指明下标的下界，此时 Option Base语句不再起作用。如： Dim C( 5 To 10) As Integer Dim D(-10 To 10) As LXiaoBo in 2005, Department of Computer Science & Technology of AUST. 2.8.2 静态数组2. 多维数组的声明：nDim F(9, 9) As Sing

9、lenDim M(1 To 10, 1 To 10)nDim N(3, 1 To 10, 5 To 10) 3. 在声明数组时，下标必须是常量，不能是变 量。而在引用数组元素时下标可以是常数、 变量或表达式。n下一条数组说明语句是非法的：Dim s(n) as Long n程序运行时 将显示错误信息XiaoBo in 2005, Department of Computer Science & Technology of AUST. 2.8.2 静态数组4. 在数组声明语句中的下标用于确定数组 每一维的大小，是数组的说明符；而程序 中其它语句中出现的下标是用于确定某一 个具体的数组元素，请注意

10、区别它们的不 同。如：Dim x(10) Integer 下标10用于说明数组x有11个元素x(10) = 5 下标10用来指定数组x中的第11个元素5. 静态数组在编译时，系统将根据说明语 句来开辟固定的存储空间，在整个运行过 程中不再改变。XiaoBo in 2005, Department of Computer Science & Technology of AUST. 2.8.3数组的使用例 2-19 随机产生10 个小于100的整数，找 出其最大值、最小值和 平均值。例 2-20 利用冒泡法 ，编程将一组无序的数 据按从大到小的顺序排 列。XiaoBo in 2005, Depar

11、tment of Computer Science & Technology of AUST. 2.8.4 动态数组n创建动态数组的步骤是： 1.用Public、Private、Dim或Static语句 声明一个没有下标的数组，数组名的括号 不能省略。 2.使用前，须用Redim语句确定数组实际 元素个数ReDim Preserve 数组名() As n Redim语句中的中的下标 可以是常量，也可以是有了确定值的变 量或表达式。XiaoBo in 2005, Department of Computer Science & Technology of AUST. 2.8.4 动态数组n数据类

12、型若不省略，则须与Dim语句 中声明的类型一致。n可用Erase语句删除数组。例如：Dim A() As Long Erase A 数组A被清除，不再存 在 n可多次使用Redim语句，但不容许改 变数组的数据类型。XiaoBo in 2005, Department of Computer Science & Technology of AUST. 2.8.4 动态数组n使用ReDim语句会使数组中原有的数据 丢失，若要保，须在语句中加Preserve 参数。使用Preserve参数后，只能改变 数组最后一维的大小。例如： ReDim X(10, 10, 10) ReDim Preserve

13、 X(10, 10, 20) 上面的语句可以保留动态数组X中元素 原有的值。n例 2-21 编程，输出杨辉三角形。XiaoBo in 2005, Department of Computer Science & Technology of AUST. 2.8.5 几个与数组有关的函数1）Array函数：用来为数组元素赋初值。语 法： 数组名 = Array（数组元素值）n赋值时，声明的数组类型必须是Variant。n数组的下标下界默认为0，也可通过Option Base语句决定；上界由Array函数括号内参 数的个数决定，也可以通过Ubound函数获 得。 A = Array(1, 3, 5,

14、 7, 9) B = Array(“Monday“, “Tuesday“, “Wednesday“)XiaoBo in 2005, Department of Computer Science & Technology of AUST. 2.8.5 几个与数组有关的函数2）UBound函数和LBound函数：n分别用于测试数组某一维可用的最大下 标和最小下标的值。n例如： Dim A(1 To 10, 5 To 15, 10 To 20) Dim B(10) 声明数组变量 Upper = UBound(A, 1) 返回 10 Upper = UBound(A, 3) 返回 20 Upper = UBound(B) 返回 10 Lower = LBound(A, 1) 返回 1 Lower = LBound(A, 3) 返回 XiaoBo in 2005, Department of Computer