讲义-VB变量与表达式及函数

讲义-VB变量与达式及函数 义乌中学 算法与程序设计 自编资料 vb变量与表达式 一、 vb变量及定义 程序中要处理各种各样的数据，数据可以按照本身的特性分为若干种不同的类型，常见类型 见表1: 表1 vb常用的基本数据类型 数据类型名 说明 性质 integer 整数型 -32768~32768内的整数 long 长整数型 -2147483648~2147483647内的整数 绝对值在1.401298e-45~3.402823e38内的任何实数，有效数字约6~7位 single 单精度实数型 double 双精度实数型 绝对值在10e-324~1.79e308内的实数，有效数字约14~15位 string 字符串型 一段文字与符号 boolean 逻辑型 判断的结果，其值为true或false date 日期型 日期和时间 5-5注:字母e表示乘方的底数10 。例如 7×10和7×10可分别表示为7e5和7e-5 数据总是以常量或变量的形式出现在程序中。常量是在程序运行过程中值不变的存储单元或数据，例如语句 const pi=3.14 ，就是定义了一个常量pi，在这个程序中出现的所有pi都会被vb自动转换成3.14。变量是用来表示数据的存储区，也就是存放数据的容器。 vb变量定义的:dim a as integer 将a 定义为整数型变量(a就是变量名)，用于存放整数型数据，其他类型的变量定义类似。如果定义两个或两个以上的同类型变量 可以用语句:dim a,b as integer ，就是定义了a，b两个整数型变量。 变量定义时，变量的取名有一定的限制，变量的名称由字母、数字和下划线组成，必须是字母开头，vb系统中已使用的字符不能作为变量名，比如 dim long as integer ，这句语句就是错误的，因为long是数据类型名，不能再作为变量名了。(注:其实vb6中也可以使用汉字作为变量名，不过一般不建议使用，因为容易导致程序兼容性变差) 在设计求圆面积程序时，写过一段程序 r=val(text1.text) s=3.14*r*r text2.text=str(s) 这段程序中r，s是变量名，而且是实数，所以应该在这段程序前加上一句定义变量的语句 dim r , s as single (注:之前编写程序时没有加这句变量定义语句～程序也能正常运行是因为vb能自动识别出程序中的变量～并定义为相关类型～为了起见～还是应该在程序开始时定义好程序中用到的变量。) 二、 表达式 一个表达式中可能包括算术运算、关系运算和逻辑运算等多种基本运算，以及运算中涉及的 数据(变量和常量)、常用标准函数等。 各种基本运算的符号及优先级别见表2， 1 义乌中学 算法与程序设计 自编资料 表2 基本运算 基本运算 运算符号 优先级 表达式举例 示例表达式的值 乘幂 ^ 1 2^3 8 取负 - 2 -a a的相反值 7.5 乘法 * 3 3*2.5 2.5 实数除法 / 3 5/2 算术 运算 整除 \ 4 5\2 2 取余数 mod 5 5 mod 2 1 加法 + 6 a+b a+b的值 减法 - 6 a-b a-b的值 相等 = 7 1=2 false 不相等 <> 7 1<>2 true 小于 < 7 1<2 true 关系 运算 大于 > 7 1>2 false 小于等于 <= 7 10 mod 2 <=20 true 大于等于 >= 7 10 \ 2>=7 false 非 not 8 not(3>2) false 逻辑与 and 9 25>=10 and 25<10 false 运算 或 or 10 25>10 or 2<3 true 注:优先级数字越小，则级别越高，在同一个表达式中先执行优先级高的运算，相同优先级，按自左向右顺序执行，如有括号，则先执行括号内的表达式。 关系运算和逻辑运算的结果只有true或false，其中逻辑运算中“非”运算就是取反，比如 not true 的结果就是false 。“与”运算只有运算符的两边都是true，结果才是true，就是说表达式a and b，只有 a和b都是true 的情况下结果才是true ，否则结果为false。“或”运算只要运算符的两边有一边的值是true，则结果就是true ，比如表达式a or b ，只要a、b中有一个是true ，则结果就是true，只有a和b都是false，结果才是false。 表达式常常被用在赋值语句或条件判断上，下面我们就来介绍一下vb中赋值语句，其实在编写求圆面积、三角形面积的程序中已经用到过赋值语句，它的作用是把等号右边的表达式的计算结果存储到等号左边指定的变量中或存放到某个对象的指定的属性中。格式如下: 变量名=表达式 或 对象名.属性名=表达式 比如求圆面积中用到的 s=3.14*r*r text1.text=str(s) 就是两句典型的赋值语句，在vb中，一般是一行写一个语句，也可以在一行上写多个语句，不过一行上相邻语句要用冒号(:)分隔，例如以下写法都是正确的: A=2 A=2:b=3 B=3 另外要注意区分赋值语句中“=”和关系运算中的“=”运算符号。 2 义乌中学 算法与程序设计 自编资料 打开vb，在窗体中添加一个命令按钮，如图1 例1:请问以下代码执行后，a和b的 值分别为多少,并用程序验证。 Dim a,b as integer a=3:b=5 a=a+b b=a-b a=a-b (我们期望通过点击command1按钮， 来显示a、b的值)，但是将代码写进去 后，运行程序，点击command1按钮没 有任何显示，因为这段程序里还没有任 何的输出语句) 在上述程序的后面加上以下代码 试试:Print a,b 或 print a:print b 图1 窗体中只加了一个命令按钮对象 用print语句可以直接在窗体上输出变量的值。 在表达式的书写中还需要用到很多vb系统自带的标准函数，比如将数学式子 2写成vb表达式为sqr(b*b-4*a*c)，就需要用到求算术平方根的函数sqr()，bac,4 常用的标准函数见下表: 表2 常用的标准函数及功能 函数名 函数功能 应用举例 函数返回值 abs(x ) 求绝对值 abs(-3.5) 3.5 int( x) 求不大于x的最大整数 int(4.1) 4 sqr( x) 求x的算术平方根 sqr(100) 10 exp( x) 求e的x次方 exp(2) 7.389056 log( x) 求以e为底的x的对数 log(3) 1.098612 sin( x) 求x的正弦值 sin(3.1416/2) 0.9999999 cos(x ) 求x的余弦值 cos(1.1416/3) 0.4999999 tan(x ) 求x的正切值 tan(3.1416/3) 1.7320606 asc(x ) 字符转换为ascii编码 asc(“A”) 65 chr(x ) ascii编码转换为字符 chr(65) A val(x ) 将数字字符串转换为数值 val(“-170”) -170 str(x ) 将数值转换为字符串 str(-170) “-170” len(x ) 计算字符串的长度 len(“abc”) 3 mid(x,n,k) 取字符串x中第n个字符mid(“abcde”,3,2) cd 起长度为k的子串 fix(x ) 去掉数据的小数部分 fix(2.56) 2 3 义乌中学 算法与程序设计 自编资料 32,,xy 例2 将数学式子 写成vb表达式，并用程序计算当x=-5 ，y=3时，表达式的值。 |3|xy，， 在图1所示的窗体上操作，对command1的click事件编写代码(将刚才写的代码去掉)，可以将该表达式的值赋给变量a，然后显示出a 的值即可，代码如下: x=-5:y=3 a=(-x^3-y^2)/(abs(x+3)+y) msgbox(a) msgbox()函数的作用:将变量的值以弹出对话框的形式显示。 (只要在括号里填写需要输出的变量即可。) 三、vb输入输出方式 1、vb中接收用户数据输入的方式一般有两种方式: (1)、利用文本框输入: 在窗体中添加一个文本框text1，则获取text1中用户输入的值可以用语句 a=text1.text (把对象text1的text属性的值赋给变量a) (2)、利用弹出对话框输入 在图1的command1按钮的click事件中编写如下代码: a=inputbox(“请输入a的值”) 其中双引号内的字符是提示性语言， print a a=inputbox(”请输入a的值”)就是将inputbox() 函数接收到的用户输入值赋给变量a 。 2、vb中显示程序运行后的数据值一般有三种方式: (1)、利用print 语句在窗体上输出数据 (2)、利用msgbox()函数弹出窗口输出数据 msgbox()函数以弹出对话框的方式来显示变量或表达式的值。 例: 请问 (3> 4) and (3>2) 的值是什么, 方法:在图1的command1的click事件中编写代码: msgbox((3>4) and (3>2)) 程序运行后点命令按钮就会弹出对话框，显示的就是该表达式的值。 (3)、利用对象的属性值来显示数据 一般可以利用文本框的text属性或标签的caption属性来显示变量或表达式的值。比如 text1.text=表达式或变量 ，label1.caption=表达式或变量，就是用text1的text属性显示数据 值、label1的caption属性显示数据值 课后练习: 1、 写出vb表达式:y能被4整除但是不能被100整除，或者y能被400整除。 2、 下列变量名命名中正确的有:_______________________ abc 变量a true 12a i_64 str dim a-b 4