在VB（Visual Basic）中计算三角函数的代码如下：
正弦函数（Sin）
```vb
y = Sin（x / 180 * pi）
```
其中 `x` 是角度值，`pi` 是圆周率，约等于3.14159。
余弦函数（Cos）
```vb
y = Cos（x / 180 * pi）
```
其中 `x` 是角度值，`pi` 是圆周率，约等于3.14159。
正切函数（Tan）
```vb
y = Tan（x / 180 * pi）
```
其中 `x` 是角度值，`pi` 是圆周率，约等于3.14159。
反正弦函数（ArcSin）
```vb
y = ArcSin（x）
```
其中 `x` 是数值，表示要计算反正弦的角度。
反余弦函数（ArcCos）
```vb
y = ArcCos（x）
```
其中 `x` 是数值，表示要计算反余弦的角度。
反正切函数（ArcTan）
```vb
y = ArcTan（x）
```
其中 `x` 是数值，表示要计算反正切的角度。
示例代码
```vb
Private Sub Command1_Click（）
Dim x As Double
Dim y As Double
Dim angle As String
' 获取用户输入的角度值
angle = InputBox（"请输入角度值（度）："）
' 将角度值从度转换为弧度
x = CDbl（angle） * pi / 180
' 计算正弦值
y = Sin（x）
Label1.Caption = "Sin（" & angle & "） = " & y
' 计算余弦值
y = Cos（x）
Label2.Caption = "Cos（" & angle & "） = " & y
' 计算正切值
y = Tan（x）
Label3.Caption = "Tan（" & angle & "） = " & y
End Sub
```
在这个示例中，用户输入一个角度值（以度为单位），程序将其转换为弧度，然后计算并显示其正弦、余弦和正切值。
建议
确保在计算三角函数时，角度值是以弧度为单位的，而不是度。如果需要将角度从度转换为弧度，可以使用公式 `x * pi / 180`。
VB中提供了反正切函数 `Atn`，但其他反三角函数（如反正弦 `ArcSin` 和反余弦 `ArcCos`）需要手动计算或使用API函数。
希望这些示例代码和建议对你有所帮助!