1、1把下面代码保存成一个模块，需要的时候就能直接调用了。集合了全部三角函数。很实用。Function Sec(X) As Double 正割Sec = 1 / Cos(Angle)End FunctionFunction Csc(X) As Double 余割Csc = 1 / Sin(Angle)End FunctionFunction Cot(X) As Double 余切Cot = 1 / Tan(Angle)End FunctionFunction ArcSin(X) As Double 反正弦ArcSin = Atn(X / Sqr(-X * X + 1)End FunctionFun
2、ction ArcCos(X) As Double 反余弦ArcCos = Atn(-X / Sqr(-X * X + 1) + 2 * Atn(1)End FunctionFunction ArcSec(X) As Double 反正割ArcSec = Atn(X / Sqr(X * X - 1) + Sgn(X) - 1) * (2 * Atn(1)End FunctionFunction ArcCsc(X) As Double 反余割ArcCsc = Atn(X / Sqr(X * X - 1) + (Sgn(X) - 1) * (2 * Atn(1)End FunctionFuncti
3、on ArcCot(X) As Double 反余切ArcCot = Atn(X) + 2 * Atn(1)End FunctionFunction HSin(X) As Double 双曲正弦HSin = (Exp(X) - Exp(-X) / 2End FunctionFunction HCos(X) As Double 双曲余弦HCos = (Exp(X) + Exp(-X) / 2End FunctionFunction HTan(X) As Double 双曲正切HTan = (Exp(X) - Exp(-X) / (Exp(X) + Exp(-X)End FunctionFunct
4、ion HSec(X) As Double 双曲正割HSec = 2 / (Exp(X) + Exp(-X)End FunctionFunction HCsc(X) As Double 双曲余割HCsc = 2 / (Exp(X) - Exp(-X)End FunctionFunction HCot(X) As Double 双曲余切HCot = (Exp(X) + Exp(-X) / (Exp(X) - Exp(-X)End FunctionFunction HArcsin(X) As Double 反双曲正弦HArcsin = Log(X + Sqr(X * X + 1)End Funct
5、ionFunction HArccos(X) As Double 反双曲余弦HArccos = Log(X + Sqr(X * X - 1)End FunctionFunction HArctan(X) As Double 反双曲正切HArctan = Log(1 + X) / (1 - X) / 2End FunctionFunction HArcsec(X) As Double 反双曲正割HArcsec = Log(Sqr(-X * X + 1) + 1) / X)End FunctionFunction HArccsc(X) As Double 反双曲余割HArccsc = Log(Sg
6、n(X) * Sqr(X * X + 1) + 1) / X)End FunctionFunction HArccot(X) As Double 反双曲余切HArccot = Log(X + 1) / (X - 1) / 2End FunctionFunction LogN(N, X) 以 N 为底的对数LogN = Log(X) / Log(N)End Function2函数名 功能 Abs 求绝对值 Atn 反正切函数 Cos 余弦函数 Exp 求指数 Fix 取整数，对负数取较大的 Int 取整数，对负数取较小的 Log 求对数 Rnd 产生一个间的随机数 Sgn 求数字符号 Sin 正
7、弦函数 Sqr 求平方根 Tan 正切函数 3.4.4 日期和时间函数 VB 提供了丰富的关于日期和时间的函数，这些函数和语句不仅可以用来返回和设置当前的时间和日期，还可以从日期和时间中提取年、月、日、时、分、秒以及可以对时间和日期进行格式化等。 下面通过列表简要介绍日期和时间的函数（如表所示）： 日期函数功能表 函数名 功能 Date 取得系统当前日期 Time 取得系统当前时间 Now 取得系统当前日期和时间 Year 返回指定日期中的年份 Month 返回指定日期中的月份（ 1-12） Day 返回指定日期中天（1-31 ） Weekday 返回指定日期为星期几 Hour 返回指定时间量
8、中的小时 Minute 返回指定时间量中的分钟 Second 返回指定时间量中的秒 DateSerial 返回指定年月日的日期 TimeSerial 返回指定小时分秒的时间 DateValue 将字符串表示的日期转化为 Variant 日期 TimeValue 将字符串表示的时间转化为 Variant 时间 DateAdd 返回指定日期加上一定时间间隔后的日期 DateDiff 返回两个日期的时间间隔 DatePart 返回指定日期的特定部分 3.4.5 字符串函数 字符串函数用来完成对字符串的操作和处理，如截取字符串、查找和替换字符串、对字符串进行大小写处理等。VB6.0 新添了许多字符串函
9、数，加上原有的字符串函数，在对字符串的处理方面功能非常全面。 下面通过列表的方式简要介绍字符串处理函数（如表所示）： 字符串函数功能表 函数名 功能 StrComp 两个字符串比较 Lcase,Ucase 转换大小写 Space,String 返回指定长度的字符串 Len 求字符串长度 Lset,Rset 语句 给字符串变量赋值，赋在左边或右边 Instr 子串定位 Mid 取给定字符串的子串 Left,Right 从字符串的左边或右边取指定长度的子串 Ltrim,Rtrim,Trim 去掉字符串的前导空格、尾随空格 StrConv 转换字符串 3.4.6 目录和文件函数 目录和文件函数属于文
10、件系统函数。通过它们我们可以操作目录和文件，如创建目录、删除文件和读写文件等。 下面通过列表的形式简要介绍几个常见的文件系统函数（如表所示） 文件系统函数列表 函数或语句名 功能 ChDir 改变当前目录 ChDrive 改变当前驱动器 CurDir 返回当前目录 MkDir 创建目录 RmDir 删除目录 FileCopy 拷贝文件 Kill 删除文件 FileLen 取得文件的长度（字节数） Dir 查找指定的文件和目录3 代码：Private Sub Command1_Click()Dim a As Double, b As Doublea = Val(InputBox(“请输入一个余弦值:“)b = Int(ArcCos(a)MsgBox (“对应的余弦的角度是:“ + Str(b)End SubFunction ArcCos(x As Double) As DoubleIf x = -1 And x = -0.5 And x 0.5 And x = 1 Then ArcCos = Atn(Sqr(1 - x * x) / x)ArcCos = ArcCos / 3.1415926 * 180End Function图：
