VB中的常用控件

一 、函数的含义和作用

        函数（function）一词，始用于1692年，见著于微积分创始人之一莱布尼兹G.W.Leibnic,1646—1717）的著作。而f(x)则由欧拉（Euler）于1724年首次使用。我国于1859年引进函数的概念，它首次是在清代数学家李善兰与英国传教士伟烈亚历山大合译的《代微积拾级》中出现。

        百度百科中给出的定义：函数是指一个量随着另一个量的变化而变化。而VB中函数的作用主要是 开发者直接调用具有特定功能的函数，节省程序开发的时间。

 

二 、函数的分类

       在VB中函数主要分两类：内部函数（也成为标准函数） 和  用户定义函数。

       其中用户定义函数是由程序开发者根据程序需要定义的函数过程。在这里我们重点介绍常用的内部函数。

三 、函数的作用

（一）  数学函数

          1、Abs(X)：绝对值计算。

          2、Sgn(X)：符号函数。判断X符号。

          3、Exp(X)：幂函数运算。

          4、Log(X)：自然对数函数。

          5、Sqr(X)：算数平方根函数。

          6、三角函数：Sin（X）、Cos(X)、Tan(X)、Atn(X)

               说明：返回值双精度，X单位弧度。

          7、Round(X,2)：按指定小数位数四舍五入。

               例：Round(3.764,2)=3.76

 

（二）  字符串函数

         1、len(str)：计算字符串长度函数。（汉字为一个字符）

               例：P=Len(“you are my lover.”)     ‘P的值为17

         2、取位置字符串函数

             Mid（str，n,m）：从第n个字符向右取到第m个。

             Left(str,n)：从左边取第n个字符。

              Right(str,n)：从左边取第n个字符。

              例：P=Mid(“you are my lover.”,9,8)        ‘P的值为my lover

          3、返回删除字符串空格剩余部分

             Ltrim(str)：返回删除字符串左边空格以后的部分。

             Rtrim(str)：返回删除字符串右边空格以后的部分。

             Trim(str)：返回删除字符串左右空格以后的部分。

             例：P=Rtrim(”I love you      ”)             ‘P的值为I love you

          4、Space(n)：返回一个由n个空格组成的字符串，n非负，整数。

                Tab(n)：其功能是在指定的第n个位置上输出数据

           5、String(n,str)：返回由n个重复的字符串，字符为首字符。

               例：P=string（4,”lover”）          ‘P的值为“llll”

           6、取整函数

                Int(X)：返回小于或等于X最大整数。

                Fix(X)：返回大于或等于X最小整数。

                例：P=Int(-6.7)                    ‘P的值为-7

                     P=Fix(-6.7)                    ‘P的值为-6

（三）  类型转换函数

          1、大小写转换

             Lcase（str）：str中的大写转换为小写。

             Ucase（str）：str中的小写转换为大写。

          2、Val(str)：文本中的数值转换为数值型。

          3、Str(X)：数值型转换为字符串型。

              例：P=Str(38)             ‘P的值为“38”

          4、Asc(str)：返回str第一个字符ASCII。

          5、Chr(X)：将ASCII码转换为字符串。

             例：P=Chr(65)        ’P的返回值为“A”

（四）  日期与时间函数

         1、获取日期/时间函数

                Date()               ‘返回系统当前日期    格式：yy-mm-dd  或者  yyyy-mm-dd

                Time()               ’返回系统当前时间    格式：hh:mm:ss

                Now()               ‘返回日期当前的日期和时间

                例：若当前系统时间为2016年2月2日19点46分17秒，则

                      P=Date()    结果为：P=2016-02-02

                      P=Time()    结果为：P=19:46:17

                      P=Now()    结果为：P=2016-02-02  19:46:17

         2、截取日期/时间函数

              日期

               Year（X）           ‘返回日期表达式年份整数

               Month（X）         ‘返回日期表达式月份整数

               Day (X)              ‘返回日期表达式日期整数

                Weekday(X)         ‘返回日期时间表达式星期整数（1~7）

                 例：若当前时间为X=#2016-02-02#  19:46:17

                            A= Year（X）         结果为 A=2016

                            B= Month（X）       结果为B=2

                            C= Day (X)            结果为C=2

                            D= Weekday(X)       结果为D=2

               时间

               Hour (X)             ‘返回时间表达式小时整数

               Minute(X)            ‘返回时间表达式分钟整数

               Second(X)          ‘返回时间表达式秒整数

               例：若当前时间为X=#2016-02-02 19:46:17#

                          A= Hour（X）         结果为 A=19

                          B=Minute（X）        结果为B=46

                          C= Second(X)          结果为C=17

  说明：间隔类型

设置	yyyy	q	m	y	d	w	ww	h	n	s
描述	年	季	月	一年的日数	日	一周的日数	周	时	分	秒

（五）  随机数函数Rnd[(X)] 

          Randomize[X]

       说明：Rnd函数用于返回或者说产生一个小于１但大于或者等于0的single类型的随机数

       例: 随机产生一个随机数的程序如下：

       Private Sub Command1_Click()

       Dim X As Integer

       Randomize

       X = Val(Text1.Text)

       MsgBox "产生的随机数是：" & Rnd(a)

       End Sub

程序运行如下：