VB函数ARCSIN(X)*3.14/180在VB中乍写程序啊

没有,只有一个Atn()是VB反正切函数，VB不提供其他反三角函数，不过可以用下列公式导出：
反正弦
Arcsin(X) = Atn(X / Sqr(-X * X + 1))
反余弦
Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
反正割
Arcsec(X) = Atn(X / Sqr(X * X - 1)) + Sgn((X) - 1) * (2 * Atn(1))
反余割
Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))

Dim A1 As Integer,X as Integer'定义变量
X=Inputbox("请输入X的值","提示信息")
A1 = Atn(X / Sqr(-X * X + 1)) * 3.14 / 180
'可以先输入一个数 X 然后算出结果后显示出A1的值
Print A1

不放心就分开写把
dim a
dim b
a=val(ARCSIN(X))
b=a*3.14
A1=b/180