在Visual Basic（VB）中，求导数可以通过以下步骤实现：
定义函数：
首先，你需要定义你想要求导的函数。例如，定义一个函数 `func（x As Double）`，其表达式为 `x ^ 6 - 5 * x ^ 5 + 2 * x ^ 4 - x ^ 3 + 10 * x ^ 2 - 3 * x`。
求导函数：
编写一个求导函数，该函数接受一个函数表达式和自变量，并返回该函数在该点的导数值。求导可以通过基本的微积分规则来实现，例如幂函数的导数是其指数乘以原函数减去指数减一的幂函数乘以原函数的导数。
计算导数：
在主程序中，你可以调用求导函数来计算不同阶数的导数。例如，计算一阶导数、二阶导数等，并将结果输出到消息框或文本框中。
```vb
Option Explicit
Const delta = 0.0001
Sub Main（）
Dim x As Double
x = 82
MsgBox "一阶导数： " & CStr（qiudao（x, 1）） & vbCrLf & _
"二阶导数： " & CStr（qiudao（x, 2）） & vbCrLf & _
"三阶导数： " & CStr（qiudao（x, 3）） & vbCrLf & _
"四阶导数： " & CStr（qiudao（x, 4）） & vbCrLf & _
"五阶导数： " & CStr（qiudao（x, 5））
End Sub
Private Function func（ByVal x As Double） As Double
func = x ^ 6 - 5 * x ^ 5 + 2 * x ^ 4 - x ^ 3 + 10 * x ^ 2 - 3 * x
End Function
Private Function qiudao（ByVal pos As Double, ByVal order As Integer） As Double
Dim h As Double
Dim result As Double
h = delta
Select Case order
Case 1
result = （func（pos + h） - func（pos - h）） / （2 * h）
Case 2
result = （func（pos + h） - 2 * func（pos） + func（pos - h）） / （h ^ 2）
Case 3
result = （func（pos + h） - 3 * func（pos） + 3 * func（pos - h） - func（pos - 2 * h）） / （h ^ 3）
Case 4
result = （func（pos + h） - 4 * func（pos） + 6 * func（pos - h） - 4 * func（pos - 2 * h） + func（pos - 3 * h）） / （h ^ 4）
Case 5
result = （func（pos + h） - 5 * func（pos） + 10 * func（pos - h） - 10 * func（pos - 2 * h） + 5 * func（pos - 3 * h） - func（pos - 4 * h）） / （h ^ 5）
Case Else
MsgBox "不支持的导数阶数"
Exit Function
End Select
qiudao = result
End Function
```
在这个示例中，`qiudao` 函数通过不同的 `Select Case` 语句来计算不同阶数的导数。你可以根据需要修改这个函数来计算其他函数的导数。
建议
准确性：确保在计算导数时使用的公式是正确的，并且考虑到数值计算的精度问题。
可扩展性：如果需要计算更多阶数的导数，可以扩展 `qiudao` 函数以支持更多的阶数。
调试：在编写和调试程序时，确保每一步的计算都是正确的，可以使用断点和输出语句来验证中间结果。