使用vb控制台应用，定义一个限差类TolError，附带事件OverError，限差值设计为属性，由用户输入若干个高差（可正可负），计算其总的高差h，超过限差值则触发事件OverError。

在VB (Visual Basic) 中创建一个控制台应用程序，我们可以定义一个名为`TolError`的自定义类，用于处理限差和高差。以下是实现这个类的步骤：

Public Class TolError
    ' 定义限差值作为属性
    Public Property Tolerance As Double
    ' 初始化默认限差值
    Sub New()
        Tolerance = 0 ' 你可以在此处设定默认值，例如0或其他用户输入提示
    End Sub

    ' 定义事件 OverError，当高差超过限差时触发
    Public Event OverError(ByVal highDifference As Double)

    ' 计算高差并检查是否超出限差
    Public Function CalculateHighDifference(ByVal highDifferences() As Double) As Boolean
        Dim totalDifference As Double = 0
        For Each diff In highDifferences
            totalDifference += diff
            If totalDifference > Tolerance Then
                RaiseEvent OverError(totalDifference)
                Return True
            End If
        Next
        Return False ' 如果所有高差均未超过限差，则返回False
    End Function
End Class

用户可以实例化这个`TolError`类，设置限差值，并通过`CalculateHighDifference`方法输入高差数组。如果总和超过限差，会触发`OverError`事件。