第3章 Visual Basic程序设计基础

发布时间 : 星期日 文章第3章 Visual Basic程序设计基础更新完毕开始阅读

Am(N):返回自变量N的反正切值。 说明:

(1)N是一个数值表达式,在使用三角函数时,N必须以弧度为单位。 (2)在一般情况下,自变量以角度给出,用下面的公式可以转换为弧度; 1度=n/180=3.14159/180(弧度)

例如,求67的正弦值,应写为Sin(67*3.14159/180)。 3.指数函数Exp(N)

此函数用来返回以e为底的N次幂值。 4.对数函数Log(N)

此函数用来返回以e为底的对数值,N必须为正整数。 5.随机函数

(1)Rnd(number)函数

此函数用来返回0和1之间的单精度随机数。参数number的取值可以小于0、大于0和等于0。当number小于0时,Rnd函数每次都使用number作为随机种子,得到相同的结果;当number大于0时,Rnd函数形成随机序列,每次调用都返回一个随机变化的数;当number等于0时,Rnd函数返回上次调用此函数的结果。

如果我们要返回介于两个数之间的随机数,可用如下的语句: Int((upperbound - lowerbound+1)*Rnd+lowerbound)

这里,upperbound是随机数范围的上限,而lowerbound则是随机数范围的下限。 例如,Int(rnd*28)+10,则可产生[10,37]之间的随机数。 (2)Randomize语句

Visual Basic中随机数的生产处理过程取决于Timer函数的返回值,当一个应用程序不断的重复使用随机数时,同—序列的随机数会反复出现,用Randomize语句可以消除这种情况,其语法格式为:

Randomize[(x)] 6.Sgn(N)函数

此函数的作用:当N大于0时,返回1;当N等于0时,返回0;当N小于0时,返回-1。

例如,表达式Sgn(7.89)、Sgn(0),Sgn(-12)的值分别为1、0、-1 7.平方根函数Sqr(N)

此函数用来求N的平方根。

注意:N必须为正数,否则就会产生语法错误。 8.Int(N)函数

用于返回小于或等于N的最大整数。

例如,当N=97.33时,Int(N)=97;当N=23.75时,Int(N)=23 它具有以下的作用: (1)可实现四舍五入。

(2)决定两个数是否能够整除。 (3)求商和余数。

(4)判断一个数是否为整数。 9.Fix(N)函数

此函数的作用与Int函数类似。当N为正数时,无条件地把小数部分舍掉;当N为负数时,结果与Int(N)函数不太一样。

例如,当N=-23.45时,Int(N)=-24,Fix(N)=-23。

10.四舍五入函数Round(NI[,N21)

此函数用来对N1进行按照指定的小数位数N2进行四舍五入运算,若省略N2则表示取整。

例如,Round(sin(80*3.14159/180),6)=0。984808 11.Hex(x)和Hex$(x)函数 此函数的作用:

(1)传回x所代表的16进制数。

(2)Hex(x)返回数值类型,Hex$(x)返回字符串类型。 12.Oct(x)和Oct$(x)函数

此函数返回8进制数。其功能说明与Hex(x)完全相同。

3.4.2 字符串函数

Visual Basic提供了大量的字符串函数,具有很强的字符处理能力,本书重点介绍部分常用字符函数。

1.删除空格函数

Ltrim$(字符串表达式):该函数用于去掉字符串中左边的空格。 例如,LTrim$(\的值为“ABCD”。

Rtrim$(字符串表达式):该函数用于去掉字符串中右边的空格。 例如,RTrim$(\的值为“ABCD”。

Trims(字符串表达式):该函数用于去掉字符串中左右两边的空格。 例如,Trim$(\的值为“ABCD”。 2.取子字符串函数

Left[$](字符串表达式,字符个数):该函数返回从字符串左边开始的指定数目的字符。 例如,

Dim substr As String

substr=Lefi(\则substr=\”

Right[$](字符串,字符个数):该函数返回从字符串右端开始的指定数目的字符。 例如,

Dim substr As String

substr=Right(\则substr=\

Mid[$](字符串,起始位置,[字符个数]):该函数返回从字符串指定位置开始的指定 说明:

(1)子字符串从“起始位置”开始,以“字符个数”为长度。 (2)若省略“字符个数”,则从起始位置到字符串的结尾。 例如,Mid$(\值为“BCD”。 3.求字符串长度函数

Len(字符串表达式):该函数返回字符串的长度(字符数)。 例如,Len(\湖南教育出版社\值为7。

LenB(字符串表达式):该函数返回字符串中所占字节数。 例如,LenB(\湖南教育出版社\值为14。 4.字符串匹配函数

InStr([起始位置,] \字符串1\字符串2\比较模式]):此函数用来在字符串1中查找字

符串2。

说明:

(1)从宁符串1的“起始位置”处开始查找字符串2,如果找到“字符串2”,则返回字符串2在字符串1中的起始位置。

(2)比较模式可以为0或1。为1时,比较时不区分大小写;为0时,区分大小写。Visual Basic的默认设置为0。

(3)若指定了比较模式,则必须指定起始位置,否则就会出现语法错误。 例如,InStr(7,\值为7。 5.产生空格字符串函数

Space(n):该函数返回产生由n个空格字符组成的字符串。 例如,SpaceS(5)值为\。 6.生成字符串函数

String[$](n,字符串):返回由字符串中首字符组成的n个字符串。 例:当x=String$(5,”abc”)时,则x=\’。 7.字符串替换函数

Replace(C,C1,C2[,N1][N2][,M]):在C1字符串中从1开始(或N1开始)将C1替换为C2。 例如,Relpace(\值为:\。 8.字母大小写转换函数

Lcase(字符串表达式):把字符串表达式中大写字母转换为小写字母。 例如,Lcase$(\结果为“abc”。

Ucase(字符串表达式):把字符串表达式中小写字母转换为大写字母。 例如,Ucase$(\结果为“ABC”。 9.求字符的ASCII值函数

Asc(字符串表达式):返回字符串表达式中第一个字符的ASCII值。 例如,当x=Asc(\时,x=97;当x=Asc(\时,x=97。 10.求ASCII值对应的字符函数

Chr(n):将n的值转换为对应的ASCII字符。 例如,Chr(65)的值为“A”。 11.将字符串转换为数值函数

Val(字符串表达式):用于将字符串转化为数值。

说明:字符串可以是一个字符串,也可以是几个字符串连接形成的字符串表达式。如果被转换的字符串是一个非数字字符串,则该函数的函数值为0;如果在字符串转换过程中遇到非数字字符,则转换停止,非数字字符不转换。

例如,Val(\结果为23.56;Val(\结果为88;Val(\结果为0。 12.将数值转换为字符串函数

Str(数值):用于将数字转化为字符串。 例如,

Dim a As String a=Str(34.56) 则a=\.56\

13.字符串比较函数

StrComp(字符串1,字符串2,比较模式):此函数用于对两个字符串进行比较。 说明:

(1)若字符串1小于字符串2,则返回-1。

(2)若字符串1大于字符串2,则返回1。 (3)若字符串1等于字符串2,则返回0。

(4)比较模式可以为0或1。为1时,比较不区分大小写;为0时,区分大小写。VB的默认设置为0。

(5)字符的比较是从第一个字符开始逐一比较,若出现不匹配字符,则终止比较,返回比较的结果。

例如,StrComp(\结果为1。

3.4.3 数据类型转换函数 在Visual Basic编程中,经常要进行数据类型的转换,常用的数据类型转换函数如表3-6所示。

表3-6数据类型转换函数 函数 Cint(x) Ccur(x) Cdbl(x) Clng(x) Csng(x) Cvar(x) 说明 把x的小数部分四舍五入,转换为小数 把x的值转换为货币类型值,小数部分最多保留4位,且自动四舍五入 把x值转换为双精度数 把x的小数部分四舍五入转换为长整型数 把x值转换为单精度数 把x值转换为变体类型值

3.4.4日期时间函数

常用的时间函数如表3-7所示。

表3-7常用日期时间函数 函数名 返回值类型 Day (日期) Month (日期) Year (日期) Weekday (日期) Time Date Now Hour (时间) Minute (时间) Second (时间) Integer Integer Integer Integer Date Date Date Integer Integer Integer 功能 例子 返回值 返回日期,1~31的整Day(#2000/3/15#) 15 数 返回月份,1~12的整Month(#2000/3/ 15#) 3 数 返回年份 返回星期几 返回当前系统时间 返回系统日期 Year(#2000/3/2000 15#) Weekday(#2000/34 /15#) Time Date 系统时间 系统日期 系统㈠期与时间 返回系统日期和时间 Now 返回钟点,0~23的整Hour(#4:35:17PM#) 16 数 返回分钟,0~59的整Minute(#4:35:35 17PM#) 数 返回秒钟,0-59的整Second(#4:35:17 17PM#) 数

联系合同范文客服:xxxxx#qq.com(#替换为@)