《vb中三角函数》由会员分享，可在线阅读，更多相关《vb中三角函数（5页珍藏版）》请在金锄头文库上搜索。
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 Functio
2、nFunction 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 Functio
3、nFunction 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 Fu
4、nctionFunction 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 *
5、X + 1)End FunctionFunction 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 反双曲
6、余割 HArccsc = Log(Sgn(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 产生一个
7、间的随机数 Sgn 求数字符号 Sin 正弦函数 Sqr 求平方根 Tan 正切函数 3.4.4 日期和时间函数 VB提供了丰富的关于日期和时间的函数，这些函数和语句不仅可以用来返回和设置当前的时间和日期，还可以从日期和时间中提取年、月、日、时、分、秒以及可以对时间和日期进行格式化等。 下面通过列表简要介绍日期和时间的函数（如表所示）： 日期函数功能表 函数名 功能 Date 取得系统当前日期 Time 取得系统当前时间 Now 取得系统当前日期和时间 Year 返回指定日期中的年份 Month 返回指定日期中的月份（1-12） Day 返回指定日期中天（1-31） Weekday 返回指定日
8、期为星期几 Hour 返回指定时间量中的小时 Minute 返回指定时间量中的分钟 Second 返回指定时间量中的秒 DateSerial 返回指定年月日的日期 TimeSerial 返回指定小时分秒的时间 DateValue 将字符串表示的日期转化为Variant日期 TimeValue 将字符串表示的时间转化为Variant时间 DateAdd 返回指定日期加上一定时间间隔后的日期 DateDiff 返回两个日期的时间间隔 DatePart 返回指定日期的特定部分 3.4.5 字符串函数 字符串函数用来完成对字符串的操作和处理，如截取字符串、查找和替换字符串、对字符串进行大小写处理等。V
9、B6.0新添了许多字符串函数，加上原有的字符串函数，在对字符串的处理方面功能非常全面。 下面通过列表的方式简要介绍字符串处理函数（如表所示）： 字符串函数功能表 函数名 功能 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 Double a = Val(InputBox(请输入一个余弦值:) b = Int(ArcCos(a) MsgBox (对应的余弦的角度是: + Str(b)End SubFunction ArcCos(x As Double) As Double If 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图：
