1
把下面代码保存成一个模块，需要的时候就能直接调用了。集合了全部三角函数。很实用。
datediff是字符型函数＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Function Sec(X) As Double '正割
    Sec = 1 / Cos(Angle)
End Function
Function Csc(X) As Double '余割
    Csc = 1 / Sin(Angle)
End Function
Function Cot(X) As Double '余切
    Cot = 1 / Tan(Angle)
End Function
Function ArcSin(X) As Double '反正弦
    ArcSin = Atn(X / Sqr(-X * X + 1))
End Function
Function ArcCos(X) As Double '反余弦
    ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function
Function ArcSec(X) As Double '反正割
    ArcSec = Atn(X / Sqr(X * X - 1)) + Sgn((X) - 1) * (2 * Atn(1))
End Function
Function ArcCsc(X) As Double '反余割
    ArcCsc = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
End Function
Function ArcCot(X) As Double '反余切
    ArcCot = Atn(X) + 2 * Atn(1)
End Function
Function HSin(X) As Double '双曲正弦
    HSin = (Exp(X) - Exp(-X)) / 2
End Function
Function HCos(X) As Double '双曲余弦
    HCos = (Exp(X) + Exp(-X)) / 2
End Function
Function HTan(X) As Double '双曲正切
    HTan = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))
End Function
Function HSec(X) As Double '双曲正割
    HSec = 2 / (Exp(X) + Exp(-X))
End Function
Function HCsc(X) As Double '双曲余割
    HCsc = 2 / (Exp(X) - Exp(-X))
End Function
Function HCot(X) As Double '双曲余切
    HCot = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))
End Function
Function HArcsin(X) As Double '反双曲正弦
    HArcsin = Log(X + Sqr(X * X + 1))
End Function
Function HArccos(X) As Double '反双曲余弦
    HArccos = Log(X + Sqr(X * X - 1))
End Function
Function HArctan(X) As Double '反双曲正切
    HArctan = Log((1 + X) / (1 - X)) / 2
End Function
Function HArcsec(X) As Double '反双曲正割
    HArcsec = Log((Sqr(-X * X + 1) + 1) / X)
End Function
Function HArccsc(X) As Double '反双曲余割
    HArccsc = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X)
End Function
Function HArccot(X) As Double '反双曲余切
    HArccot = Log((X + 1) / (X - 1)) / 2
End Function
Function LogN(N, X) '以 N 为底的对数
    LogN = Log(X) / Log(N)
End Function
2
函数名 功能
Abs 求绝对值
Atn
反正切函数
Cos 余弦函数
Exp 求指数
Fix 取整数，对负数取较大的
Int 取整数，对负数取较小的
Log 求对数
Rnd 产生一个０～１间的随机数
Sgn 求数字符号
Sin 正弦函数
Sqr 求平方根
Tan 正切函数

3.4.4 日期和时间函数
  VB提供了丰富的关于日期和时间的函数，这些函数和语句不仅可以用来返回和设置当前的时间和日期，还可以从日期和时间中提取年、月、日、时、分、秒以及可以对时间和日期进行格式化等。
  下面通过列表简要介绍日期和时间的函数（如表所示）：

日期函数功能表

函数名 功能
Date 取得系统当前日期
Time 取得系统当前时间
Now 取得系统当前日期和时间
Year 返回指定日期中的年份

Month 返回指定日期中的月份（1-12）
Day 返回指定日期中天（1-31）
Weekday 返回指定日期为星期几
Hour 返回指定时间量中的小时
Minute 返回指定时间量中的分钟
Second 返回指定时间量中的秒
DateSerial 返回指定年月日的日期
TimeSerial 返回指定小时分秒的时间
DateValue 将字符串表示的日期转化为Variant日期
TimeValue 将字符串表示的时间转化为Variant时间
DateAdd 返回指定日期加上一定时间间隔后的日期
DateDiff 返回两个日期的时间间隔
DatePart 返回指定日期的特定部分


3.4.5 字符串函数
  字符串函数用来完成对字符串的操作和处理，如截取字符串、查和替换字符串、对字符串进行大小写处理等。VB6.0新添了许多字符串函数，加上原有的字符串函数，在对字符串的处理方面功能非常全面。
  下面通过列表的方式简要介绍字符串处理函数（如表所示）：

字符串函数功能表

函数名 功能
StrComp 两个字符串比较
Lcase,Ucase 转换大小写
Space,String 返回指定长度的字符串
Len 求字符串长度
Lset,Rset语句 给字符串变量赋值，赋在左边或右边
Instr 子串定位
Mid 取给定字符串的子串
Left,Right 从字符串的左边或右边取指定长度的子串
Ltrim,Rtrim,Trim 去掉字符串的前导空格、尾随空格
StrConv 转换字符串

3.4.6目录和文件函数
  目录和文件函数属于文件系统函数。通过它们我们可以操作目录和文件，如创建目录、删除文件和读写文件等。
  下面通过列表的形式简要介绍几个常见的文件系统函数（如表所示）

文件系统函数列表

函数或语句名 功能
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 Sub
Function ArcCos(x As Double) As Double
  If x >= -1 And x < -0.5 Then ArcCos = Atn(Sqr(1 - x * x) / x) + 4 * Atn(1)
  If x >= -0.5 And x <= 0.5 Then ArcCos = -Atn(x / Sqr(1 - x * x)) + 2 * Atn(1)
  If x > 0.5 And x <= 1 Then ArcCos = Atn(Sqr(1 - x * x) / x)
  ArcCos = ArcCos / 3.1415926 * 180
End Function
 
图：
 
 
 

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。