[工学]VB教程 第3章 Visual Basic 60编程基础.ppt

第3章 Visual Basic 6.0编程基础 本章将全面介绍Visual Basic 6.0编程基础，其主要内容有： 数据类型 常量和变量 变量的作用域 运算符和表达式 Visual Basic 基本控制结构 数组 3.1 数据类型 数据是程序的必要组成部分，也是程序处理的对象。 在高级语言中，程序处理的一切数据都有其确定的数据类型。数据的类型决定了该数据在计算机内的存储方式、取值范围以及它所能参与的运算类型。正确的区分和使用不同的数据类型，能使程序运行时节省内存，确保程序运行的正确性和可靠性。 Visual Basic的数据类型可以分为标准类型(基本类型)和复合类型(用户自定义类型)两大类。 3.1.1 标准类型（基本数据类型 ） （1）整型数 （2）实型数 实型数也称浮点数或实数，可分为单精度型和双精度型，是带有小数部分的数值。它由三部分组成： 符号、指数及尾数。单精度型和双精度型的指数分别用“E”(或“e”)和“D” (或“d”) 来表示。例如 ： 单精度型(Single) 3.3变量的作用域 Visual Basic的应用程序由窗体模块(Form)、标准模块(Module)和类模块(Class)三种模块构成。窗体模块包括 (General Procedure)和事件过程(Event Procedure)，标准模块由声明部分和通用过程组成。参见4.5.1节程序模块概述。 Private Sub Form_Click() D1 = Val(InputBox(请输入一个十进制数：)) D = D1 For M = 2 To 16 Print 将十进制数 D 转换为 M 进制数为：; Do ys = D Mod M 余数 Select Case ys Case 10 ys = A Case 11 ys = B Case 12 ys = C Case 13 ys = D Case 14 ys = E Case 15 ys = F End Select MJZ = ys MJZ 形成m(2~16)进制数 D = D \ M Loop While D 0 Print MJZ D = D1 MJZ = Next M End Sub 运行结果如图3-28所示。 3.5.4 其他控制语句 1．Goto语句　 除了以上介绍过的流程控制语句外，Visual Basic还保留了GoTo型控制语句，包括GoTo语句和On…GoTo语句。 在结构化程序设计中，不提倡使用GoTo语句。因为过多的滥用GoTo语句，不仅会影响程序质量，而且很容易造成程序的混乱和错误。尽管如此，大多数语言还是保留了Goto语句，以方便在某些情况下使用。 Goto语句的基本格式： Goto 行号|标号 说明： (1) 行号是一个以字母开头，以冒号(:)结尾且不区分大小写的标识符。行号是一个整型数，它不以冒号结尾。标号和行号作为标识要转向的目标位置时，都必须放在语句行的开始位置。 (2) Goto语句中指定的标号或行号，在程序中必须存在，并且是惟一的，否则，会出现错误。 (3) 在Visual Basic中，Goto语句只能在一个过程中使用，不允许跨过程跨结构使用。 (4) Goto语句和If语句配合使用，可以构成当型循环或直到型循环结构。其形式如下： 形式1(当型循环)： If 条件 Then Goto LOOP2 语句块 LOOP2 形式2(直到型循环)： LOOP1 语句块 If 条件 Then Goto LOOP1 注意：当Goto语句跟在Then之后时，Goto和Then两者可以保留其一。 例3-25 求S=1+2+3+…+100 本题用直到型循环编写，程序如下： Private Sub Form_Click() Dim s%, i% S=1 I=2 Loop1: S=S+I I=I+1 IF I=100 Then Goto LOOP1 Print S=;S End Sub 用当型循环编写的程序由读者自己完成 2. On…GoTo语句 GoTo型控制中还有一条语句就是On…GoTo语句，它类似于情况语句，也可用来实现多分支选择控制，其格式如下： On 数值表达式 Goto 行号|标号 Goto后面行号或标号可以有多个，它们之间用逗号分隔。 其执行过程是：首先计算“数值表达式”的值，如果不是整数，系统自动将其四舍五入成整数。然后，该表达式的值是几，就转移到Goto之后第几个行号或标号所在的语句上去执行。如果该表达式的值等于0或大于Goto后面行号或标