常量、变量、函数与表达式.doc

常量、变量、函数与表达式 常量常量(constant)是指在程序运行过程中保持不变的量，在 Visual Basic中，常量一般分为数值常量与字符串常量两种。 数值常量数值常量就是数学中说的常数，数值常量有整型常量和实型常量两种。整型常量即整数，是指不带小数的数值，如1、0、-10、+107等都是合法的整数。实型常量即实数，是指带小数的数值。实型常量又分为定点数和浮点数两种。定点数：3.14159 ，-6.8，1.997浮点数：2e6、1e5、88E-18浮点数对应的就是数学上的科学计数法，以幂数形式表示一个实数，例如1234.56可以表示为1.23456103 。由于程序中无法表示上标和下标，因此用英文字母E（或e）表示底数10，则1.23456103可表示为1.23456E3。 字符串常量被一对双引号括起来的若干个合法的字符称为字符串常量。例如china、Visual Basic、18、3.14等。字符串常量指的是双引号中的字符，不包括双引号本身。 符号常量如果程序中多次用到同一个常量，则可以用一个有意义的名字表示这个常量，称为符号常量，代表常量的符号称为常量名,常量名的命名方法与后面的变量名一样。例如，求圆的周长和面积的程序代码：Let r=5Let s=3.14159*r*rLet c=2*3.14159*rPrint s=;s, c=;c可以先用Const语句定义一个符号常量pi代替3.14159，形式如下：Const 常量名 As 类型=表达式则可以写出如下的程序代码：Const pi As Single=3.14159Let r=5Let s=pi*r*rLet c=2*pi*rPrint s=;s, c=;c当常量需要改动时，仅需改动符号常量定义语句。而且使用符号常量可以增强程序的可读性，使人容易理解符号常量的实际含义。 变量在程序执行过程中，其值可以改变的量称为变量(variable)，例如：Let a=4Let a=6Let a=3.14a先后有三个值，也就是说a的值是可以变化的。每个变量都应该有一个名字，即变量名。Visual Basic变量名必须以字母开头，由字母、数字或下划线组成，变量名最长不超过255个字符。但不能以VB的保留字作为变量名，如语句字义符、函数名等，a、i、x1、age、num等均为合法的变量名，而1x、sin、let则是非法的变量名。另外，变量名要有意义，如用age表示年龄，sum表示总和等等。变量是用来存储数据的，数据分为不同的类型，相应的变量也有以下几种：变量在使用之前应用Dim语句定义其变量名及数据类型，Dim语句格式为：Dim 变量名 As 数据类型相应的类型名为：整数（Integer）、实数（Single）、字符串型（String）。例如：Dim i As IntegerDim sum As SingleDim name As String以上三个语句分别将i、sum、name定义为整型、实型和字符串型变量。当然，也可以在一行中定义多个变量，如上述三个变量可如下定义：Dim i As Integer, sum As Single, name As String如例6-3-1所示，在所有事件过程前定义的变量，可在该窗体的所有事件过程中使用，称为窗体级变量。也可以在事件过程中定义变量，此处的变量称为局部变量，只能在事件过程中使用。 常用内部函数VB提供了大量的内部函数(function)，内部函数按其功能可分为数学函数、转换函数、字符串函数、日期函数、格式输出函数等。在使用时只需写出它们的名字（即函数名）和自变量名就可以调用，如要计算x-y的绝对值，可写为Abs(x-y)。VB常用函数功能Abs(x) 求x的绝对值|x|Int(x) 求x的最大整数Sqr(x) 求x 的算术平方根，x0Log(x) 求x的自然对数lnx，x0Rnd 产生0，1）之间的随机数Exp(x) 求以e为底的指数函数Sgn(x) 求x的符号，x0，返回1；x=0，返回0；x0，返回-1Sin(x) 求x的正弦值，x的单位为弧度Cos(x) 求x的余弦值，x的单位为弧度Tan(x) 求x的正切值，x的单位为弧度Str(x) 将数值x转换为字符串Val(s) 将数字字符串s转换为数值【例6-4-1】取整函数的用法Int(4.1)=4 Int(-4.1)=-5Int(5.3+0.5)=5 Int(3.6+0.5)=4【例6-4-2】三角函数的使用三角函数自变量的单位是弧度而不是角度。sin45在VB中应写成Sin(3.14159/4)。 表达式用运算符和圆括号将常量、变量、函数连接起来的式子，叫做Visual Basic的表达式(expression)。Visual Basic中有四种运算符：算术运算符、字符串运算符、关系运算符、逻辑运算符，相应就有四种表达式，本节只介绍算术表达式与字符串表达式。 算术运算符主要有以下几种：+（加）、-（减）、*（乘）、/（除）、（乘方）。表6-5给出了几个Visual Basic表达式和代数式对照的实例。表6-5代数式 VB表达式64+|-5| 64+Abs(-5)(x+y)/(x-y)g*t2/2(-b+Sqr(b*b-4*a*c)/(2*a)Sqr(1+Cos(a)/(1-Cos(a)从上表可以看出：Visual Basic表达式的所有字符必须写在同一水平线上；乘号不能省略，如a*b不能写成ab；只允许使用圆括号。一个表达式中可能含有多个运算符，这就要确定各个运算符的优先顺序，Visual Basic表达式中运算符的优先顺序为：函数乘方乘或除加或减；用圆括号可以改变运算顺序（内层括号的优先级别比外层括号的优先级别高）；同级运算符按从左到右的顺序进行。字符串表达式是用字符串运算符将字符串常量、字符串变量连接起来的式子，Visual Basic中字符串运算符为+，它能将若干个字符串依次连接成一个新的字符串。例如：Visual+ Basic的运算结果为Visual Basic。100+美元的运算结果为100美元。二、 量的赋值VB中使用Let语句给变量赋值，其形式如下：Let 变量 = 表达式方括号 表示这部分内容是可选的，语句中可以有这部分，但通常可省略该关键字。赋值语句的作用是将表达式的值赋给变量，例如：Let d=sqr(b*b-4*a*c)左边是变量，右边是表达式，执行赋值语句时，先对表达式求解，然后将表达式的值赋给变量。所以说，赋值语句具有运算功能。事实上，在VB中，运算功能主要是由赋值语句来完成的。【例6-4-3】 赋值语句使用示例 赋值语句使用Private Sub Form_Click()Dim a As Integer,b As Integer, c As IntegerDim str As StringLet a = 54Let b = 114c = a + bstr = Hello WorldPrint a=; a, b=; b, c=; cPrint strEnd Sub运行结果为：a= 34 b= 114 c= 168Hello World应该说明的是： 赋值语句中=不同于数学中的等于号，而是赋值号。如上例中Let a=54应读作将数值54赋给变量a，可以理解为54a； 在程序中经常会看到这样的语句：i=i+1。它的含义是将变量i的值取出来，加上1再送回到变量i中去。如果i的原值为2，则2+1为3，再送回i，i中的新值即为3。【例6-4-4】交换两个变量中的数据，程序界面如图6-13所示。程序界面主要由四个文本框和两个命令按钮组成，四个标签用于显示提示信息。单击交换按钮，实现交换功能，所以程序主要对该按钮的Click事件进行编码。单击结束按钮，关闭程序。其算法设计见第一节，流程图见图6-1。根据界面显示，需要设置的属性如表6-6。表 6-6缺省的对象名 设置的对象名 属性 设置值Form1 frmSwap Caption 交换数据Label1 lbls Caption 交换前：Label2 lbld Caption 交换后：Label3 lblx Caption XLabel4 lbly Caption yText1 txtsx Text 空白Text2 txtsy Text 空白Text3 txtdx Text 空白Text4 txtdy Text 空白Command1 cmdSwap Caption 交换Command2 cmdEnd caption 结束程序代码如下： 交换两个娈量中的数据Private Sub cmdSwap_Click()Dim x As Single, y As SingleDim m As Singlex = Val(txtsx.Text)y = Val(txtsy.Text)m = x: x = y: y = m 交换数据txtdx.Text = Str(x)txtdy.Text = Str(y)End SubPrivate Sub cmdEnd_Click()EndEnd Sub由于程序中使用文本框接受输入的数值型数据，而文本框的Text属性是字符串型的，所以使用Val(s)将文本框输入的数字字符串转换成数值；交换后的数据赋给文本框的Text属性前，应使用Str(x)函数将数值型数据转换成数字字符串?quot;结束按钮的Click事件过程中End语句的作用是结束程序的运行。三、数据的输出程序中运算得到的结果，除了可以使用文本框和标签控件显示外，对于大批量的数据更适合用Print方法输出，格式如下：对象.Print 表达式列表 ; | , 其中，对象可以是窗体、图形框或打印机，如果被省略，则 Print 方法将向当前窗体输出。表达式可为数值表达式或字符串表达式。表达式之间可用分号(;)或逗号(,)分隔。分号表示下一个表达式紧接着上一个表达式继续显示；逗号表示下一个表达式移到下一个打印区开始显示，每一个区占14列。【例6-4-5】 数据输出示例Private Sub Form_Click()Dim x As Single, y As SingleForm1.Print -61; -34Form1.Print 9 * 2; 12Form1.Print This is; a bookx = 3: y = 4Print x=; x, y=; yEnd Sub运行结果：-61 -3418 12This isa bookx= 3 y=4从运行结果可以看出： Print方法具有计算和输出的双重功能。先计算出表达式的值，然后再输出该值。正数数值具有一个前导和一个尾部空格，负数数值用负号替代前导空格。对于字符串则是原样输出，不包括定界符双引号。 使用Print x=;x的形式输出数据，可以在数据前加上注解性的说明，使我们一看就知道是哪个变量的值。在一个语句里，分号和逗号还可混合使用。此外，还可以在表达式前用Tab(n)函数控制输出的位置。式中n表示输出点离窗体左边界的绝对位置。【例6-4-6】计算两个数的平方、立方和平方根，并输出成表格形式。 Tab函数的使用Private Sub Form_Click()Dim a As IntegerDim b As Integera = 4: b = 9Print Tab(1); 数; Tab(9); 平方; Tab(18); 立方; Tab(27); 平方根Print Tab(1); a; Tab(9); a * a; Tab(18); a * a * a; Tab(27); Sqr(a)Print Tab(1); b; Tab(9); b * b; Tab(18); b * b * b; Tab(27); Sqr(b)End Sub运行结果：数 平方 立方 平方根4 16 64 29 81 729 3注意：一个语句的Tab函数中的数值应从左到右逐渐增大，而不能忽左忽右。讨论与思考语句未尾没有标点符号，在输出完本语句的表达式的值后自动换行。那么，如果语句未尾是逗号，下一个语句的表达式应从什么位置输出；如果语句末尾是分号，下一个语句的表达式应从什么位置输出；如果语句中没有任何表达式，又是什么情况呢？ 请仔细观察本节所有程序的事件过程代码，不难发现它们有一个共同的特点，代码按照书写的顺序，招待过程中没有分支，也没有重复，这种结构称为顺序结构。四、交互函数的使用为了便于和程序交互，VB提供了InputBox和MsgBox两个函数。InputBox函数在VB中，需要输入数据时，只要在程序中调用一个InputBox函数，屏幕中就会弹出一个标准输入对话框，供你输入数据，使用方法如下：变量=InputBox(提示,标题,缺省)例如，例6-3-1中动画文字的内容是固定的，可以在窗体的Click事件过程中加入如下一段代码：Private Sub Form_Click()s = InputBox(请输入动画文字, 输入框)End Sub程序运行时，用鼠标器单击窗体后，屏幕上显示出如图6-15所示的输入对话框：说明：提示为字符串型数据，该参数的内容为对话框中的提示信息，提示你输入什么数据，该参数内容在对话框弹出时，显示在对话框的左上角；标题也为字符串型数据，该参数的内容为对话框标题栏中的标题内容，此参数可缺省；缺省：当对话框中没有输入任何值时，该参数就被当作你输入的内容。 输入对话框只能输入常量，不能输入表达式，并要注意输入的常量与赋值语句中变量的类型一致。 MsgBox函数在使用Windows软件的过程中，经常会遇到如图6-16所示的用于显示提示信息，或者要求你作出必要响应的对话框。事实上，在VB中，我们自己也可以利用MsgBox函数设计出这样的对话框。MsgBox函数格式如下：变量=MsgBox(提示,按钮,标题)其中：提示和标题的意义与InputBox函数中对应的参数相同。按钮：这是一个由4个数值常量组成的式子，形式为c1+c2+c3+c4,用于决定信息框中显示的按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的模式等。各个参数的可选值及功能见表6-7。表6-7参数 VB内部常量 数值 含 义C1(按钮数目及形式) vbOkOnly 0 只显示确定按钮vbOkCancel 1 显示确定取消按钮vbAboutRetryIgnore 2 显示终止重试忽略按钮vbYesNoCancel 3 显示是否取消按钮vbYesNo 4 显示是否按钮vbRetryCancel 5 显示重试取消按钮C2(图标类型) vbCritical 16 显示禁止图标vbQuestion 32 显示疑问图标vbExclamation 48 显示警告图标vbInformation 64 显示信息提示图标C3(缺省按钮) vbDefaultButton1 0 第一个按钮为缺省vbDefaultButton2 256 第二个按钮为缺省vbDefaultButton3 512 第三个按钮为缺省C4(模式) vbApplicationModal 0 应用模式vbSystemModal 4096 系统模式MsgBox函数根据单击按钮而返回不同的数值，其数值的意义见表6-8。表6-8按钮名 VB内部常量 数值确定 vbOk 1取消 vbCancel 2终止 vbAbort 3重试 vbRetry 4忽略 vbIgnore 5是 vbYes 6否 vbNo 7【例6-4-7】设计一个界面如图6-17所示的屏幕保护程序的密码输入对话框，要求密码